#!/bin/ksh

# 	$Id: PERL_sur,v 2.0 2000/07/28 09:46:37 verdiemi Exp $	

# ----------------------------------------------------------
#
# OBJET:  	Verification de l'installation de Perl
#
# Parametres :
#	 $1 = nom du template
#			
# ----------------------------------------------------------

# Recuperation du nom de la template ITO associee
NomTemplate=$1

# Initialisation des variables
PERL=/serveur/dp/bin/perl
OPCMON=/opt/OV/bin/OpC/opcmon
result=0

#
# ATTENTION : awk -F'[ \(\)]' '{print $6 $8 $10}' ne passe pas sur Sun
#
version=`/serveur/dp/bin/perl -V | grep subversion | awk '{print $5 $7 $9}'`
if [ "x$version" != "x(5.052)" -a "x$version" != "x(5.044)" ] ; then
	print "version $version invalide"
	result=1
fi

retour=`${PERL} -e 'print "ok\n";'`
if [ "x$retour" != "xok" ] ; then
	print "retour=${result}"
	result=1
fi

if [ "x${NomTemplate}" = "x" -o "x${NomTemplate}" = "xbidon" ] ; then
	exit ${result}
else
	${OPCMON} "${NomTemplate}=${result}"
	exit 0
fi
