Discussion :

[ben.IT]

Bonjour à tous,
je souhaite savoir s'il est possible de configurer apache pour qu'il parse les fichier perl afin de repérer et d 'exécuter les directives SSI ?

Je débute en apache, je connais

Code :

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

XBitHack Full

qui permet de parser des fichiers html pour l exécution d'instruction SSImais comment faire pour les fichiers perl ?

merci d'avance,
ben

[_Mac_]

Faut passer par les CGI, donc activer mod_cgi, mettre les scripts .pl dans un répertoire indiqué dans une directive ScriptAlias et ça devrait le faire. Apache va alors exécuter le script Perl un peu comme si tu l'appelais directement depuis une ligne de commande et renvoyer ce qui arrive sur la sortie standard.

[ben.IT]

Salut mac gyver ,
merci pour ta réponse.
le module mod_cgi est activé dans ma config apache, j'ai fait un script alias :

Code :

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

ScriptAlias  "/test/" "/mon/chemin/"

où je place mes programmes .pl.
Ce que je cherche à faire, c'est exécuter un cgi depuis mon programme perl :

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
#!/usr/bin/perl
 
 
use strict ;
use warnings;
use CGI ':standard';
use CGI qw(:standard *pre);
 
 
#en tete de doc html
print header;
print start_html('Target traitement des resultats');
 
print "exec cgi :" ;
print "<!--#exec cmd=\"/mon/chemin/cgi-bin/getSequence.pl AC206949\"--> " ;

actuellement la ligne :

Code :

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

print "<!--#exec cmd=\"/mon/chemin/cgi-bin/getSequence.pl AC206949\"--> " ;

n'est pas exécutée ...

Comment exécuter une instruction SSI (un cgi, une commande) depuis mon script perl ?

merci d'avance,
ben

[ben.IT]

j'ai rajouté cette ligne pour dire à apache de parser mes fichier perl afin d exécuter les directives SSI mais du coup le code perl n'est plus executé ....

Code :

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

AddHandler server-parsed .pl

D'après la doc perl, il existerait un module CGI::SSI - Use SSI from CGI scripts : http://search.cpan.org/~james/CGI-SS...pm#DESCRIPTION ...

Si quelqu'un a une idée ...

[ben.IT]

voila qui fonctionne :

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
#!/usr/bin/perl
 
 
use strict ;
use warnings;
use CGI ':standard';
use CGI qw(:standard *pre);
use  CGI::SSI ;
 
#en tete de doc html
print header;
print start_html('Test');
 
print "exec cgi :" ;
 
my $ssi = CGI::SSI->new();
print $ssi->exec("cmd","/chemin/cgi-bin/getSequence.pl " ) ;

a noter l'utilisation de CGI::SSI pour les instructions SSI.