#!/usr/local/bin/perl

$url = shift(@ARGV);

unless($url) { die "requires argument of url\n"; }

require 'w3bbc_html.pl';

$libwww_perl_version = '0.30';

unshift(@INC, $ENV{'LIBWWW_PERL'} ||
  "/homes/bcutter/dev/tkperl/libwww/libwww-perl-$libwww_perl_version");

require 'www.pl';

&www'set_def_header('http','User-Agent',"testhtml/0.1 $www'Library");


$response = &www'request('GET',$url,*headers,*content,30);

&w3bbc_html'reset_tags('text');
&w3bbc_html'parse_html(*links,$content);
%opts = (
#'_unknown','preserve', # preserve or unknown (def)
'_debug',  1,
);
$processed = &w3bbc_html'process_html(*opts,*links);

print STDERR <<EOF;
                                     HTML
----------------------------------------------------------------------
$content
----------------------------------------------------------------------
                                Processed Text
----------------------------------------------------------------------
$processed
----------------------------------------------------------------------
EOF