#!/usr/bin/perl -w
BEGIN {
  $|++;
}
use strict;
use lib "/usr/local/www/virtual/katgirl/modules";
use LWP::Simple qw(!head);
use CGI::Carp qw(fatalsToBrowser);
use CGI qw/:standard/;
my $url = param("url");
my $surfurl = param("surfurl");
my $surfur1 ||= $url;
#if(!$surfurl){$surfurl = $url; }
my @file;
print header,
        start_html('web getter');

if($url){

    if($url =~ m/action/ig){
        @file = post($url);
    }else{
        @file = get($url);
    }

    foreach my $line(@file){
        #chomp($line);
        $line =~ s!href=\"!href=\"?surfurl=$surfurl&url=$surfurl\/!gi;
        $line =~ s!src=\"!src=\"$surfurl\/!gi;
        $line =~ s!action=\"!action=\"?surfurl=$surfurl&url=$surfurl\/!gi;
        print $line;
    }

}else{

      print p("Where do you want to go today?"),
      start_form,
      textfield(-default =>"http://", -name=> "url"),
      submit(-name=> "GO!"),
      end_form;

}

print end_html;