Simuler un POST avec PERL

Version imprimable

Bonjour,
je cherche à simuler le remplissage d'un formulaire (login & mdp) que j'envairais par POST à /demo/login.do .

Je m'explique, j'ai le login & mdp dans l'entete HTTP, j'appelle un script perl et je voudrais que ce dernier puisse "forwarder" ce login + mdp à mon application java.

Ceci me permet de remplacer la page de login qui contenais le formulaire suivant :
Code:

1 2 3 4 5 <form name="logonForm" method="POST" action="http://localhost:8080/demo/logon.do" target="_parent"> <input type="text" name="login" maxlength="128" size="20" value=""> <input type="password" name="password" maxlength="128" size="20" value=""> <input type="image" src="/demo/images/ok_button.gif" border="0" alt="Ok" title="Log on"> </form>
j'ai essayé ca, mais bon, ....
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 #!/usr/bin/perl use LWP::UserAgent; $ua = LWP::UserAgent->new; $ua->agent("Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.8.1.3) Gecko/20061201 Firefox/2.0.0.3 (Ubuntu-feisty)"); use HTTP::Request::Common qw(post); my $req = (post 'logon.do', ["login" => $ENV{HTTP_UID}, "password" => $ENV{HTTP_PASSWORD}]); $request = $ua->request($req); $content = $request->content; print "Content-type: text/html\n\n"; print "<base href=\"h**p://www.target_site_url\">"; print $content; exit;
merci pour vos remarques

Aswat

16/05/2007, 11h01
Jedai

Je ne suis pas sûr de comprendre, qu'est-ce qui cloche avec ton script ? A part je suppose que 'logon.do' n'est pas suffisant dans le post(), tu devrais mettre l'adresse complète.

--
Jedaï
16/05/2007, 11h10
aswat
En fait, j'ai trouvé ce script sur un site mais je ne comprend pas à quoi sert ceci:
Code:

1 2 3 print "Content-type: text/html\n\n"; print "<base href=\"h**p://www.target_site_url\">"; print $content;

voici mon script modifié :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 #!/usr/bin/perl use LWP::UserAgent; $ua = LWP::UserAgent->new; $ua->agent("Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.8.1.3) Gecko/20061201 Firefox/2.0.0.3 (Ubuntu-feisty)"); use HTTP::Request::Common qw(post); my $req = (post 'http://localhost:8080/demo/logon.do', ["login" => "scarter", "password" => "sprain"]); $request = $ua->request($req); $content = $request->content; print "Content-type: text/html\n\n"; print "<base href=\"h**p://www.target_site_url\">"; print $content; exit; #print $cgi->redirect( -location => "http://localhost:8080/demo/.quickSearchPage");
j'ai l'erreur suivante :

Code:

[Wed May 16 11:24:05 2007] [error] "post" is not exported by the HTTP::Request::Common module\nCan't continue after import errors at /opt/apache-tomcat-5.5.23/webapps/demo/index.pl line 7\nBEGIN failed--compilation aborted at /opt/apache-tomcat-5.5.23/webapps/demo/index.pl line 7.\n

j'ai un morceau de code qui marche presque :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
#!/usr/bin/perl
 
use LWP::UserAgent;
$ua = LWP::UserAgent->new;
 
my $req = HTTP::Request->new(POST => 'http://localhost:8080/demo/logon.do',
                 [ login => 'scarter',password => 'sprain']);
$req->content_type('application/x-www-form-urlencoded');
$req->content('match=www&errors=0');
 
my $res = $ua->request($req);
print $res->as_string;

seulement mon navigateur m'affiche le code de la page et non la page :

Code:

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
30
31
32
33
34
35
36
37
38
39
HTTP/1.1 200 OK
Connection: close
Date: Wed, 16 May 2007 09:56:55 GMT
Server: Apache-Coyote/1.1
Content-Length: 911
Content-Type: text/html;charset=ISO-8859-1
Client-Date: Wed, 16 May 2007 09:56:55 GMT
Client-Peer: 127.0.0.1:8080
Client-Response-Num: 1
Link: </demo/css/standard.css>; /="/"; rel="stylesheet"; type="text/css"
Set-Cookie: JSESSIONID=3B13A43F7AB3DAFDE2D11AE3B698BC41; Path=/demo
Title: OPIAM Admin - Demo Application
 
 
 
 
<HTML>
    <HEAD>
        <TITLE>OPIAM Admin - Demo Application</TITLE>
        <LINK rel="stylesheet" type="text/css" href="/demo/css/standard.css" />
    </HEAD>
 
 
 
    <FRAMESET cols="275, *" frameborder="0" framespacing="0">
        <FRAMESET rows="65, *" frameborder="0" framespacing="0">
            <FRAME name="logo" src="/demo/images/newlogo.jpg" marginheight="0" marginwidth="0">
            <FRAME name="leftnav" src="/demo/jsp/tiles/common/login_nav.jsp" marginheight="0" marginwidth="0">
        </FRAMESET>
        <FRAME name="body" src="/demo/jsp/tiles/common/login_body.jsp" marginheight="0" marginwidth="0">
        <NOFRAMES>
            <P>This frameset document contains:
            <UL><LI>Logo
                <LI>Application tree
                <LI>Application menu and body
            </UL>
        </NOFRAMES>
    </FRAMESET>
</HTML>

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
#!/usr/bin/perl
 
use LWP::UserAgent;
$ua = LWP::UserAgent->new;
 
my $req = HTTP::Request->new(POST => 'http://localhost:8080/demo/logon.do',
                 [ login => 'scarter',password => 'sprain']);
$req->content_type('application/x-www-form-urlencoded');
 
