Αναζήτηση στο www.whitepages.gr (ήταν: Re: Ελληνικά στο Wine)

[Tasos Laskos]

Christos Ricudis wrote:
>
> H canonical ekdosh aytou tou pragmatos, brisketai, fysika, sto source code 
> ths baltoxionokotas(tm). Opws kai ka8e kalo baltoxionokotofeature, den 
> douleyei apo tote poy o OTE apofasise na kanei ena minor change sthn HTML tou.
>
> sub getpersonbyphone {
>          my ($phone)=@_;
>
>          if (length($phone)!=10) {
>                  return("malakia, ola ta thlefwna einai 10pshfia");
>          }
>
>          my $areacode;
>          my $phoneno;
>          if ($phone=~m/([1-9]*)(0[0-9]*)/) {
>                  $areacode=$1;
>                  $phoneno=$2;
>          } else {
>                  return("paparia, den exei areacode");
>          }
>          my $ua = LWP::UserAgent->new;
>          $ua->agent("KotZilla/0.1");
>          my $kanata=HTTP::Cookies->new({});
>          $ua->cookie_jar($kanata);
>
>          my $req = HTTP::Request->new(GET => 'http://whitepages.oteshop.gr/en');
>          my $res = $ua->request($req);
>
>          if ($res->is_success) {
>                  $kanata->extract_cookies( $res );
>                  my $baseurl=$res->base;
>                  my $form = HTML::Form->parse($res->content,$res->base);
>                  $form->value('region','');
>                  $form->value('areaCode',"$areacode");
>                  $form->value('phone',"$phoneno");
>                  my $req2 = $form->click();
>                  $kanata->add_cookie_header($req2);
>                  # POIOS ARXIKARAMALAKAS TO SKEFTHKE TO KOLPO ME TOUS 
> REFERER: HEADERS?
>                  $req2->header('Referer' => "$baseurl");
>                  my $res2 = $ua->request($req2);
>                  if ($res2->is_redirect) {
>                          # Ws edw kala pame...
>                          my $redir=$res2->header('Location');
>  
> [...]
BAWHAHAHAHAHAHAHA...
Na sai kala mou eftiakses to kefi pourno pourno!

<flamebait>
  9 spaces gia indentation tis subroutine???
  E pou na xoresn 5 akoma levels manari m' ?
</flamebait>

<flamebait2>
 76 grammes se Perl?
 Mallon grafete se ligoteres se PHP...
</flamebait2>

PS. Kati mou leei pos 8a to metanioso to e-mail... :P