forgot that if I change peristance then the admin code changes also.

I use persistance for the passwd table.

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/jrmuizel/cvs-mirror/mozilla/webtools/tinderbox2/src/bin/admintree.cgi,v $ 
 # $Name:  $ 
@@ -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 ;