From 3dfaca9b565d883991883feace4d970b5c4fe579 Mon Sep 17 00:00:00 2001 From: gecko <> Date: Mon, 1 May 2000 14:24:03 -0800 Subject: [PATCH 1/1] [project @ 2000-05-01 15:24:03 by gecko] Added the Errors-Email (for setting errors-to email address) All that is left to do to make service ready is change emails to use template email format. This error variable might not be used.. the error-to: can be set in the template, too. --- Debbugs/Config.pm | 1 + debbugs-service | 9 +++++---- devel/debbugs.cfg | 1 + 3 files changed, 7 insertions(+), 4 deletions(-) diff --git a/Debbugs/Config.pm b/Debbugs/Config.pm index 6d02e13..fe2ceea 100644 --- a/Debbugs/Config.pm +++ b/Debbugs/Config.pm @@ -57,6 +57,7 @@ my %ConfigMap = ( "Long Name" => "project-long", "Owner Name" => "owner-name", "Owner Email" => "owner-email", + "Errors Email" => "errors-email", "Owner Webpage" => "owner-webpage", "Spool Dir" => "spool-dir", "Work Dir" => "work-dir", diff --git a/debbugs-service b/debbugs-service index a9ed4e1..3ca5192 100755 --- a/debbugs-service +++ b/debbugs-service @@ -127,10 +127,11 @@ for ( my $procline=0; $procline<=$#body; $procline++) $lowstate eq 'idle' || print "$lowstate ?\n"; $mergelowstate eq 'idle' || print "$mergelowstate ?\n"; - #get first line + #get line $_= $msg[$procline]; s/\s+$//; #strip ending white space, including newlines + #cleanup line next unless m/\S/; #skip blank lines next if m/^\s*\#/; #skip comment-only lines &transcript("> $_\n"); @@ -143,9 +144,9 @@ for ( my $procline=0; $procline<=$#body; $procline++) } elsif (m/^debug\s+(\d+)$/i && $1 >= 0 && $1 <= 1000) { $debug= $1+0; &transcript("Debug level $debug.\n\n"); - } elsif (m/^(send|get)\s+\#?(\d{2,})$/i) { - $ref= $2+0; $reffile= $ref; $reffile =~ s,^..,$&/$&,; - &sendlynxdoc("db/$reffile.html","logs for $gBug#$ref"); + } elsif (m/^(send|get)\s+\#?(\d{2,})$/i) + { $ref= $2+0; $reffile= $ref; $reffile =~ s,^..,$&/$&,; + &sendlynxdoc( "db/$reffile.html", "logs for $gBug#$ref" ); } elsif (m/^send-detail\s+\#?(\d+)$/i) { $ref= $1+0; $reffile= $ref; $reffile =~ s,^..,$&/$&,; &sendlynxdoc("db/$reffile-b.html","additional logs for $gBug#$ref"); diff --git a/devel/debbugs.cfg b/devel/debbugs.cfg index 504410c..8c70e48 100644 --- a/devel/debbugs.cfg +++ b/devel/debbugs.cfg @@ -9,6 +9,7 @@ Short Name = "project-short" Long Name = "project-long" Owner Name = "owner-name" Owner Email = "owner-email" +Errors Email = "errors-email" Spool Dir = "spool-dir" Work Dir = "work-dir" Web Dir = "www-dir" -- 2.39.2