my $res = $ua->request($req);
my %headers = %{$res->headers};
print "$_: $headers{$_}\n" for keys %headers;
print "\n";
print $res->content;

--
Jedaï

Jedai, merci pour ta réponse, mais j'ai toujours ca qui s'affiche :

Code:

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
30
31
32
33
34
35
36
37
38
link: </demo/css/standard.css>; /="/"; rel="stylesheet"; type="text/css"
connection: close
set-cookie: JSESSIONID=3380381197507C328A6FC40BBC96800D; Path=/demo
client-response-num: 1
date: Wed, 16 May 2007 12:42:26 GMT
content-length: 911
client-peer: 127.0.0.1:8080
client-date: Wed, 16 May 2007 12:42:26 GMT
content-type: text/html;charset=ISO-8859-1
server: Apache-Coyote/1.1
title: OPIAM Admin - Demo Application
 
 
 
 
<HTML>
    <HEAD>
        <TITLE>OPIAM Admin - Demo Application</TITLE>
        <LINK rel="stylesheet" type="text/css" href="/demo/css/standard.css" />
    </HEAD>
 
 
 
    <FRAMESET cols="275, *" frameborder="0" framespacing="0">
        <FRAMESET rows="65, *" frameborder="0" framespacing="0">
            <FRAME name="logo" src="/demo/images/newlogo.jpg" marginheight="0" marginwidth="0">
            <FRAME name="leftnav" src="/demo/jsp/tiles/common/login_nav.jsp" marginheight="0" marginwidth="0">
        </FRAMESET>
        <FRAME name="body" src="/demo/jsp/tiles/common/login_body.jsp" marginheight="0" marginwidth="0">
        <NOFRAMES>
            <P>This frameset document contains:
            <UL><LI>Logo
                <LI>Application tree
                <LI>Application menu and body
            </UL>
        </NOFRAMES>
    </FRAMESET>
</HTML>

et non la page elle meme.

Pourtant si je crée une page comme ca :

Code:

1
2
3
4
5
<form name="logonForm" method="POST" action="http://localhost:8080/demo/logon.do" target="_parent">
	<input type="text" name="login" maxlength="128" size="20" value="">
	<input type="password" name="password" maxlength="128" size="20" value="">
	<input type="image" src="/demo/images/ok_button.gif" border="0" alt="Ok" title="Log on">
</form>

ca marche bien. J'aurais pas oublié un truc ?

16/05/2007, 15h47
Jedai

A priori je vois guère qu'un problème de configuration du serveur à ce stade... A moins que tu n'utilises pas exactement le script que je t'ai donné (copier-coller ?).

--
Jedaï
16/05/2007, 16h39
aswat

si si exactement le même,
puis j'ai tenté en rajoutant ca :

print "Content-type: text/html\n";

mais rien n'y fait.

C'est vraiment étrange, parce que moi, même en faisant un simple print() de ce que tu as reçu, j'obtiens bien une page HTML... :?

En désespoir de cause, mais tu y perds de l'information (le Cookie entre autre) :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 #!/usr/bin/perl use LWP::UserAgent; $ua = LWP::UserAgent->new; my $req = HTTP::Request->new(POST => 'http://localhost:8080/demo/logon.do', [ login => 'scarter',password => 'sprain']); $req->content_type('application/x-www-form-urlencoded'); my $res = $ua->request($req); print "Content-Type: text/html\n\n"; print $res->content;
--
Jedaï

j'ai besoin du cookie, et visiblement c'est du à une histoire de cookie, mais pas seulement, j'ai fait la modif suivante :
Code:

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 #agent LemonLDAP pour protéger l'application OPIAM-demo use LWP::UserAgent; use CGI; use Cwd; my $dir = getcwd; my $ua = LWP::UserAgent->new; my $req = HTTP::Request->new(POST => 'http://opiam.example.com:8585/demo/logon.do'); $req->content_type('application/x-www-form-urlencoded'); $req->content('login=scarter&password=sprain'); my $res = $ua->request($req); my %headers = %{$res->headers}; my $cgi=CGI->new; my %cgiHeaders; $cgiHeaders{'-type'} = $headers{'Content-Type'} || 'text/html'; foreach(keys %headers) { next if(/Content-Type/); $cgiHeaders{"-$_"} = $headers{$_}; } print $cgi->header(%cgiHeaders); print $res->content;
ca ne marche toujours pas, mais à l'aide d'un outil comme tcpmon j'ai remarqué que login et mot de passe n'etaient pas envoyé comme il le faut. Ils étaient dans le header et non dans le corps.

Ca y est, j'ai trouvé, en fait le login + mdp devaient etre passé dans le corps du POST pour être récupérés par mon application...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
#!/usr/bin/perl
#agent LemonLDAP pour protéger l'application OPIAM-demo
 
use LWP::UserAgent;
use CGI;
use Cwd;
my $dir = getcwd;
my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new(POST => 'http://opiam.example.com:8080/demo/logon.do');
$req->content_type('application/x-www-form-urlencoded');
 
# On transmet le login + password de l'utilisateur pour simuler la connection
$req->content("login=$ENV{HTTP_UID}&password=$ENV{HTTP_PASSWORD}");
my $res = $ua->request($req);
my %headers = %{$res->headers};
my $cgi=CGI->new;
my %cgiHeaders;
$cgiHeaders{'-type'} = $headers{'Content-Type'} || 'text/html';
foreach(keys %headers) {
	next if(/Content-Type/);
	$cgiHeaders{"-$_"} = $headers{$_};
}
print $cgi->header(%cgiHeaders);
print $res->content;

Merci pour ton aide Jedai :applo: