#!/opt/exptools/perl/bin/perl
# may be get from line too, in case stacie wants to use it

use LWP::Simple;
use LWP::UserAgent;
use HTML::LinkExtor;

$baseurl ="http://bugzilla.mozilla.org/";

$ua=new LWP::UserAgent;
$ua->agent('4.75C-SGI [en] (X11; U; IRIX64 6.5 IP30)');
$ua ->proxy(['http','ftp'] => 'http://webproxy.research.bell-labs.com:8000');


#my $req = new HTTP::Request GET => $baseurl .'?'. $pars;
#$res = $ua ->request ($req);


$res="";$nlines=0;
while (<STDIN>){
	chop();
	$bug=$_;
	if ($bugs{$bug} eq ""){
		print STDERR $bug ."\n";
		if ($ARGV[0] eq "print"){
			$req = new HTTP::Request GET => $baseurl .'long_list.cgi?buglist='. $bug;
			$res = $ua ->request ($req);
			if ($res->is_success){
				print ($res ->as_string ()) ."\n";
			}else{
				print STDERR "bad $bug\n";
			}
		}
		if ($ARGV[0] eq "status"){
			$req = new HTTP::Request GET => $baseurl .'show_activity.cgi?id='. $bug;
			$res1 = $ua ->request ($req);
			if ($res1->is_success){
				print ($res1 ->as_string ()) ."\n";
			}else{
				print STDERR "bad $bug\n";
			}
		}
		if ($ARGV[0] eq "html"){
			$req = new HTTP::Request GET => $baseurl .'show_bug.cgi?id='. $bug;
			$res1 = $ua ->request ($req);
			if ($res1->is_success){
				print ($res1 ->as_string ()) ."\n";
			}else{
				print STDERR "bad $bug\n";
			}
		}
	}
	$nlines ++;
}