French Frag Factory

4 blablas

1. 1
   
   Off mAn le 24/05/2002 à 14:26

   :))
   

2. 2
   
   sOs le 24/05/2002 à 15:15

   toujours et éternellement la 2nd place … YENAMARRE !!

3. 3
   
   Off mAn le 24/05/2002 à 15:22

   ta quand même pas loin d’une heure de retard :)

4. 4
   
   gribouille le 24/05/2002 à 16:42

   Sos : tiens, c est cadeau pour toi.

   #!/usr/bin/perl

   use strict;
   use Data::Dumper;
   use LWP::UserAgent;

   # l url de base
   my $URL_GET = »http://frenchfragfactory.net/news.shtml »;
   my $URL = »http://frenchfragfactory.net/blabla.shtml?command=comment&post= »;
   my $URL_POST = »http://frenchfragfactory.net/cgi/powernews/powernews.cgi »;

   my $debug = 1;
   my %reponse = ( ’email’ =>’lcmaxime@hotmail.com’,
   ‘username’ => ‘sOs’,
   ‘subject’ => ‘ENFINNNNNNNNNNNNNNNNNNNN’,
   ‘body’ => ‘Alors heureux ?’);
   my $useragent = « Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0) »; # amodifier selon ta convenance, si tu veux pas etre vu de suite, c est mieux comme ca.
   my $time2sleep = 10 ; # hardcore settings,c du cheat la !!! =) -> 60 pour rester poli.
   my $nb = 0 ;
   my $p = 0 ;
   my $t = 0 ;

   while (){
   # la hash ki stock les blablas
   my %bla = ();
   map{
   my $l = $_;
   $l =~ s[\n*\r*][]g;
   print STDERR « $l \n » if $debug > 1;
   # si c est une bonne ligne, trouve tous les post avec 0 blabla
   if ($l =~ m[\((\d+)\&nbsp\;blabla\)]) {

   print « $_\n » if $debug > 1;
   # on recupere tous les blabla
   $bla{$2} = $1;
   }
   } (&getPost($URL_GET));

   # pour les blabla vides
   # on va aller poster
   map {
   my $param = $_;
   # si y a 0 blabla
   if ($bla{$param} == $nb ){
   print « Un post a faire $param $bla{$param} \n » if $debug;
   &doPost($param);
   $p++;
   }
   } keys %bla;
   $t ++;
   print STDERR « $p post effectués … sleeping $time2sleep $t\r »;
   sleep $time2sleep;
   }

   # subs
   sub getPost{
   my $p = shift;
   my $ua = new LWP::UserAgent;
   $ua->agent($useragent);
   my $req = new HTTP::Request GET => »$URL_GET » ;
   my $res = $ua->request($req);
   print « getting $p \n »;
   return $res->content;
   }

   sub doPost{
   my $p = shift;
   my $ua = new LWP::UserAgent;
   $ua->agent($useragent);
   my $req = new HTTP::Request GET=> »$URL ».$p ;
   # $req->content_type(‘application/x-www-form-urlencoded’);
   my $res = $ua->request($req);
   if ($res->is_success) {
   my $r = $res->content;
   # recuperer les champs cachés … oue chui une sous burne en regexp, on fe skon pe =)
   my ($url, $action, $nom, %data) =  »;
   # le html a parser
   my @lines = split ‘\n’, $r;
   # on parse chaque ligne
   map {
   if ( $_ =~ m[

   ] ){
   print $_ . »\n » if $debug;
   $url = $2;
   $action =$1;
   $nom =$3 ;
   }

   # les champs cachés
   if ( $_ =~ m[] ){
   print $_ . »\n » if $debug;
   $data{$1} = $2;
   }
   } @lines;
   my $req = new HTTP::Request $action => $URL_POST;
   $req->content_type(‘application/x-www-form-urlencoded’);

   my @str = ();
   map {push @str, « $_=$data{$_} » } keys %data;
   map {push @str, « $_=$reponse{$_} » } keys %reponse;
   my $c = join ‘&’, @str;
   $req->content($c);
   my $res = $ua->request($req);
   print STDERR « sending post to $URL_POST, content $c\n » if ($debug);
   print Dumper $res if ($debug);
   print $res->content() if $debug;
   } else {
   print « Bad luck this time\n »;
   }
   }