Discussion :

[jaljal]

Bonjour,

je voudrais automatiser le submit d'un formulaire en post method (ajout d'un article) de mon site en passant par un script perl en ouvrant bien sur une session authentifié.

Si ceci est faisable par un script perl, quel modules dois-je utiliser ?

Merci

[Mr6]

Il te faut LWP et UserAgent

@+
Mr6

[jaljal]

Ok, merci Mr6, je vais y voir

[Philou67430]

Voir aussi HTML::Form et HTTP::Cookies
C'est ce que j'utilise en ce moment avec les modules donnés par Mr6, avant de migrer vers WWW::Mechanize

[jaljal]

Je voudrais tester ce script :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
#!/usr/bin/perl
 
use strict;
use LWP::UserAgent;
my $content;
 
my $ua = new LWP::UserAgent;
 
# Various enhancement possibilities:
# $ua->max_size(100000);  # 100k byte limit
# $ua->timeout(3);        # 3 sec timeout is default
$ua->proxy(['http'], '10.0.0.14:8080');  # set proxy
# $ua->env_proxy()        # load proxy info from environment variables
# $ua->no_proxy('localhost', 'mycorp.com');   # No proxy for local machines
 
$ua->agent("Mozilla 3.6.2");  # Or something equally mysterious
 
my $req = new HTTP::Request GET => 'http://mycorp.com/';
my $res = $ua->request($req);
 
if ($res->is_success) 
{
  $content= $res->content;
} 
else 
{
  die "Could not get content";
}

je suis connecté dernière le proxy 10.0.0.14 port:8080, comment le configurer dans le code si dessus qui me génère la sortie suivantes:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Proxy must be specified as absolute URI; '10.0.0.14:8080' is not at C:/Documents and Settings/morsi/workspace/perlProject/lwp.pl line 12

Merci

[Mr6]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

$ua->proxy(['http'], 'http://10.0.0.14:8080');  # set proxy

Ca devrait mieux passer.

@+
Mr6