r77698 - /scripts/forward-bug
gregoa at users.alioth.debian.org
gregoa at users.alioth.debian.org
Thu Jul 21 14:43:40 UTC 2011
Author: gregoa
Date: Thu Jul 21 14:43:38 2011
New Revision: 77698
URL: http://svn.debian.org/wsvn/?sc=1&rev=77698
Log:
two typos and a TODO or commented out because not working idea)
Modified:
scripts/forward-bug
Modified: scripts/forward-bug
URL: http://svn.debian.org/wsvn/scripts/forward-bug?rev=77698&op=diff
==============================================================================
--- scripts/forward-bug (original)
+++ scripts/forward-bug Thu Jul 21 14:43:38 2011
@@ -41,7 +41,7 @@
if (!$dist) {
open my $dctrl, '<', 'debian/control'
- or die "Err: Can't open debain/control for reading: $!";
+ or die "Err: Can't open debian/control for reading: $!";
while (<$dctrl>) {
if (/^Homepage/) {
@@ -53,7 +53,7 @@
if (!$dist) {
open my $dcopyright, '<', 'debian/copyright'
- or die "Err: Can't open debain/copyright for reading: $!";
+ or die "Err: Can't open debian/copyright for reading: $!";
while (<$dcopyright>) {
if (/^Source/) {
@@ -79,6 +79,11 @@
if ($info -> {'forwarded'}) {
die 'Err: Bug already forwarded at '.$info -> {'forwarded'};
}
+
+# (cf. http://wiki.debian.org/DebbugsSoapInterface)
+# would be nice to get the body of the first message
+# this one should do but fails with a SOAP error
+# my $log = $soap -> get_bug_log($bug) -> result();
# RT config
my $rtserver = 'https://rt.cpan.org';
More information about the Pkg-perl-cvs-commits
mailing list