Perl

script remplissage formulaires html & POST DATA

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : script remplissage formulaires html & POST DATA

sputnick

bip...bip...bip...bip...bi...b

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 :

#!/usr/bin/perl -w
use strict;
use warnings;
use LWP::UserAgent;
use HTTP::Request;
use HTTP::Request::Common;
my $url = "http://www.easy-upload.net/";
my $ua = LWP::UserAgent->new(agent => 'sputnick/2.0');
my $req = HTTP::Request->new( POST $url,
Content_Type => 'form-data',
Content => [
upfile => ['~/images/foo.png'],
mail => 'wam@mail.fr',
#boolform=0 => 'hidden readonly',
#<NONAME>=Uploader => 'submit'
]
);
my $res = $ua->request($req);
$res->is_success or die ("Can't POST $url: $!" );
my $img = $res->content();
print $img $/; # don't forget to use binmode to retrieve the image

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

Publicité

anapajari

s/travail/glanding on hfr/gs;

$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 :

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

sputnick

bip...bip...bip...bip...bi...b

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 :

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 :

#!/usr/bin/perl -w
use strict;
use warnings;
use LWP::UserAgent;
use HTTP::Request;
use HTTP::Request::Common;
my $url = "http://www.easy-upload.net/traitement_upload.php";
my $ua = LWP::UserAgent->new(agent => 'Mozilla/2.0.4');
my $req = HTTP::Request->new( POST $url,
Content_Type => 'form-data',
Content => [
upfile => ['/home/sputnick/images/crt-ssl.png'],
mail => 'wam@mail.fr',
boolform => 'readonly'
]
);
my $res = $ua->request($req);
$res->is_success or die ("Can't POST $url: $!" );
my $img = $res->content();
print $img $/; # don't forget to use binmode to retrieve the image

matafan

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

sputnick

bip...bip...bip...bip...bi...b

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

Code :

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

sputnick

bip...bip...bip...bip...bi...b

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 :

#!/usr/bin/perl -w
# by sputnick
# modules a utiliser
use File::Basename;
use Net::FTP;
use Term::ANSIColor;
use strict;
# declaration de variables
my $Object = basename($ARGV[0]);
my $ftp;
# methodes Net::FTP :
$ftp = Net::FTP->new("host.fr", Debug => 0)
or die "Cannot connect to some.host.name: $@";
$ftp->login("login",'pass')
or die "Cannot login ", $ftp->message;
# methode Net::FTP necessaire pour ne pas corrompre un fichier binaire
$ftp->binary();
$ftp->cwd("/repertoire" )
or die "Cannot change working directory ", $ftp->message;
$ftp->put("$ARGV[0]" )
or die "put failed ", $ftp->message;
# affichage de l'URL finale en couleur
print "URL is : \n\n";
print color 'bold red';
print "http://host/repertoire/$Object\n\n";
print color 'reset';
$ftp->quit;

FORUM HardWare.fr

Programmation

Perl

script remplissage formulaires html & POST DATA

Sujets relatifs
[Ajax] ajouter N formulaires	Sécurité dans les formulaires
HTML - Problème formulaire	[HTML/PHP] Erreur simple dans code, mais introuvable
[Résolu] Url stockée et lien HTML	envoyer un fichier en methode POST
Header flash Css/html	[PHP/HTML] formulaire avec plusieurs champs hidden
Sortir resultat script txt	Processer automatiquement des formulaires
Plus de sujets relatifs à : script remplissage formulaires html & POST DATA

Page générée en 0.053 secondes