Script to find FL in CC

Hello list,

I am trying to find Feature Level(FL) of each local replica in one of
the ClearCase VOB server with the following script, but the script
prints the FL which is not associated with my local replica. Could
someone let me know where I am wrong.


#!/usr/bin/perl
open LOG, ">>/tmp/log.txt" or die $!;
chomp(@[EMAIL PROTECTED]
 lsvob -s -host wrancc`); for $vob
(@[EMAIL PROTECTED]
){ chomp(@[EMAIL PROTECTED]
 lsreplica -invob $vob
-s`); foreach $replica (@[EMAIL PROTECTED]
){
chomp(@[EMAIL PROTECTED]
 desc
replica:$replica\@[EMAIL PROTECTED]
); foreach $properties (@[EMAIL PROTECTED]
) {
        $FL =3D $properties if ( $properties =3D~ /FeatureLevel/ );
        @[EMAIL PROTECTED]
(/ +/,$FL);
        $FL_LOCAL=3D$FeatureLevel[3];
        print LOG "The vob is $vob \n Replica is $replica and Feature
Level is $FL_LOCAL\n" if ( $properties =3D~ /172.16.54.17 / );



Regards,
binu

Please do not print this email unless it is absolutely necessary. =0A=
=0A=
The information contained in this electronic message and any attachments
to=
 this message are intended for the exclusive use of the addressee(s) and
may=
 contain proprietary, confidential or privileged information. If you are
not=
 the intended recipient, you should not disseminate, distribute or copy
this=
 e-mail. Please notify the sender immediately and destroy all copies of
this=
 message and any attachments. =0A=
=0A=
WARNING: Computer viruses can be transmitted via email. The recipient
should=
 check this email and any attachments for the presence of viruses. The
compa=
ny accepts no liability for any damage caused by any virus transmitted by
th=
is email. =0A=
=0A=
www.wipro.com