I was a dumbass and forgot the attachment.

-- 
G. Branden Robinson                |
Debian GNU/Linux                   |           //     // //  /     /
[EMAIL PROTECTED]                 |           EI 'AANIIGOO 'AHOOT'E
http://people.debian.org/~branden/ |
diff -urN debbugs-2.4.1/debian/changelog 
debbugs-2.4.1.1.branden.1/debian/changelog
--- debbugs-2.4.1/debian/changelog      2003-06-06 03:28:51.000000000 -0500
+++ debbugs-2.4.1.1.branden.1/debian/changelog  2005-02-02 01:56:35.000000000 
-0500
@@ -1,3 +1,42 @@
+debbugs (2.4.1.1.branden.1) unstable; urgency=low
+
+  * Local version (not an NMU) for testing purposes.
+  * (scripts/service.in): Fix several cosmetic problems:
+    + Clarify message as being due to administrative prohibition when a user
+      is refused access thanks to being in @gFuckheads.  Also report the
+      reply-to address so affected so that such prohibitions can be more
+      easily debugged by the BTS administrators, and accidents more readily
+      detected (shock, horror!).
+    + Clarify that the "close" command is deprecated for most, but not all
+      purposes.
+    + State the address of the person who requested a submitter change
+      literally instead of using the ambiguous and possibly incorrect term
+      "them" (the requestor might be a "he" or "she").
+    + Always report a bug's previous state when changing it; this makes it
+      easier to revert mistaken changes:
+      - If a bug is being reassigned but was not assigned to any package,
+        report that fact.
+      - Indicate old severity when changing to a new severity.
+      - Indicate other bugs a report was merged with when unmerging it.
+      - Indicate the specific other bugs a bug is merged with when refusing to
+        clone it.
+    + Use double-quotes (") instead of grave accents and apostrophes as
+      quotation marks.
+    + Fix a couple of other very minor instances of non-idiomatic punctuation
+      orthography to be consistent with standard usage.
+    + Consistently put periods at the ends of sentences and fragments
+      otherwise treated as sentences.
+    + Fix some awkward back-indentation that appears to have been intended to
+      force lines to fit within 80 columns, a convention which is generally
+      disregarded throughout the file anyway.  (These lines were changed to
+      wrap and use the string-concatenation operator as necessary.)
+  * (debian/control): Rewrite short and extended package description.
+  * (debian/control): Don't recommend a pure virtual package (httpd);
+    instead recommend apache with httpd as an alternative -- quiets Lintian
+    warning.
+
+ -- Branden Robinson <[EMAIL PROTECTED]>  Sat, 29 Jan 2005 20:55:15 -0500
+
 debbugs (2.4.1) unstable; urgency=low
 
   * Colin Watson:
diff -urN debbugs-2.4.1/debian/control debbugs-2.4.1.1.branden.1/debian/control
--- debbugs-2.4.1/debian/control        2003-06-05 21:26:20.000000000 -0500
+++ debbugs-2.4.1.1.branden.1/debian/control    2005-01-29 21:13:45.000000000 
-0500
@@ -9,14 +9,17 @@
 Package: debbugs
 Architecture: all
 Depends: perl5 | perl, exim | mail-transport-agent, libmailtools-perl, ed, 
libmime-perl, libio-stringy-perl
-Recommends: httpd, links | lynx
-Description: The bug tracking system based on the active Debian BTS
+Recommends: apache | httpd, links | lynx
+Description: bug tracking system used by the Debian Project
  Debian has a bug tracking system which files details of bugs reported by
- users and developers. Each bug is given a number, and is kept on file until
- it is marked as having been dealt with. The system is mainly controlled by
- e-mail, but the bug reports can be viewed using the WWW.
+ users and developers.  Each bug is given a number, and is kept on file until
+ it is marked as having been dealt with.  The system is mainly controlled by
+ e-mail, but the bug reports can be viewed via the WWW.
  .
  This version is fully functional, but it does not automatically configure.
  See /usr/share/doc/debbugs/README.Debian after installation.
  .
- Note: there might be various issues with this package, caveat emptor.
+ Note: This package does not necessarily correspond to the exact version of
+ debbugs used by the Debian Bug Tracking System (BTS); this version may
+ therefore have problems that are not evident at the Debian BTS web site --
+ caveat emptor!
diff -urN debbugs-2.4.1/scripts/service.in 
debbugs-2.4.1.1.branden.1/scripts/service.in
--- debbugs-2.4.1/scripts/service.in    2003-06-05 03:26:59.000000000 -0500
+++ debbugs-2.4.1.1.branden.1/scripts/service.in        2005-01-29 
20:54:59.000000000 -0500
@@ -131,7 +131,8 @@
 
 my $fuckheads = "(" . join("|", @gFuckheads) . ")";
 if (@gFuckheads and $replyto =~ m/$fuckheads/) {
-       &transcript("This service is unavailable.\n\n");
+        &transcript("This service is unavailable due to an administrative ".
+                    "prohibition affecting\n\"$replyto\".\n\n");
        $quickabort = 1;
 }
 
@@ -180,7 +181,7 @@
     } elsif (m/^index(\s+|-)maint\s+(\S+)$/i) {
        $maint = $2;
        &sendlynxdoc("pkgreport.cgi?maint=" . urlsanit($maint),
-                    "$gBug list for maintainer \`$maint'");
+                    "$gBug list for maintainer \"$maint\"");
         $ok++;
     } elsif (m/^index(\s+|-)pack(age)?s?\s+(\S.*\S)$/i) {
        $package = $+;
@@ -242,7 +243,12 @@
        $ok++;
        $ref= $1;
        if (&setbug) {
-           &transcript("'close' is deprecated; see 
http://$gWebDomain/Developer$gHTMLSuffix#closing.\n";);
+           &transcript(<<END);
+The "close" command is deprecated for most purposes; please see
+<URL: http://$gWebDomain/Developer$gHTMLSuffix#closing > for further
+information.
+
+END
            if (length($data->{done})) {
                &transcript("$gBug is already closed, cannot re-close.\n\n");
                 &nochangebug;
@@ -287,10 +293,11 @@
        $newpackage =~ y/A-Z/a-z/;
         if (&setbug) {
             if (length($data->{package})) {
-                $action= "$gBug reassigned from package \`$data->{package}'".
-                         " to \`$newpackage'.";
+                $action= "$gBug reassigned from package \"$data->{package}\"".
+                         " to \"$newpackage\".";
             } else {
-                $action= "$gBug assigned to package \`$newpackage'.";
+                $action= "$gBug was not assigned to a package.\n".
+                         "$gBug now assigned to package \"$newpackage\".";
             }
             do {
                 &addmaintainers($data->{package});
@@ -357,7 +364,7 @@
 
 This change was made by
 $replyto.
-If it was incorrect, please contact them directly.
+If it was incorrect, please contact $replyto directly.
 
 $gMaintainer
 (administrator, $gProject $gBugs database)
@@ -372,9 +379,11 @@
         $ref= $1; $whereto= $2;
         if (&setbug) {
             if (length($data->{forwarded})) {
-    $action= "Forwarded-to-address changed from $data->{forwarded} to 
$whereto.";
+                $action= "Forwarded-to-address changed from ".
+                         "$data->{forwarded} to $whereto.";
             } else {
-    $action= "Noted your statement that $gBug has been forwarded to $whereto.";
+                $action= "Noted your statement that $gBug has been forwarded ".
+                         "to $whereto.";
             }
             if (length($data->{done})) {
                 $extramessage= "(By the way, this $gBug is currently marked as 
done.)\n";
@@ -395,7 +404,8 @@
                 &transcript("$gBug is not marked as having been 
forwarded.\n\n");
                 &nochangebug;
             } else {
-    $action= "Removed annotation that $gBug had been forwarded to 
$data->{forwarded}.";
+                $action= "Removed annotation that $gBug has been forwarded to 
".
+                         "$data->{forwarded}.";
                 do {
                     &addmaintainers($data->{package});
                     $data->{forwarded}= '';
@@ -408,15 +418,16 @@
         $ref= $1;
         $newseverity= $2;
         if (!grep($_ eq $newseverity, @gSeverityList, "$gDefaultSeverity")) {
-            &transcript("Severity level \`$newseverity' is not known.\n".
+            &transcript("Severity level \"$newseverity\" is not known.\n".
                        "Recognized are: $gShowSeverities.\n\n");
         } elsif (exists $gObsoleteSeverities{$newseverity}) {
-            &transcript("Severity level \`$newseverity' is obsolete. " .
+            &transcript("Severity level \"$newseverity\" is obsolete. " .
                         "$gObsoleteSeverities{$newseverity}\n\n");
         } elsif (&setbug) {
             $printseverity= $data->{severity};
             $printseverity= "$gDefaultSeverity" if $printseverity eq '';
-           $action= "Severity set to \`$newseverity'.";
+            $action= "Severity was \"$data->{severity}\".\n".
+                     "Severity set to \"$newseverity\".";
            do {
                 &addmaintainers($data->{package});
                 $data->{severity}= $newseverity;
@@ -448,7 +459,7 @@
            if ($data->{keywords} eq '') {
                &transcript("There were no tags set.\n");
            } else {
-               &transcript("Tags were: $data->{keywords}\n");
+               &transcript("Tags were: $data->{keywords}.\n");
            }
            if ($addsub eq "set") {
                $action= "Tags set to: " . join(", ", @okaytags);
@@ -503,7 +514,8 @@
                &nochangebug;
            } else {
                 $mergelowstate eq 'locked' || die "$mergelowstate ?";
-               $action= "Disconnected #$ref from all other report(s).";
+                $action= "$gBug was merged with bug(s) $data->{mergedwith}.\n".
+                         "Disconnected #$ref from all other report(s).";
                @newmergelist= split(/ /,$data->{mergedwith});
                 $discref= $ref;
                 do {
@@ -537,8 +549,8 @@
            &checkmatch('done mark','m_done',length($data->{done}) ? 'done' : 
'open');
            foreach my $t (split /\s+/, $data->{keywords}) { $tags{$t} = 1; }
            if (length($mismatch)) {
-               &transcript("Mismatch - only $gBugs in same state can be 
merged:\n".
-                            $mismatch."\n");
+               &transcript("Mismatch -- only $gBugs in same state can be ".
+                            "merged:\n".$mismatch."\n");
                &cancelbug; @newmergelist=(); last;
            }
             push(@newmergelist,$ref);
@@ -549,7 +561,7 @@
             @newmergelist= sort { $a <=> $b } @newmergelist;
             $action= "Merged @newmergelist.";
            for $ref (@newmergelist) {
-               &getbug || die "huh ?  $gBug $ref disappeared during merge";
+               &getbug || die "huh?  $gBug $ref disappeared during merge";
                 &addmaintainers($data->{package});
                $data->{mergedwith}= join(' ',grep($_ ne $ref,@newmergelist));
                $data->{keywords}= join(' ', keys %tags);
@@ -568,7 +580,8 @@
        $ref = $origref;
        if (&setbug) {
            if (length($data->{mergedwith})) {
-               &transcript("$gBug is marked as being merged with others.\n\n");
+                &transcript("$gBug is marked as being merged with bug(s) ".
+                            "$data->{mergedwith}.\n\n");
                &nochangebug;
            } else {
                &filelock("nextnumber.lock");
@@ -721,15 +734,15 @@
     local ($mvarvalue);
     if (@newmergelist) {
         eval "\$mvarvalue= \$$mvarname";
-        &transcript("D| checkmatch \`$string' 
/$mvarname/$mvarvalue/$svarvalue/\n")
+        &transcript("D| checkmatch \"$string\" 
/$mvarname/$mvarvalue/$svarvalue/\n")
             if $dl;
         $mismatch .=
-            "Values for \`$string' don't match:\n".
-            " #$newmergelist[0] has \`$mvarvalue';\n".
-            " #$ref has \`$svarvalue'\n"
+            "Values for \"$string\" don't match:\n".
+            " #$newmergelist[0] has \"$mvarvalue\";\n".
+            " #$ref has \"$svarvalue\"\n"
             if $mvarvalue ne $svarvalue;
     } else {
-        &transcript("D| setupmatch \`$string' /$mvarname/$svarvalue/\n")
+        &transcript("D| setupmatch \"$string\" /$mvarname/$svarvalue/\n")
             if $dl;
         eval "\$$mvarname= \$svarvalue";
     }
@@ -1025,7 +1038,7 @@
     while (<MAINT>) {
        m/^\n$/ && next;
        m/^\s*$/ && next;
-        m/^(\S+)\s+(\S.*\S)\s*\n$/ || &quit("maintainers bogus \`$_'");
+        m/^(\S+)\s+(\S.*\S)\s*\n$/ || &quit("maintainers bogus \"$_\"");
         $a= $1; $b= $2; $a =~ y/A-Z/a-z/;
         $maintainerof{$1}= $2;
     }
@@ -1034,7 +1047,8 @@
     while (<MAINT>) {
         m/^\n$/ && next;
         m/^\s*$/ && next;
-        m/^(\S+)\s+(\S.*\S)\s*\n$/ || &quit("maintainers.override bogus 
\`$_'");
+        m/^(\S+)\s+(\S.*\S)\s*\n$/ || &quit("maintainers.override bogus ".
+                                            "\"$_\"");
         $a= $1; $b= $2; $a =~ y/A-Z/a-z/;
         $maintainerof{$1}= $2;
     }

Attachment: signature.asc
Description: Digital signature



Reply via email to