use Debbugs::Control::Service qw(:all);
use Debbugs::Log qw(:misc);
use Debbugs::Text qw(:templates);
use Scalar::Util qw(looks_like_number);
use Debbugs::Control::Service qw(:all);
use Debbugs::Log qw(:misc);
use Debbugs::Text qw(:templates);
use Scalar::Util qw(looks_like_number);
} elsif (m/^subscribe/i) {
print {$transcript} <<END;
There is no $gProject $gBug mailing list. If you wish to review bug reports
} elsif (m/^subscribe/i) {
print {$transcript} <<END;
There is no $gProject $gBug mailing list. If you wish to review bug reports
my %chtags;
if (defined $tags and length $tags) {
for my $t (split /[,\s]+/, $tags) {
my %chtags;
if (defined $tags and length $tags) {
for my $t (split /[,\s]+/, $tags) {
- print {$transcript} "Usertags are now: " . join(" ", @newtags) . ".\n";
+ if (@newtags == 0) {
+ print {$transcript} "There are now no usertags set.\n";
+ } else {
+ print {$transcript} "Usertags are now: " . join(" ", @newtags) . ".\n";
+ }
To => $replyto,
@maintccs ? (Cc => join(', ',@maintccs)):(),
Subject => "Processed${error_text}: $header{subject}",
To => $replyto,
@maintccs ? (Cc => join(', ',@maintccs)):(),
Subject => "Processed${error_text}: $header{subject}",
close(D);
print {$transcript} "Sending $description in separate message.\n";
&sendmailmessage(<<END.$doc,$replyto);
close(D);
print {$transcript} "Sending $description in separate message.\n";
&sendmailmessage(<<END.$doc,$replyto);
- open(L,"lynx -nolist -dump http://$gCGIDomain/\Q$relpath\E 2>&1 |") || die "fork for lynx: $!";
+ # work around DSA cert setup
+ $ENV{SSL_CERT_FILE}='/etc/ssl/ca-debian/ca-certificates.crt';
+ open(L,"lynx -nolist -dump https://$gCGIDomain/\Q$relpath\E 2>&1 |") || die "fork for lynx: $!";
if ($? == 255 && $doc =~ m/^\n*lynx: Can\'t access start file/) {
print {$transcript} "Information ($description) is not available -\n".
"perhaps the $gBug does not exist or is not on the WWW yet.\n";
if ($? == 255 && $doc =~ m/^\n*lynx: Can\'t access start file/) {
print {$transcript} "Information ($description) is not available -\n".
"perhaps the $gBug does not exist or is not on the WWW yet.\n";
} else {
print {$transcript} "Sending $description.\n";
&sendmailmessage(<<END.$doc,$replyto);
} else {
print {$transcript} "Sending $description.\n";
&sendmailmessage(<<END.$doc,$replyto);
}
print {$transcript} "Sending $description.\n";
&sendmailmessage(<<END.$doc,$replyto);
}
print {$transcript} "Sending $description.\n";
&sendmailmessage(<<END.$doc,$replyto);