[CGI] Lancement applications

Version imprimable

Hello ! Comment lancer une application depuis un script Perl (sur le serveur). Par exemple si je veux lancer VLC ?
Juste un test bidon :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 use strict; use warnings; use CGI::Carp qw (fatalsToBrowser); use CGI; print "Content-type: text/html\n\n"; my $buffer = new CGI; my $name = $buffer->param("name"); if ($name eq ""){ system `vlc`; } else{ print $name; }

16/02/2011, 14h53
Beniou

bonjour,

Tu peux regarder dans les FAQs de Perl où sont décrites les méthodes principales d'appel à une commande/programme externe.

Dans ton exemple, tu utilises "system" avec les backquotes ce qui n'est pas bon. Utilises soit l'un soit l'autre soit une des autres méthodes suivant tes besoins (récupérer sortie, fork pour créer un autre process etc.)
16/02/2011, 15h03
Invité

D'accord donc pas de problème, ça se lance bien, mais par contre, comme c'est une application graphique, j'aimerai utiliser X pour l'afficher, et là je ne vois vraiment pas comment faire.
16/02/2011, 16h27
Beniou

Veux-tu simplement lancer une application graphique ? auquel cas je ne vois pas trop le problème ...

Oui je veux utiliser une appli graphique, mais elle ne se lance pas.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
use strict;
use warnings;
use utf8;
use CGI::Carp qw (fatalsToBrowser);
use CGI;
print "Content-type: text/html\n\n";
my $buffer =  new CGI;
my $photo  = $buffer->param("donnees");
my $path = "../images/".$photo;
my $sortie;
$sortie = `gpicview $path`;
print $sortie;

option parsing failed: Impossible d'ouvrir l'affichage*:

17/02/2011, 15h36
Beniou
Cette erreur ne vient pas de Perl mais de ton programme gpicview.

Tu pourrais essayer de rajouter l'option "--display" à ta ligne de commande pour voir si cela change quelque chose.

Exemple à adapter en fonction de ton affichage :
Code:

1 2 $sortie = `gpicview --display=":0.0" $path`;
Cela fonctionne chez moi avec l'affichage :0.0 que j'ai obtenu en notant le résultat de la commande :
Code:

1 2 echo $DISPLAY
A toi de voir quoi mettre pour ton cas
17/02/2011, 20h46
Invité

le echo $DISPLAY me renvoie seulement :0 et ça ne marche pas.
18/02/2011, 09h44
Beniou

Là pour l'instant je ne vois pas mais voici peut être quelques pistes :

Est-ce que tu essayes de lancer le programme en local ou à distance ?

Est-ce que tu as essayé en mettant du style "hostname:0" où hostname est le nom de ton ordinateur en local ou à distance suivant les cas.

Est-ce que tu as plusieurs écrans/display ? (Auquel cas ce n'est pas forcément "0" qu'il faut mettre)

As-tu fais un test avec une autre application graphique ?
21/02/2011, 19h35
Invité

finalement mon script doit envoyer vers tty1. Donc j'utilise une appli qui afficher des images dans le framebuffer. J'utilise donc

Code:

`fbi -T 1 $path`

mais là aussi, rien.

EDIT : j'ajoute que si je fais

Code:

echo "bonjour" > /dev/tty1

le .pl ça ne marche pas et ça marche depuis le tty2.

En fait avec

Code:

echo "bonjour" > /dev/tty

ça marche depuis le script perl. Mais toujours pas avec l'application fbi. J'ai testé :

Code:

`fbi $path > /dev/tty`

et

Code:

`fbi $path > /dev/tty1`

sans résultats
22/02/2011, 14h03
Beniou

Question : est-ce que la commande suivante fonctionne en dehors de Perl si tu la lances directement depuis un shell ? Pas de problème de droits ??

Citation:

fbi -T 1 ton_image