lancer une applet avec lwp
Bonjour,
décidément, ces temps cis, je fais souvent appel aux sympathiques contributeurs des fora perl.
Mon soucis du moment : ouvrir une page html qui contient l'appel d'une applet (et maintenir la connexion vu qu'il y a un refresh histoire de relancer periodiquement) :
voici le code de la page à lancer :
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
40
41
42
|
<head>
<TITLE>Chat</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<meta http-equiv="refresh" content="30">
</HEAD>
<BODY bgcolor="#B794DD" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<TABLE cellSpacing="0" cellPadding="0" width="750" height="530" border="0">
<OBJECT classid="clsid:8AD9C840-044E-11D1-B3E9-00805F499D93" width="800" height="500" codebase="http://java.sun.com/update/1.5.0/jinstall-1_5_0_10-windows-i586.cab#Version=1,5,0,10">
<PARAM name="code" value="chatclient.class">
<PARAM name="codebase" value="http://www.domaine.com/chat/">
<PARAM name="type" value="application/x-java-applet;version=1.5.0_10">
<PARAM NAME="_DEBUG" VALUE="">
<PARAM NAME="OME" VALUE="">
<PARAM NAME="LOGIN" VALUE="wam">
<PARAM NAME="MEMBER" VALUE="">
<PARAM NAME="YEARSOLD" VALUE="">
<PARAM NAME="SEX" VALUE="M">
<PARAM NAME="CITY" VALUE="">
<PARAM NAME="COUNTRY" VALUE="006f67e378f2b58fda9db264c561c4ad">
<PARAM NAME="EXIT_IMG" VALUE="exit.gif">
<PARAM NAME="CHAT_IMG" VALUE="chat.gif">
<PARAM NAME="MSG_BIENVENUE" VALUE="Bienvenue sur le serveur de chat">
</BODY>
</HTML> |
voici comment je l'appelle :
code du script perl
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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
|
#!/usr/bin/perl -w
use strict;
sub cree
{
my($nom,$sexe) = @_;
open WRITER,"> ".$nom.".html" or die "Le fichier ".$nom." n'existe pas !";
print WRITER '<head>
<TITLE>Chat</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<meta http-equiv="refresh" content="30">
</HEAD>
<BODY bgcolor="#B794DD" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<TABLE cellSpacing="0" cellPadding="0" width="750" height="530" border="0">
<OBJECT classid="clsid:8AD9C840-044E-11D1-B3E9-00805F499D93" width="800" height="500" codebase="http://java.sun.com/update/1.5.0/jinstall-1_5_0_10-windows-i586.cab#Version=1,5,0,10">
<PARAM name="code" value="chatclient.class">
<PARAM name="codebase" value="http://www.domaine.com/chat/">
<PARAM name="type" value="application/x-java-applet;version=1.5.0_10">
<PARAM NAME="_DEBUG" VALUE="">
<PARAM NAME="OME" VALUE="">
<PARAM NAME="LOGIN" VALUE="'.$nom.'">
<PARAM NAME="MEMBER" VALUE="">
<PARAM NAME="YEARSOLD" VALUE="">
<PARAM NAME="SEX" VALUE="'.$sexe.'">
<PARAM NAME="CITY" VALUE="">
<PARAM NAME="COUNTRY" VALUE="006f67e378f2b58fda9db264c561c4ad">
<PARAM NAME="EXIT_IMG" VALUE="exit.gif">
<PARAM NAME="CHAT_IMG" VALUE="chat.gif">
<PARAM NAME="MSG_BIENVENUE" VALUE="Bienvenue sur le serveur de chat">
</BODY>
</HTML>';
}
sub cnx
{
my($nom) = @_;
my $url = $nom."html";
my $ua = LWP::UserAgent->new(keep_alive => 100, timeout => 100000);
my $req = HTTP::Request->new(GET => $url);
my $reponse = $ua->request($req);
}
sub tout
{
my($nom,$sexe) = @_;
cree($nom,$sexe);
cnx($nom);
}
tout("test","M"); |
la fonction "cree" crée une copie de la page html avec un parametre login et sexe au choix,
la fonction "cnx" crée un userAgent qui appelle la page passée en parametre (j'ai tenté un keep_alive et un timeout quand j'ai vu que l'appel ne fonctionnait pas, meme sans ca foire)
la fonction "tout" appelle la fonction cree qui crée la page puis appelle la fonction cnx qui se connecte à la page en question.
J'ai lu la doc LWP, j'ai cherché sur le web et dans les fora!!!!! s'il vous plait, je suis perdu TT
