script remplissage formulaires html & POST DATA

script remplissage formulaires html & POST DATA - Perl - Programmation

Marsh Posté le 29-10-2007 à 23:57:17    

Salut,
 
j'essaye tant bien que mal d'uploader automatiquement des photos sur ce site :
http://www.easy-upload.net
ou bien n'importe lequel genre flickr, imageshack etc...
Le probleme est simple, gerer le POST DATA et autres remplissage de formulaire.
Voici une ébauche de script non valable, si quelqu'un de plus qualifié que moi sur perl peux corriger, je pense que ça peux etre très interessant ( et formateur ).
( je cherche un truc tout à fait basique qui ne fait qu'uploader betement des fichiers en récuperant l'URL à la fin. )
J'obtient seulement : Can't POST http://www.easy-upload.net/:  at post-data-7.pl line 23. avec :  
 
 

Code :
  1. #!/usr/bin/perl -w
  3. use strict;
  4. use warnings;
  6. use LWP::UserAgent;
  7. use HTTP::Request;
  8. use HTTP::Request::Common;
  10. my $url = "http://www.easy-upload.net/";
  11. my $ua = LWP::UserAgent->new(agent => 'sputnick/2.0');
  12. my $req = HTTP::Request->new( POST $url,
  13.         Content_Type => 'form-data',
  14.         Content      => [
  15.                                 upfile  => ['~/images/foo.png'],
  16.                                 mail    => 'wam@mail.fr',
  17.                                 #boolform=0 => 'hidden readonly',
  18.                                 #<NONAME>=Uploader => 'submit'
  19.                         ]
  20. );
  21. my $res = $ua->request($req);
  23. $res->is_success or die ("Can't POST $url: $!" );
  25. my $img = $res->content();
  27. print $img $/; # don't forget to use binmode to retrieve the image


Message édité par sputnick le 30-10-2007 à 01:38:45
Reply

Marsh Posté le 29-10-2007 à 23:57:17   

Reply

Marsh Posté le 30-10-2007 à 09:32:38    

$url n'est pas correcte, Il faut "viser" celle qui est en action dans le form qui contient l'input file en question.
Donc:

Code :
  1. my $url = "http://www.easy-upload.net/traitement_upload.php";


Essaye déjà avec ça, s'il y a d'autres problèmes on regardera plus en détail ;)

Message cité 1 fois
Message édité par anapajari le 30-10-2007 à 09:33:06
Reply

Marsh Posté le 30-10-2007 à 17:12:57    

anapajari a écrit :

$url n'est pas correcte, Il faut "viser" celle qui est en action dans le form qui contient l'input file en question.
Donc:

Code :
  1. my $url = "http://www.easy-upload.net/traitement_upload.php";


Essaye déjà avec ça, s'il y a d'autres problèmes on regardera plus en détail ;)


 
 
Nouvel essai avec script corrigé :
Can't POST http://www.easy-upload.net/traitement_upload.php:  at post-data-8.pl line 23
 

Code :
  1. #!/usr/bin/perl -w
  3. use strict;
  4. use warnings;
  6. use LWP::UserAgent;
  7. use HTTP::Request;
  8. use HTTP::Request::Common;
  11. my $url = "http://www.easy-upload.net/traitement_upload.php";
  12. my $ua = LWP::UserAgent->new(agent => 'Mozilla/2.0.4');
  13. my $req = HTTP::Request->new( POST $url,
  14.         Content_Type => 'form-data',
  15.         Content      => [
  16.                                 upfile  => ['/home/sputnick/images/crt-ssl.png'],
  17.                                 mail    => 'wam@mail.fr',
  18.                                 boolform => 'readonly'
  19.                         ]
  20. );
  21. my $res = $ua->request($req);
  23. $res->is_success or die ("Can't POST $url: $!" );
  25. my $img = $res->content();
  27. print $img $/; # don't forget to use binmode to retrieve the image

Reply

Marsh Posté le 31-10-2007 à 10:58:41    

Le "content" d'un HTTP::Request, c'est directement les données à a envoyer, c'est pas un hash.

Reply

Marsh Posté le 31-10-2007 à 11:57:26    

J'ai essayé comme ça, mais j'obtient les memes erreurs :
 

Code :
  1. #!/usr/bin/perl -w
  3. use strict;
  4. use warnings;
  6. use LWP::UserAgent;
  7. use HTTP::Request;
  8. use HTTP::Request::Common;
  11. my $url = "http://www.easy-upload.net/traitement_upload.php";
  12. my $ua = LWP::UserAgent->new(agent => 'Mozilla/2.0.4');
  13. my $req = HTTP::Request->new( POST $url,
  14.         Content_Type => 'form-data',
  15.         Content      => '/home/sputnick/images/crt-ssl.png',
  16.         Content      => 'wam@mail.fr',
  17.                                 boolform => 'readonly'
  18. );
  19. my $res = $ua->request($req);
  21. $res->is_success or die ("Can't POST $url: $!" );
  23. my $img = $res->content();
  25. print $img $/; # don't forget to use binmode to retrieve the image

Reply

Marsh Posté le 01-11-2007 à 02:37:30    

Bon je suis ouvert à toutes suggestions pour ce thread, mais en attendant d'avoir le niveau pour faire ça, j'ai contourné le problème :
 
 

Code :
  1. #!/usr/bin/perl -w
  2. # by sputnick
  4. # modules a utiliser
  5. use File::Basename;
  6. use Net::FTP;
  7. use Term::ANSIColor;
  8. use strict;
  10. # declaration de variables
  11. my $Object = basename($ARGV[0]);
  12. my $ftp;
  14. # methodes Net::FTP :
  15. $ftp = Net::FTP->new("host.fr", Debug => 0)
  16. or die "Cannot connect to some.host.name: $@";
  18. $ftp->login("login",'pass')
  19. or die "Cannot login ", $ftp->message;
  21. # methode Net::FTP necessaire pour ne pas corrompre un fichier binaire
  22. $ftp->binary();
  24. $ftp->cwd("/repertoire" )
  25. or die "Cannot change working directory ", $ftp->message;
  27. $ftp->put("$ARGV[0]" )
  28. or die "put failed ", $ftp->message;
  30. # affichage de l'URL finale en couleur
  31. print "URL is : \n\n";
  32. print color 'bold red';
  33. print "http://host/repertoire/$Object\n\n";
  34. print color 'reset';
  36. $ftp->quit;

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed