[langage]Appel script perl à partir d'un script perl

Version imprimable

01/06/2005, 12h42
pyer

[langage]Appel script perl à partir d'un script perl

Bonjour,

J'ai une petite appli web.
Ma 1ère page est un formulaire.

J'aimerai lorsque l'utilisateur le valide qu'un script de vérification de mot de passe soit lancé (script1) et qu'en fonction du résultat de celui-ci, qu'un autre script soit lancé (script2 ou script3).

J'ai l'impression que tout script perl doit générer du code html or moi je e veux pas que mon script1 en génère (il réalise juste le test et lance script2 ou script3).
Comment dois-je faire ?

pour info : dans une console cela fonctionne mais ac le serveur web apache j'ai tjs le message d'erreur suivant :
" malformed header from script. Bad header= "

Merci d'avance

Citation:

" malformed header from script. Bad header= "

Ca ressemble plutôt à une erreur du genre "je ne connais pas ton fichier, c'est quoi comme langage ?"
Tu as bien mis un shebang au début de chacun de tes scripts ?
Comment sont-ils appelés ?

Citation:

J'ai l'impression que tout script perl doit générer du code html or moi je e veux pas que mon script1 en génère (il réalise juste le test et lance script2 ou script3).
Comment dois-je faire ?

Absolument pas. Tout script CGI devrait générer du HTML, mais le PERL ne sert pas qu'à concevoir des CGI.

Citation:

J'aimerai lorsque l'utilisateur le valide qu'un script de vérification de mot de passe soit lancé (script1) et qu'en fonction du résultat de celui-ci, qu'un autre script soit lancé (script2 ou script3).

Qu'entends-tu par "en fonction du résultat de celui-ci" ?
S'agit-il du code retour ?
Comment est exécuté "script1" ?

Tu peux faire un truc comme ça, si ça peut t'aider :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 # Admettons que nous soyions ici dans le script qui gere le formulaire # <generer le formulaire machin tout ca> ... # Admettons que nous soyions maintenant a la verification du mot de passe my $code_retour = system("script1.pl"); if ( $code_retour == $nombre_signifiant_password_ok ) { system("script2.pl"); } else { system("script3.pl"); }
Et si tout ça ne répond pas à tes questions, poste ton code. Parce que là j'avance personnellement à l'aveuglette.

01/06/2005, 16h09
pyer

Ton idée de fin avec les appels système me paraîssaient bien ms g tjs le mess d'erreur. g vérifié les chemins tout est bon dc je ne vois po la source de ce pb.
01/06/2005, 16h26
Gamdwin

Peux-tu poster tes scripts ou, mieux, une version minimaliste qui montre le problème ?

Parce que tu donnes trop peu de détail pour que je puisse t'aider (mais peut-être que d'autres auront mieux compris que moi).

code

script 1 censé faire la verif :

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
sub main ()
{
	#my $donnees = $ENV{'QUERY_STRING'};
	my $donnees  = "Text1=Release&Password1=Release&config=ZZ&Submit1=Valider";
	$donnees =~ s/\+/ /g;
 
	(my $user, my $password, my $config, my $submit) = split(/&/, $donnees);
	$user =~ s/Text1=(.*)/$1/g;
	$password =~ s/Password1=(.*)/$1/g;
	$config =~ s/config=(.*)/$1/g;
 
	my $ssCmd = &initSS($user, $password);
	my $var=system($ssCmd, ('cp', $project));
 
	if ($var == 0)
	{
		system ( "perl traitement_donnees.pl" );
	}
	else
	{
		system ( "perl recup_config.pl" );
	}
}
 
###########################################################################
sub initSS(@)
{
	my ($user, $pswd) = @_;
	$ENV{SSUSER} = $user;
	$ENV{SSPWD}  = $pswd;
 
	#emplacement de mon srcsafe.ini
	$ENV{SSDIR} = 'chemin réseau/';
 
	#emplacement des utilitaires comme ss.exe   
	$ENV{PATH}   = 'D:\Pierre\VSS\win32;'. $ENV{PATH};
 
	#charge une biblio d'objets
	$ENV{OS_AUTH} = "NONE";										
 
	#je concatène pour conserver le précedent contenu de mon PATH    																								
	print "---------------------------ENVIRONNEMENT DE TRAVAIL--------------------------\n";																			
	print "#SSUSER =" ." ".$ENV{SSUSER}."\n";
	print "#SSPWD  =" ." ".$ENV{SSPWD}."\n";
	print "#SSDIR  =" ." ".$ENV{SSDIR}."\n";
	print "-----------------------------------------------------------------------------\n";
 
	return q(ss.exe);
}

script 2 si code retour correct :

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
 
sub main ()
{
	my @champs_formulaire = ();
	my $pElement;
	#my $donnees = $ENV{'QUERY_STRING'};
	my $donnees = "Text1=rh&Password1=ez&config=Essor+Bull&Submit1=Valider";
	my $ligne;
 
	$donnees =~ s/\+/ /g;
 
	(my $user, my $var2, my $password, my $var4) = split(/&/, $donnees);
 
	$user =~ s/Text1=(.*)/$1/g;
	$password =~ s/config=(.*)/$1/g;
	print ("VAR3 : $password\n");
	unless ( open (MODELE_HTML, "./temp/modèle2.html"))
	{print ("erreur lors de l'ouverture du modèle HTML\n");}
	open (P2, ">../htdocs/p2.html");
 
	&Date ();
	$ligne = <MODELE_HTML>;
	while ( defined ($ligne) )
	{
		chomp ($ligne);
		if ( $ligne =~ /<td(.*)?>CONFIG<\/td>/io )
		{
			$ligne =~ s/CONFIG/$password/g;
			print P2 ("$ligne\n");
		} 
		elsif ( $ligne =~ /<td(.*)?>USER<\/td>/io )
		{
			$ligne =~ s/USER/$user/g;
			print P2 ("$ligne\n");
		}
		elsif ( $ligne =~ /<td(.*)?>DATE<\/td>/io )
		{
			$ligne =~ s/DATE/$date/g;
			print P2 ("$ligne\n");
		}
		elsif ( $ligne =~ /<td(.*)?>HEURE<\/td>/io )
		{
			$ligne =~ s/HEURE/$heure/g;
			print P2 ("$ligne\n");
		}
		else
		{
			print P2 ("$ligne\n");
		}
	$ligne = <MODELE_HTML>;
	}
	close (MODELE_HTML);
	close (P2);
 
open (P2, "../htdocs/p2.html");
print header;
 
 
$ligne = <P2>;
while ( defined ($ligne) )
{
	print"$ligne";
	$ligne = <P2>;
}
 
print ("LANCEMENT\n");
 
system ( "perl doc_test.pl compilation.cfg \"Essor IBM V3.0\" "); 
 
}