r42142 - /scripts/examples/gen-itp

[ryan52-guest at users.alioth.debian.org]

Author: ryan52-guest
Date: Thu Aug 20 09:14:33 2009
New Revision: 42142

URL: http://svn.debian.org/wsvn/?sc=1&rev=42142
Log:
add an env var, SECRETLY_ITP, to make ITPs not go to debian-{wnpp,devel,perl}

Modified:
    scripts/examples/gen-itp

Modified: scripts/examples/gen-itp
URL: http://svn.debian.org/wsvn/scripts/examples/gen-itp?rev=42142&op=diff
==============================================================================
--- scripts/examples/gen-itp (original)
+++ scripts/examples/gen-itp Thu Aug 20 09:14:33 2009
@@ -68,7 +68,11 @@
 }
 
 p "From: " . $changelog->{Maintainer};
-p "To: Debian Bug Tracking System <submit\@bugs.debian.org>";
+if($ENV{SECRETLY_ITP}) {
+    p "To: Debian Bug Tracking System <quiet\@bugs.debian.org>";
+} else {
+    p "To: Debian Bug Tracking System <submit\@bugs.debian.org>";
+}
 p "Subject: ITP: " . $source->{Source} . " -- " . $short_description;
 p "Date: " . `date -R`;
 # ^ that adds an extra newline ... bwahahahaha!
@@ -81,10 +85,12 @@
 p "Package: wnpp";
 p "Owner: " . $owner;
 p "Severity: wishlist";
+if(!$ENV{SECRETLY_ITP}) {
 if($lang eq "Perl") {
     p "X-Debbugs-CC: debian-devel\@lists.debian.org,debian-perl\@lists.debian.org";
 } else {
     p "X-Debbugs-CC: debian-devel\@lists.debian.org";
+}
 }
 p;
 p "* Package name    : " . $source->{Source};