[Mud-builder-commits] r151 - trunk

[jaffa at garage.maemo.org]

Author: jaffa
Date: 2007-02-16 19:40:52 +0200 (Fri, 16 Feb 2007)
New Revision: 151

Modified:
   trunk/mud
Log:
Implement --all functionality

Modified: trunk/mud
===================================================================
--- trunk/mud	2007-02-16 17:38:14 UTC (rev 150)
+++ trunk/mud	2007-02-16 17:40:52 UTC (rev 151)
@@ -58,16 +58,19 @@
 $config = new MUD::Config(%$config);
 
 my $action = shift;
+my @pkgs   = @ARGV;
 if ($OPTS{all}) {
-    die "TODO: Not implemented";
-} else {
-    foreach my $n (@ARGV) {
-        $n = basename($n, ".xml") if -f $n;
-        eval("print \&$action(\$n)");
-        croak "Failed to run $action on $n: $@\n" if $@;
-    }
+    opendir(DIR, $config->directory('PACKAGES_DIR')) or die "Can't read packages dir: $!\n";
+    @pkgs = map { s/\.xml$//; $_ } grep { /\.xml$/ } readdir(DIR);
+    closedir(DIR);
 }
 
+foreach my $n (@pkgs) {
+    $n = basename($n, ".xml") if -f $n;
+    eval("print \&$action(\$n)");
+    croak "Failed to run $action on $n: $@\n" if $@;
+}
+
     
 exit;