[pkg-kolab] r1234 - /

[mparent-guest at alioth.debian.org]

Author: mparent-guest
Date: 2009-03-16 22:33:50 +0000 (Mon, 16 Mar 2009)
New Revision: 1234

Modified:
   pkg-kolab_toolbox
Log:
Allow to issue arbitrary command


Modified: pkg-kolab_toolbox
===================================================================
--- pkg-kolab_toolbox	2009-03-07 18:09:01 UTC (rev 1233)
+++ pkg-kolab_toolbox	2009-03-16 22:33:50 UTC (rev 1234)
@@ -16,6 +16,10 @@
 
 Build all
 
+=item I<command>
+
+Issue a custom command (B<--command>)
+
 =back
 
 =head1 OPTIONS
@@ -38,6 +42,10 @@
 
 Change branch (default: current)
 
+=item B<--command>
+
+Command to be issued when using I<command> (default: dch -i)
+
 =back
 
 =head1 COPYRIGHT AND AUTHORS
@@ -94,6 +102,7 @@
 my $o_man = 0;
 my $o_verbose = '';
 my $o_branch = 'current';
+my $o_command = 'dch -i';
 
 Getopt::Long::Configure('permute');
 my $result = GetOptions(
@@ -102,6 +111,7 @@
     'verbose!' => \$o_verbose,
     '<>' => \&process,
     'branch=s' => \$o_branch,
+    'command=s' => \$o_command,
     ) or pod2usage(2);
 
 pod2usage(-exitstatus => 0, -verbose => 2) if $o_man;
@@ -119,15 +129,25 @@
     if($action eq 'build') {
         for my $package ( keys %{ $branches{$o_branch} } ) {
             my $branch = $branches{$o_branch}{$package};
-	        info("================================");
-	        info($package);
-	        info("================================");
-	        rmtree("$basedir/$package/build-area");
-	        chdir "$basedir/$package/$branch";
-	        system("svn-buildpackage --svn-ignore-new > /dev/null 2> /dev/null");
-	        chdir "$basedir/$package/build-area";
-	        system("lintian --display-info --pedantic --color always *.changes");
+	    info("================================");
+	    info($package);
+	    info("================================");
+	    rmtree("$basedir/$package/build-area");
+	    chdir "$basedir/$package/$branch";
+	    system("svn-buildpackage --svn-ignore-new > /dev/null 2> /dev/null");
+	    chdir "$basedir/$package/build-area";
+	    system("lintian --display-info --pedantic --color always *.changes");
         }
+    } elsif($action eq 'command') {
+        for my $package ( keys %{ $branches{$o_branch} } ) {
+            my $branch = $branches{$o_branch}{$package};
+	    info("================================");
+	    info($package);
+	    info("================================");
+	    chdir "$basedir/$package/$branch";
+	    system($o_command);
+	}
+	
     } else {
         pod2usage(-exitstatus => 0, -verbose => 1, -message => "Invalid action `$action'");
     }