Discussion :

[darkrio]

Bonjour,

J'ai écrit un petit shell qui renvoit si le fichier en paramètre est taggué ou non avec le tag en paramètre:

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
18
19
20
21
22
23
24
25
26
27
############################################################################################
# Script qui teste si le fichier en paramètre possède le tag du troisième paramètre
# Si c'est le cas il renvoie "Taggué $tag", sinon il renvoie la version du fichier ayant ce TAG
# Ce script prend trois paramètres, le premier étant le nom du fichier,
# 				le second étant la version du fichier,
#				le troisième étant le tag à tester
#!/bin/bash
############################################################################################
 
# Description des paramètres
nom_fichier=$1
version_fichier=$2
tag=$3
 
# On se met dans le repository_cvs
cd /local/bea/repository_cvs/
 
#echo "version:$version_fichier nom:$nom_fichier tag:$tag"
#echo cvs log -h $nom_fichier
 
# On accède aux log de ce fichier et on récupère la version associée au tag
version_tag=`cvs log -h $nom_fichier | grep "	$tag" | sed -e "s/	$tag: //"`
 
if [ ${version_tag} = ${version_fichier} ]
	then echo "Taggué $tag"
	else echo "La version tagguée $tag est: ${version_tag}"
fi

Ce script s'exécute comme je le souhaite
J'ai essayé d'utiliser ce script via un cgi en Perl :

Code :

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

system "test_version.sh $fichier $version $tag";

Seuls les "echo" s'affichent mais la commande CVS ne s'exécute pas...
Que faire...

PS: je suis un grand débutant en Perl/CGI

[Jedai]

Ton utilisateur CGI n'a vraisemblablement pas le droit d'exécuter le programme cvs, renseigne-toi sur sudo.
Par ailleurs, je serais toi je ferais tout ça en Perl, le script shell est vraiment inutile ici.

--
Jedaï

[darkrio]

J'ai trouvé une solution, il manquait le CVSROOT

Il faut donc ajouter

Code :

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

cvs -d :pserver:svr@1.1.1.1:/files/users/cvs log -h $nom_fichier

Petit hic, la commande met alors du temps à s'exécuter

@Jedaï -> J'ai voulu passer par un script shell car je ne connais rien au Perl