Good, with a few changes.

A few fixes… language to English, corrected OID and regex (as mentioned in other reviews). Changed the “primary isn’t active, its standby” from a critical to a warning, since in my book, if its functioning, that’s not enough to wake me up at night. I may disable that alltogether in what I put into production, since I don’t really care which is primary (I have other stuff to catch events that cause switchovers).

59c59
print “No host defined!n”;help(); exit $ERREUR{“UNKNOWN”};
83c83
print “Switch: Standalone “;
89c89
print “Switch: VSS mode in transit “;
93c93
elsif ( /388.1.3.1.1.3s+= S+:s+2/ )
95c95
print “VSL: not active “;
101c101
print “VSS: OK “;
109c109
print “No SNMP Response: Critical”;
141c141
print ” Primary Chassis is Active: Ok”;
145,146c145,146
$retour=$ERREUR{“WARNING”};
155c155
print ” Secondary Chassis is Standby: Ok “;
159,160c159,160
$retour=$ERREUR{“WARNING”};
163c163,164
elsif ( /388.1.2.2.1.2.(S+)s+=s+S+:s+1/ )
> # elsif ( /388.1.2.2.1.1.(S+)s+=s+S+:s+1/ )
167c168
print ” Primary Chassis is standalone: CRITICAL “;
171c172
print ” Secondary Chassis is standalone: CRITICAL “;
175c176
print ” Chassis condition cannot be verified: CRITICAL “;
196c197
print ” VSL $1 name $2: and “;