#!/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/buglist.cgi";
$pars='bug_status=UNCONFIRMED&bug_status=NEW&bug_status=ASSIGNED&bug_status=REOPENED&bug_status=RESOLVED&bug_status=VERIFIED&bug_status=CLOSED&email1=&emailtype1=substring&emailassigned_to1=1&email2=&emailtype2=substring&emailreporter2=1&bugidtype=include&bug_id=&changedin=&votes=&chfieldfrom=&chfieldto=Now&chfieldvalue=&short_desc=&short_desc_type=substring&long_desc=&long_desc_type=substring&bug_file_loc=&bug_file_loc_type=substring&status_whiteboard=&status_whiteboard_type=substring&keywords=&keywords_type=anywords&field0-0-0=noop&type0-0-0=noop&value0-0-0=&cmdtype=doit&order=Bug+Number';

$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 POST => $baseurl;
$req ->content_type ('application/x-www-form-urlencoded');
$req->content($pars);
#my $req = new HTTP::Request GET => $baseurl .'?'. $pars;
print STDERR "getting request\n";
$res = $ua ->request ($req);
print STDERR "got request\n";
open (A, "|gzip>bugs.html.gz");
print A $res->as_string();
print STDERR "printed as string request\n";