#!/usr/bin/perl require './common.pl'; require '/etc/debbugs/config'; %map= ($gMirrors); my %in = readparse(); if ($in{'type'} eq 'ref') { $_= $in{'ref'}; s/^\s+//; s/^\#//; s/^\s+//; s/^0*//; s/\s+$//; if (m/\D/ || !m/\d/) { print <Bug number not numeric

Invalid input to specific bug fetch form

You must type a number, being the bug reference number. There should be no nondigits in your entry. END exit(0); } $suburl= "bugreport.cgi?bug=$_"; } elsif ($in{'type'} eq 'package') { $_= $in{'package'}; s/^\s+//; s/\s+$//; y/A-Z/a-z/; if (m/^[^0-9a-z]/ || m/[^-+.0-9a-z]/) { print <Package name contains invalid characters

Invalid input to package buglist fetch form

You must type a package name. Package names start with a letter or digit and contain only letters, digits and the characters - + . (hyphen, plus, full stop). END exit(0); } $suburl= "pkgreport.cgi?pkg=$_"; } else { print <here. (If this link does not work then the bug or package does not exist in the tracking system any more, or does not yet, or never did.) END exit(0);