[siesta-commit] siesta/bin nacho,1.21,1.22

[prev] [thread] [next] [lurker] [Date index for 2002/09/14]

From: muttley
Subject: [siesta-commit] siesta/bin nacho,1.21,1.22
Date: 17:12 on 14 Sep 2002
Update of /cvsroot/siesta/siesta/bin
In directory usw-pr-cvs1:/tmp/cvs-serv11212/bin

Modified Files:
	nacho 
Log Message:
Fix some stuff in the listing of plugins.


Index: nacho
===================================================================
RCS file: /cvsroot/siesta/siesta/bin/nacho,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -d -r1.21 -r1.22
--- nacho	14 Sep 2002 09:49:42 -0000	1.21
+++ nacho	14 Sep 2002 16:12:55 -0000	1.22
@@ -134,7 +134,7 @@
     print "\nThe list $list_id has the following members : \n";
     print "----\n";
     foreach my $user ( $list->members() ) {
-        printf "%s %s <%s>\n", $user->forename(), $user->surname(), $user->id();
+        printf "%s %s <%s>\n", $user->forename()||"", $user->surname()||"", $user->id();
     }
 
 }
@@ -448,9 +448,17 @@
 
 sub show_all_plugins {
 
-    print "This system currently has these plugins installed : \n";
+    print "This system currently has these plugins installed : \n\n";
     foreach my $plugin ( Siesta->list_all_plugins() ) {
-        print "$plugin\n";
+       my $class = "Siesta::Plugin::".$plugin; 
+       eval "require $class";
+       die $@ if $@;
+
+       # h-hack
+       my $tmp = $class."::DESCRIPTION";
+       my $description = $$tmp || "";
+       
+       print "$plugin -\n $description\n\n";
     }
 
 }



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