clearcase batch

##############################

##
###For CleaCase checkin#########
################################
my $cmds = qq{ /ap/local/SunOS_sparc/bin/zsh -c '/usr/atria/bin/cleartool setview -exec "/usr/atria/bin/cleartool checkout -nc /vobs/esam/build/fulltests/COMMON/$tag$file" Tracker_Tool'};
my @arrs = `$cmds 2>&1`;
print LO "CO: @arrs\n";
my @content = `cat $file_name`;
open(SIH, ">/view/Tracker_Tool/vobs/esam/build/fulltests/COMMON/$tag$file");# or print LO "Cannot open the file $!";
print SIH "@content";print LO "CONTENT: @content\n";
close SIH;
my $cmds1 = qq{/ap/local/SunOS_sparc/bin/zsh -c '/usr/atria/bin/cleartool setview -exec "/usr/atria/bin/cleartool checkin -nc /vobs/esam/build/fulltests/COMMON/$tag$file" Tracker_Tool'};
my @arrs1 = `$cmds1 2>&1`;
if(grep/Unable to check in/, @arrs1){
my $unco = qq{/ap/local/SunOS_sparc/bin/zsh -c '/usr/atria/bin/cleartool setview -exec "/usr/atria/bin/cleartool uncheckout -rm /vobs/esam/build/fulltests/COMMON/$tag$file" Tracker_Tool'};
my @arrs2 = `$unco 2>&1`;
# print "ARRS2: @arrs2\n";
}
print LO @arrs1;
}
}
open(TH, ">Fstats");#print LO "Updating File stats\n";
print TH "@upd_content";
close TH;
close LO;