diff --git a/mozilla/webtools/tinderbox2/src/bin/admintree.cgi b/mozilla/webtools/tinderbox2/src/bin/admintree.cgi index 0427e87f356..a90d04a6300 100755 --- a/mozilla/webtools/tinderbox2/src/bin/admintree.cgi +++ b/mozilla/webtools/tinderbox2/src/bin/admintree.cgi @@ -2,8 +2,8 @@ # -*- Mode: perl; indent-tabs-mode: nil -*- # -# $Revision: 1.3 $ -# $Date: 2000-08-30 02:20:13 $ +# $Revision: 1.4 $ +# $Date: 2000-08-31 21:59:53 $ # $Author: kestes%staff.mail.com $ # $Source: /home/befator/cvs/jail/cvsroot/mozilla/webtools/tinderbox2/src/bin/admintree.cgi,v $ # $Name: not supported by cvs2svn $ @@ -127,8 +127,11 @@ sub get_passwd_table { my ($file) = FileStructure::get_filename($TREE, 'passwd'); - (-r $file) && - require $file; + (-r $file) || + return ; + + my ($r) = Persistence::load_structure($file); + $PASSWD_TABLE{$TREE} = $r; return ; } @@ -314,14 +317,7 @@ sub save_passwd_table { my ($file) = FileStructure::get_filename($TREE, 'passwd'); if ( keys %{ $PASSWD_TABLE{$TREE} } ) { - Persistence::save_structure( - [ - $PASSWD_TABLE{$TREE}, - ], - [ - "\$PASSWD_TABLE{'$TREE'}", - ], - $file); + Persistence::save_structure($PASSWD_TABLE{$TREE},$file); } return ;