r77955 - /scripts/git-tag-pending-bugs

[dmn at users.alioth.debian.org]

Author: dmn
Date: Thu Jul 28 14:12:30 2011
New Revision: 77955

URL: http://svn.debian.org/wsvn/?sc=1&rev=77955
Log:
add --debug option

it writes the mail to be sent in ./mailer.testfile

Modified:
    scripts/git-tag-pending-bugs

Modified: scripts/git-tag-pending-bugs
URL: http://svn.debian.org/wsvn/scripts/git-tag-pending-bugs?rev=77955&op=diff
==============================================================================
--- scripts/git-tag-pending-bugs (original)
+++ scripts/git-tag-pending-bugs Thu Jul 28 14:12:30 2011
@@ -11,11 +11,17 @@
 
 use strict;
 use File::Basename qw(basename);
+use Getopt::Long;
 use Git;
 use Mail::Send;
 use Sys::Hostname::Long;
 
 use constant FROM	=> 'pkg-perl-maintainers at lists.alioth.debian.org';
+
+our $opt_debug;
+
+GetOptions( 'debug!' => \$opt_debug )
+    or exit 1;
 
 my( $repo_path, $revision ) = @ARGV;
 
@@ -70,7 +76,14 @@
     )
 );
 
-my $out = $msg->open();
+my $out;
+
+if ( $opt_debug ) {
+    $out = $msg->open('testfile');
+}
+else {
+    $out = $msg->open();
+}
 $out->print("tag $_ + pending\n") foreach @bugs;
 $out->print("thanks\n\n");
 $out->print("Some bugs are closed in revision $revision\nby $author\n\n");