#!/usr/local/bin/perl

$home_url = shift(@ARGV);

unless($home_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',$home_url,*headers,*content,30);

&w3bbc_html'reset_tags('none');
%html_block = (
  'a',"'insert_img",
);
%html_single = (
);
&w3bbc_html'set_tags(*html_block,*html_single);

&w3bbc_html'parse_html(*links,$content);
%opts = (
'_unknown','preserve', # preserve or ignore (def)
#'_debug',  1,
);
$processed = &w3bbc_html'process_html(*opts,*links);
$urls = join("\n",@global_urls);
print "#global_urls=$#global_urls\n";

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


sub insert_img {
  local(*opts,*open,*close,$html) = @_;
  local($_,$args,$val);
  for (keys %open) {
    $val = $open{$_};
    s/${open}_//; # delete a_ from tag
    $args .= " $_=\"$val\"";
  }
  if ($open{'a_href'} =~ /\.(xbm|gif)/i) {
    $html = "<$open$args>".'<img src="'.$open{'a_href'}.'">'.$html."</$open>";
  } else {
    $html = "<$open$args>".$html."</$open>";
  }
  return($html);
}