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.
29 $suburl= "bugreport.cgi?bug=$_";
30 } elsif ($in{'type'} eq 'package') {
32 s/^\s+//; s/\s+$//; y/A-Z/a-z/;
33 if (m/^[^0-9a-z]/ || m/[^-+.0-9a-z]/) {
35 Content-Type: text/html
37 <html><head><title>Package name contains invalid characters</title>
39 <h1>Invalid input to package buglist fetch form</h1>
41 You must type a package name. Package names start with a letter
42 or digit and contain only letters, digits and the characters
43 - + . (hyphen, plus, full stop).
48 $suburl= "pkgreport.cgi?pkg=$_";
51 Content-Type: text/plain
53 Please use the real DBC_WHO form. (invalid type value)
60 $newurl= "http://$base/$suburl";
65 The bug report data you are looking for ($suburl)
66 is available <A href="$newurl">here</A>.
68 (If this link does not work then the bug or package does not exist in
69 the tracking system any more, or does not yet, or never did.)