bagder: curl-www/bug feature.cgi,NONE,1.1 view.cgi,NONE,1.1

Update of /cvsroot/curl/curl-www/bug
In directory labb:/tmp/cvs-serv5874

Added Files:
	feature.cgi view.cgi 
Log Message:
show given bug or feature-request 


--- NEW FILE: feature.cgi ---
#!/usr/bin/perl

require "CGI.pm";
require "../curl.pm";

my $num = CGI::param('id');

# remove non-digits
$num =~ s/[^0-9]//g; 

if($num < 10000) {
    print "Content-Type: text/html\n\n";

    header("View a Bug Report");

    print <<MOO
<form action="view.cgi" method="GET">
Enter bug report number:
<input type="text" name="id">
<input type="submit" name="view">
</form>

The number is one of those in the <a href="http://sourceforge.net/bugs/?group_id=976">sourceforge bug tracker</a> for the cURL project.
MOO

;
    footer();

}
else {
    print "Location: http://sourceforge.net/tracker/index.php?func=detail&aid=$num&group_id=976&atid=350976\n\n";
}

--- NEW FILE: view.cgi ---
#!/usr/bin/perl

require "CGI.pm";
require "../curl.pm";

my $num = CGI::param('id');

# remove non-digits
$num =~ s/[^0-9]//g; 

if($num < 10000) {
    print "Content-Type: text/html\n\n";

    header("View a Bug Report");

    print <<MOO
<form action="view.cgi" method="GET">
Enter bug report number:
<input type="text" name="id">
<input type="submit" name="view">
</form>

The number is one of those in the <a href="http://sourceforge.net/bugs/?group_id=976">sourceforge bug tracker</a> for the cURL project.
MOO

;
    footer();

}
else {
    print "Location: http://sourceforge.net/tracker/index.php?func=detail&aid=$num&group_id=976&atid=100976\n\n";
}