[siesta-commit] siesta/bin nacho,1.40,1.41

[prev] [thread] [next] [lurker] [Date index for 2003/03/15]

Update of /cvsroot/siesta/siesta/bin
In directory sc8-pr-cvs1:/tmp/cvs-serv9889/bin

Modified Files:
	nacho 
Log Message:
refactor get_lists

Index: nacho
===================================================================
RCS file: /cvsroot/siesta/siesta/bin/nacho,v
retrieving revision 1.40
retrieving revision 1.41
diff -u -d -r1.40 -r1.41
--- nacho	15 Mar 2003 20:15:38 -0000	1.40
+++ nacho	15 Mar 2003 21:39:17 -0000	1.41
@@ -113,8 +113,8 @@
 
 # show all lists
 sub show_lists {
-    foreach my $list ( Siesta->storage->get_lists ) {
-        print $list->id . "\n";
+    foreach my $list ( Siesta->lists ) {
+        print $list->name . "\n";
     }
 }
 
@@ -224,7 +224,7 @@
 
     my $user = Siesta::User->new($user_id) || die "Not a valid user id\n";
 
-    foreach my $list ( Siesta->storage->get_lists ) {
+    foreach my $list ( Siesta->lists ) {
         $list->remove_member($user_id);
     }
 
@@ -815,7 +815,7 @@
 sub run_mhonarc {
     $ENV{M2H_PATTERN}  = '^[^\.]';
     $ENV{M2H_SPAMMODE} = 1;
-    for my $list ( map { $_->id } Siesta->storage->get_lists ) {
+    for my $list ( map { $_->name } Siesta->lists ) {
         my $input  = $Siesta::Config::ARCHIVE . "/$list";
         my $output = $Siesta::Config::ROOT . "/html/$list";
         mkpath($output);

• [siesta-commit] siesta/bin nacho,1.40,1.41 clampr 21:39 on 15 Mar 2003

Generated at 13:57 on 01 Jul 2004 by mariachi 0.52