Package: devscripts Version: 2.10.49 Severity: wishlist File: /usr/bin/mass-bug Tags: patch
Add a new option for submitting bugs against source package instead of binary packages. This is useful for filing build-related issues. -- Package-specific info: --- /etc/devscripts.conf --- --- ~/.devscripts --- DEBUILD_DPKG_BUILDPACKAGE_OPTS="-i -ICVS -I.svn" DEBUILD_PRESERVE_ENVVARS="DISPLAY" DEBUILD_LINTIAN=yes DEBUILD_LINTIAN_OPTS=-i DEBCHANGE_RELEASE_HEURISTIC=changelog DEBCHANGE_MULTIMAINT_MERGE=yes -- System Information: Debian Release: squeeze/sid APT prefers unstable APT policy: (500, 'unstable') Architecture: amd64 (x86_64) Kernel: Linux 2.6.29-1-amd64 (SMP w/2 CPU cores) Locale: LANG=en_US.UTF-8, LC_CTYPE=en_US.UTF-8 (charmap=UTF-8) Shell: /bin/sh linked to /bin/bash Versions of packages devscripts depends on: ii dpkg-dev 1.14.26 Debian package development tools ii libc6 2.9-10 GNU C Library: Shared libraries ii perl 5.10.0-22 Larry Wall's Practical Extraction Versions of packages devscripts recommends: pn at <none> (no description available) ii bsd-mailx [mailx] 8.1.2-0.20081101cvs-2 A simple mail user agent ii bzr 1.14-1 easy to use distributed version co ii curl 7.19.4-1 Get a file from an HTTP, HTTPS or ii cvs 1:1.12.13-12 Concurrent Versions System ii dctrl-tools 2.13.1 Command-line tools to process Debi ii debian-keyring 2009.04.04 GnuPG (and obsolete PGP) keys of D pn debian-maintainers <none> (no description available) ii dput 0.9.4 Debian package upload tool ii equivs 2.0.7-0.1 Circumvent Debian package dependen ii fakeroot 1.12.2 Gives a fake root environment ii git-core 1:1.6.2.4-1 fast, scalable, distributed revisi ii gnupg 1.4.9-4 GNU privacy guard - a free PGP rep ii iceweasel [www-bro 3.0.9-1 lightweight web browser based on M ii kazehakase [www-br 0.5.4-2.2 GTK+-base web browser that allows ii konqueror [www-bro 4:4.2.2-1 KDE 4's advanced file manager, web ii libauthen-sasl-per 2.12-1 Authen::SASL - SASL Authentication ii libcrypt-ssleay-pe 0.57-1+b1 Support for https protocol in LWP ii libparse-debcontro 2.005-2 Easy OO parsing of Debian control- ii libsoap-lite-perl 0.710.08-2 Client and server side SOAP implem ii libterm-size-perl 0.2-4+b1 Perl extension for retrieving term ii libtimedate-perl 1.1600-9 Time and date functions for Perl ii liburi-perl 1.37+dfsg-1 Manipulates and accesses URI strin ii libwww-perl 5.826-1 WWW client/server library for Perl pn libyaml-syck-perl <none> (no description available) ii lintian 2.2.10 Debian package checker ii lsb-release 3.2-22 Linux Standard Base version report ii lynx-cur [www-brow 2.8.7pre2-1 Text-mode WWW Browser with NLS sup ii mailx 1:20081101-2 Transitional package for mailx ren ii man-db 2.5.5-1 on-line manual pager ii mercurial 1.2-1 scalable distributed version contr ii openssh-client [ss 1:5.1p1-5+b1 secure shell client, an rlogin/rsh ii patch 2.5.9-5 Apply a diff file to an original ii patchutils 0.3.1-1 Utilities to work with patches ii strace 4.5.18-1 A system call tracer ii subversion 1.5.6dfsg-1 Advanced version control system ii unzip 5.52-12 De-archiver for .zip files ii w3m [www-browser] 0.5.2-2+b1 WWW browsable pager with excellent ii wdiff 0.5-18 Compares two files word by word ii wget 1.11.4-2 retrieves files from the web Versions of packages devscripts suggests: ii build-essential 11.4 Informational list of build-essent pn cvs-buildpackage <none> (no description available) pn devscripts-el <none> (no description available) ii gnuplot 4.2.5-1 A command-line driven interactive pn libfile-desktopentry-perl <none> (no description available) ii libnet-smtp-ssl-perl 1.01-2 SSL support for Net::SMTP ii mutt 1.5.18-6+b1 text-based mailreader supporting M ii svn-buildpackage 0.6.23 helper programs to maintain Debian -- no debconf information
--- /usr/bin/mass-bug 2009-05-03 04:38:38.000000000 +1000 +++ mass-bug 2009-05-08 00:32:56.000000000 +1000 @@ -96,6 +96,10 @@ Set the BTS pseudo-header for usertags. +=item --source + +Submit to source packages, not binary + =item --sendmail=SENDMAILCMD Specify the sendmail command. The command will be split on white @@ -183,6 +187,7 @@ --no-wrap Don't wrap the template to 70 chars. --no-conf, --noconf Don\'t read devscripts config files; must be the first option given + --source Submit to source packages, not binary --help Display this message --version Display version and copyright info @@ -279,6 +284,7 @@ my $user=shift; my $usertags=shift; my $nowrap=shift; + my $type=shift; my $version=""; my $bugtext; @@ -304,7 +310,7 @@ $template_text=fill("", "", $template_text); } } - $bugtext = "Package: $package\n$version" . "Severity: $severity\n$tags$user$usertags\n$template_text"; + $bugtext = "$type: $package\n$version" . "Severity: $severity\n$tags$user$usertags\n$template_text"; return $bugtext; } @@ -373,6 +379,7 @@ my $usertags=""; my $opt_sendmail; my $nowrap=""; +my $source=0; if (! GetOptions( "display" => sub { $mode="display" }, "send" => sub { $mode="send" }, @@ -382,6 +389,7 @@ "user=s" => \$user, "usertags=s" => \$usertags, "sendmail=s" => \$opt_sendmail, + "source" => \$source, "help" => sub { usage(); exit 0; }, "version" => sub { version(); exit 0; }, "no-wrap" => sub { $nowrap=1; }, @@ -430,6 +438,13 @@ } $sendmailcmd = $opt_sendmail if $opt_sendmail; +if ($source) { + $source="Source"; +} +else { + $source="Package"; +} + my $template=shift; my $package_list=shift; @@ -464,7 +479,7 @@ print "To: $submission_email\n"; print "Subject: ".gen_subject($subject, $package)."\n"; print "\n"; - print gen_bug($template_text, $package, $severity, $tags, $user, $usertags, $nowrap)."\n"; + print gen_bug($template_text, $package, $severity, $tags, $user, $usertags, $nowrap, $source)."\n"; } if ($mode eq 'display') { @@ -496,7 +511,7 @@ foreach my $package (@packages) { print "Sending bug for $package ...\n"; mailbts(gen_subject($subject, $package), - gen_bug($template_text, $package, $severity, $tags, $user, $usertags, $nowrap), + gen_bug($template_text, $package, $severity, $tags, $user, $usertags, $nowrap, $source), $submission_email, $from); } print "All bugs sent.\n";