#!/usr/local/bin/perl 
 
#WHAT ARE WE USING?
use LWP::UserAgent ;
use HTML::Parse ;
use HTTP::Request ;
use HTTP::Response ;

$system_type = `/usr/bin/uname `;
$system_version = `/usr/bin/uname -r ` ;
$system_machine = `/usr/bin/uname -m` ;

$system = "$system_type; $system_version; $system_machine";
$system =~ s/\n//g ;
$agent_name = "Dave-zilla/0.01($system)" ;
$print_flag = "plain" ;

foreach $argv ( @ARGV ) {
  #$print_flag = "plain" if $argv eq "-p" ;
  push @pages , $argv if $argv =~ /^http/ ;
  }

$agent = new LWP::UserAgent ;
$agent->agent($agent_name) ;

foreach $url ( @pages ) {

$request = new HTTP::Request('GET',$url) ;
$response = $agent->request($request);


  if ( $response->is_success ) {
    $output = $response->content ;
    
    $output =~ s/\r/\r\n/go ;
    $output =~ s/<table[^>]+>/\n\n/g   unless $print_flag eq "plain"  ;
    $output =~ s/<\/table>/\n\n/g unless $print_flag eq "plain"  ;
    
    $output =~ s/<tr[^>]+>//g unless $print_flag eq "plain" ;
    #$output =~ s/<tr/\n</g    unless $print_flag eq "plain"  ;
    $output =~ s/<\/tr>/\n/g  unless $print_flag eq "plain" ;
    
    $output =~ s/<td>//g      unless $print_flag eq "plain" ;
    $output =~ s/<td/\n</g    unless $print_flag eq "plain" ;
    $output =~ s/<\/td>/\n/g  unless $print_flag eq "plain" ;
    $output =~ s/\&nbsp;/ /g  unless $print_flag eq "plain" ;
    
    $output = parse_html($output) ->format unless $print_flag eq "plain" ; 
    print "$output" ;
    }
  else {
    print $response->error_as_HTML ;
    }
  print "\n" ;
  }