Bush, Cheney meet Sept. 11 panel - United Press International
  US detention tests scope of antiterror law - Baltimore Sun
  China Welcomes US Decision to Reject Unions' Trade Complaint - Bloomberg
  Brazil says rich nations face many subsidy cases - Forbes
  Bayh: Humvees needed - Indianapolis Star
  Officials investigate LA mall threat - Seattle Post Intelligencer

####

  all 2,276 related » - Voice of America
  all 376 related » - Washington Post
  all 1,138 related » - Seattle Times
  all 350 related » - Guardian
  all 300 related » - ABC News
  all 71 related » - Chicago Sun Times

#### #!/perl/bin/perl #use strict; #use warnings; use LWP::UserAgent; use CGI qw(:header); use CGI::Carp qw(fatalsToBrowser); use CGI qw/:standard/; #print header(); my ($ua,$req,$res); my $pre=" "; my $post=""; my $x=0; $ua = LWP::UserAgent->new; $ua->agent("$0/0.1 " . $ua->agent); $ua->agent("Mozilla/8.0"); # pretend we are very capable browser $req = HTTP::Request->new(GET => 'http://news.google.com/news?ned=us&topic=n'); $req->header('Accept' => 'text/html'); # send request $res = $ua->request($req); # my $outfile = "news_test.txt"; # check the outcome #####'' my ($content) = $res->content; open(OUT,">news_test.txt") || die("Cannot Open File $outfile"); print OUT $content; close(OUT); if ($content) { $DATA ="

"; @news_page=split(/(.*?)<\/a>(.*?)6f6f6f>(.*?)&/) { $edit_url=$1; #added $edit_url2=$2; #added $edit_url3=$3; #added $edit_url4=$4; #added open(OUT,">c:\\progra~1\\apache~1\\apache2\\htdocs\\acar\\line.txt") || die("Cannot Open File"); print OUT $line; close(OUT); # If news doesn't work check this line first #if ($edit_url=~/(url\?q=)(.*?)/){$edit_url =~ s/(.*?)url\?q=$2/$2/gi;}#else{print "No match- $re_url";exit;} #added if ($edit_url=~/(url\?ntc=)(.*?)(\bq=\b)/){$edit_url =~ s/(.*?)url\?ntc=(.*?)(\bq=\b)//gi;} #else{print "No match- $edit_url";exit;} #added #http://news.google.com/url?ntc=02SF0&q= #http://www.chicagotribune.com/news/local/chi-0401090381jan09,1,1855420.story%3Fcoll%3Dchi-news-hed if($edit_url=~s/\%3F/\?/) { if($edit_url=~s/\%3D/\=/){ } } unless ($x > 5 ) { #$DATA=$DATA."$pre $2 - $4\n"; $DATA=$DATA."$pre $edit_url2 - $edit_url4\n"; #added $x++; } } } $DATA=$DATA."

"; if ($DATA=~/$r_news") || die "Couldn't get it!"; #|| &open_error; print DATA_IN $DATA; close DATA_IN; } else { print "
L80- ERROR 1
"; #&parse_error; } } else { print "
L=86 - ERROR 2
"; #&http_error; }