Hi All,

Find below the full script.

problem is with "if ($t == 1)" within subroutine "sub c2960"


======== script ==================

#!/usr/bin/perl

$u=`whoami`;
chomp($u);

#print "$u\n";
$op1=$ARGV[0];
$op2=$ARGV[1];


lc($op1);
lc($op2);


$of1="\/users\/$u\/success.txt";
$of2="\/users\/$u\/failed.txt";
chomp($of1);
chomp($of2);

system("rm -f \/users\/$u\/success.txt \/users\/$u\/failed.txt \/users\/$u\/bldstatus.txt");


$view = `cleartool pwv`;
chomp($view);
@v = split(/\:+/,$view);
chomp($v[2]);
$vw = $v[2];

open(NOTFILE,">$of1") || die "cud not write $of1";
print NOTFILE "Status of Build on $vw, option selected:$op1\n";
print NOTFILE "---------------------------------------------\n\n";
print NOTFILE "Images Successfully build\n";
print NOTFILE "-------------------------\n\n";
close(NOTFILE);

open(NOTFILE,">$of2") || die "cud not write $of2";
print NOTFILE "Images Failed to build\n";
print NOTFILE "-------------------------\n";
close(NOTFILE);


chomp($options);


if ( ( $op1 eq "all" ) && ( $op2 eq "" ) ) {


print "Building c2960 images........\n";
`make -j4 -C .\/obj-ppc-c2960\/ c2960-lanbase-mz > \/users\/$u\/c2960-log.txt`;
`make -j4 -C .\/obj-ppc-c2960\/ c2960-lanlitek9-mz > \/users\/$u\/c2960-crypto-log.txt`;

print "Building c2960 images........done.\n";
$c1="b";
&log2960($c1);
&maillog($vw,$op1,$u);
exit 1;
}

## Mail function ##

sub maillog {

$a = $vw;
$b = $op1;
$c = $u;

`cat \/users\/$c\/success.txt \/users\/$c\/failed.txt > \/users\/$c\/bldstatus.txt`;
`mailx -s "Build Completed.with option $b on view: $a " $c\@cisco.com < \/users\/$c\/bldstatus.txt`;
exit 1;

} ## end of maillog


sub log2960 {

$s1 = $c1;


if ( $s1 == "b" ) {

# log c2960
$log = "\/users\/$u\/c2960-log.txt";
open(FILE, $log) || die "cud not read $log";

while (<FILE>) {
$t = 0;
if (/cp c2960-lanbase-mz \/tftpboot\/$u\/c2960-lanbase-mz/) {
$t = 1;
print "$t\n";
}

if ($t == 1) {

print "$c2960[0]\n";
open(OUTFILE,">>$of1") || die "cud not write";
print OUTFILE "c2960-lanbase-mz\n";
close(OUTFILE);
last;

} elsif ( $t == 0 ) {

print "t = $t NO $c2960[0]\n";
open(OUTFILE,">>$of2") || die "cud not write";
print OUTFILE "c2960-lanbase-mz\n";
close(OUTFILE);
last;

} else { } #end of $t == 1 or $t == 0

} #End of while
close(FILE);
$log = "\/users\/$u\/c2960-crypto-log.txt";
open(FILE, $log) || die "cud not read $log";
while (<FILE>) {

$t = 0;
if (/cp c2960-lanlitek9-mz \/tftpboot\/$u\/c2960-lanlitek9-mz/) {
$t = 1;
}

if ( $t == 1 ) {

print "$c2960[5]\n";
open(OUTFILE,">>$of1") || die "cud not write";
print OUTFILE "c2960-lanlitek9-mz\n";
close(OUTFILE);
last;

} elsif ( $t == 0 ) {

print "NO $c2960[5]\n";
open(OUTFILE,">>$of2") || die "cud not write";
print OUTFILE "c2960-lanlitek9-mz\n";
close(OUTFILE);
last;

} else { }

} ## end of while crypto log
close(FILE);
return;
} #end of ( $s1 == "b" )
}
===============End of script==========

Please help

Thanks

Amit