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";

Reply via email to