#!/usr/bin/perl
# anekdotu postinimas
# Perl 5.6.1  ir Perl 5.8

use IO::Socket;
use utf8;

print "NAUDOJIMAS: ./jokes.pl parinktis\n";
print "parinktis gali buti tokia:\n";
print "o atsitiktiniai\n";
print "o geriausi\n";
print "o naujausi\n";
print "JUSU PARINKTIS: \n";
$ats = <STDIN>;
chomp($ats);

if ( $ats eq "naujausi" ) {
    $socket = IO::Socket::INET->new(
        Proto    => "tcp",
        PeerAddr => "anekdotai.net",
        PeerPort => "80"
    );
    print $socket "GET /naujausi.htm HTTP/1.1\n";
    print $socket "Host: anekdotai.net\n";
    print $socket "Accept: */*\n";
    print $socket "Connection: close\n\n";
}
elsif ( $ats eq "geriausi" ) {
    $socket = IO::Socket::INET->new(
        Proto    => "tcp",
        PeerAddr => " anekdotai.net",
        PeerPort => "80"
    );
    print $socket "GET /geriausi.htm HTTP/1.1\n";
    print $socket "Host: anekdotai.net\n";
    print $socket "Accept: */*\n";
    print $socket "Connection: close\n\n";
}
elsif ( $ats eq "atsitiktiniai" ) {
    $socket = IO::Socket::INET->new(
        Proto    => "tcp",
        PeerAddr => " anekdotai.net",
        PeerPort => "80"
    );
    print $socket "GET /atsitiktiniai.htm HTTP/1.1\n";
    print $socket "Host: anekdotai.net\n";
    print $socket "Accept: */*\n";
    print $socket "Connection: close\n\n";
}
while ( $buff = <$socket> ) {
    foreach $x ($buff) {
        if ( $x =~ /<br/ || $x =~ /<\/div>/ ) {
            $x =~ s/<br \/>//;
            $x =~ s/<\/div>//;
        }

        # griozdiska :)
        while ($x =~ /</
            || $x =~ />/
            || $x =~ /HTTP/
            || $x =~ /Date/
            || $x =~ /Server/
            || $x =~ /X-P/
            || $x =~ /Conn/
            || $x =~ /Transf/
            || $x =~ /Content/
            || $x =~ /[0-9\}\{\)]/
            || $x =~ /func/
            || $x =~ /link/
            || $x =~ /urchin/ )
        {
            $x = "";
        }
    }
    print $buff;
}