5 require '/etc/debbugs/config';
11 if ($in{'type'} eq 'ref') {
13 s/^\s+//; s/^\#//; s/^\s+//; s/^0*//; s/\s+$//;
15 if (m/\D/ || !m/\d/) {
17 Content-Type: text/html
19 <html><head><title>Bug number not numeric</title>
21 <h1>Invalid input to specific bug fetch form</h1>
23 You must type a number, being the bug reference number.
24 There should be no nondigits in your entry.
30 $suburl =~ s,^..,$&/$&,;
32 } elsif ($in{'type'} eq 'package') {
34 s/^\s+//; s/\s+$//; y/A-Z/a-z/;
35 if (m/^[^0-9a-z]/ || m/[^-+.0-9a-z]/) {
37 Content-Type: text/html
39 <html><head><title>Package name contains invalid characters</title>
41 <h1>Invalid input to package buglist fetch form</h1>
43 You must type a package name. Package names start with a letter
44 or digit and contain only letters, digits and the characters
45 - + . (hyphen, plus, full stop).
50 $suburl= "pa/l$_.html";
53 Content-Type: text/plain
55 Please use the real DBC_WHO form. (invalid type value)
60 $base= $ENV{'HTTP_REFERER'};
61 if ($base =~ s:/${gWebHostBugDir}/.*$::) {
63 $base= $map{$y} if $base eq $y;
69 $newurl= "$base/${gWebHostBugDir}/db/$suburl";
74 The bug report data you are looking for ($suburl)
75 is available <A href="$newurl">here</A>.
77 (If this link does not work then the bug or package does not exist in
78 the tracking system any more, or does not yet, or never did.)