#!/usr/bin/perl-w
#
# translate.pl - przeksztaca wyniki wsp.pl -v.
#
# Kod ten jest oprogramowaniem darmowym; mona go rozpowszechnia i/lub
# modyfikowa na takich warunkach, jak samego Perla.
#

use strict;
my $save_url;
my $count = 1;

# Pokazanie elementw podstawowych
print "#!/usr/bin/perl\n";
print "use warnings;\n";
print "use strict;\n";
print "use LWP::UserAgent;\n";
print "my \$ua = LWP::UserAgent->new;\n\n";

# przejrzenie wynikw wsp.
while (<>) {
    chomp; s/\x0D$//;

    # dodanie wasnego nagwka dania HTTP...
    if (/^INPUT: ([a-zA-Z0-9\-\_]+): (.*)$/) {
        print '$req'.$count.'->header(\''.$1."' => '".$2."');\n";
    }

    # jaki adres URL jest potrzebny...
    if (/^Request for URL: (.*)$/) { $save_url=$1; }

    # wiersz dania HTTP 1.x (GET lub POST).
    if (/^FIRST LINE: ([A-Z]+) \S+ (.*)$/) {
        print "\n\n### request number $count ###\n";
        print "my \$req$count = HTTP::Request->new($1 => '$save_url');\n"; 
    }

    # ewentualnie odsyanie informacji POST.
    if (/^POST body: (.*)$/) { print "\$req$count->content('$1');\n"; }

    # i koniec dania.
    if (/^ --- Done sending./) {
        print "print \$ua->request(\$req$count)->as_string;\n";
        $count++; # przejcie do nastpnego dania.
    }
}

