perl execution error

################################################################################################################
############################################# Merge Tool #######################################################
#                                                                                                              #
#Script Name : /usr/tools/deployment/scripts/merge                                                             #
#Description : This tool merges the code from developer branch to the release branch along with                #
#              acknowledgement process,label application,lock etc                                              #
                                                                                                               #
#Prepared By : Irfan Sayed (T-systems India pvt. Ltd.)                                                         #
# For T-online Production line dated 10 May 2008.                                                              #
################################################################################################################
################################################################################################################

#! /usr/local/bin/perl
$i=0;
$p=0;
$l=0;
use POSIX 'strftime';
$dt_fin = strftime '%d:%b:%H:%M:%S:%Y', localtime;

#$dt=qx(date);
#@dt1=split(' ',$dt);
#@dt2[0]=@dt1[2];
#@dt2[1]=@dt1[1];
#@dt2[2]=@dt1[3];
#@dt2[3]=@dt1[5];
#chomp($dt_fin=join(":",@dt2));

system("clear");
print "$dt_fin\n";
print "****************************************************\n";
print "******************Merge Tool************************\n";

$ap_nm=`pwd`;
if ($ap_nm =~ /view/){print "You are in the view:$ap_nm\n";}else{print "You are not in any clearcase view \n"; exit 1;}
if ($ap_nm =~ /oms/)
{
 $ap_nm=oms;
 print "Application name:oms\n";
 $ENV{'CCASE_NO_FILE_HEADER'} = 'yes';
 $ENV{'CCASE_NO_RCS_KEYWORDS'} = 'yes';
}
 elsif ($ap_nm =~ /akb/)
{
 $ap_nm=akb;
 print "Application name:akb\n";
}
 elsif ($ap_nm =~ /cia/)
{
 $ap_nm=cia;
 print "Application name:cia\n";
}
 elsif ($ap_nm =~ /CRM/)
 {
 $ap_nm=CRM;
 print "Application name:CRM\n";
}
 elsif ($ap_nm =~ /dps/)
 {
 $ap_nm=dps;
 print "Application name:dps\n";
}
 elsif ($ap_nm =~ /hmy/)
 {
 $ap_nm=hmy;
 print "Application name:hmy\n";
}
 elsif ($ap_nm =~ /Vss/)
{
 $ap_nm=Vss;
 print "Application name:Vss\n";
}
elsif ($ap_nm =~ /ccb/)
{
 $ap_nm=ccb;
 print "Application name:ccb\n";
}
elsif ($ap_nm =~ /wsp/)
{
 $ap_nm=wsp;
 print "Application name:wsp\n";
}
elsif ($ap_nm =~ /prs/)
{
 $ap_nm=prs;
 print "Application name:prs\n";
}
else
{
 print "You does not seems to be in any application\n";
 print "Exiting\n";
 exit 1;
}

config_spec_chk();
env();
 sub config_spec_chk()
 {
        %hash = (
        oms => 'oms.rel.02.23.000',
        akb => 'akb.rel.01.00.000',
                cia => 'ci1.rel.02.00.000',
                CRM => 'crm.rel.03.00.000',
                dps => 'dps.rel.01.00.000',
                hmy => 'hmy.rel.00.00.000',
                Vss => 'vss.int.00.00.000',
                prs => 'prs.rel.01.09.000',
                ccb => 'ccb.rel.01.02.000',
                wsp => 'wsp.rel.00.00.000',
  );

 %hash_const = (
        "element /vob/support/tools/deployment/repository" => '/main/LATEST',
        "element /vob/lib/repository/..." => '/main/LATEST',
        "element /vob/lib/rep_v1/..." => '/main/LATEST',
        "element /vob/support/tools/deployment/packages/..." => '/main/LATEST',
        "element /vob/lib/packages/..." => '/main/LATEST',
        "element /vob/support/tools/deployment/specs/..." => 'CHECKEDOUT',
        "element /vob/support/tools/deployment/specs/..." => '/main/LATEST',
        "element /vob/support/tools/deployment/initfiles/..." => 'CHECKEDOUT',
        "element /vob/support/tools/deployment/initfiles/..." => '/main/LATEST',
        "element /vob/support/tools/deployment/relnotespecs/..." => 'CHECKEDOUT',
        "element /vob/support/tools/deployment/relnotespecs/..." => '/main/LATEST',
        "element /vob/support/tools/deployment/mergespecs/..." => 'CHECKEDOUT',
        "element /vob/support/tools/deployment/mergespecs/..." => '/main/LATEST',
        "element /vob/support/tools/deployment/scripts/..." => '/main/LATEST',
        "element /vob/support/tools/deployment/global_env_files/..." => '/main/LATEST',
        "element -directory /vob/support/tools/deployment" => '/main/LATEST',
        "element -directory /vob/support/tools" => '/main/LATEST',
        "element -directory /vob/support" => '/main/LATEST',
        "element -directory /vob/lib" => '/main/LATEST',
);

#qx(ct catcs | tee /home/m.belgaonkar/curr_conf_spec_$dt_fin);
 open(fh, ">/tmp/config") || die "Can't open file:\n";
 while (($key,$value)=each(%hash))
 {

  if (($key eq oms) && ($ap_nm =~ /oms/))
 {
  $rel_br=$value;
  print fh "element /vob/support/tools/deployment/specs/...  CHECKEDOUT\n";
  print fh "element /vob/support/tools/deployment/initfiles/...  CHECKEDOUT\n";
  print fh "element /vob/support/tools/deployment/relnotespecs/...  CHECKEDOUT\n";
  print fh "element /vob/support/tools/deployment/mergespecs/...   CHECKEDOUT\n";

  print fh "\n";

  foreach (keys %hash_const)
{
 print fh "$_    $hash_const{$_}\n";
}

  print fh "\n";
  print fh "element * CHECKEDOUT\n";
  print fh "element * .../$value/LATEST\n";
  print fh "element * /main/0 -mkbranch $value\n";
}
 elsif (($key eq akb) && ($ap_nm =~/akb/))
 {
  $rel_br=$value;
  print fh "element /vob/support/tools/deployment/specs/...  CHECKEDOUT\n";
  print fh "element /vob/support/tools/deployment/initfiles/...  CHECKEDOUT\n";
  print fh "element /vob/support/tools/deployment/relnotespecs/...  CHECKEDOUT\n";
  print fh "element /vob/support/tools/deployment/mergespecs/...   CHECKEDOUT\n";

  print fh "\n";

  foreach (keys %hash_const)
{
 print fh "$_    $hash_const{$_}\n";
}

  print fh "\n";
  print fh "element * CHECKEDOUT\n";
  print fh "element * .../$value/LATEST\n";
  print fh "element * /main/0 -mkbranch $value\n";
 }
 elsif (($key eq cia) && ($ap_nm =~ /cia/))
  {
  $rel_br=$value;
  print fh "element /vob/support/tools/deployment/specs/...  CHECKEDOUT\n";
  print fh "element /vob/support/tools/deployment/initfiles/...  CHECKEDOUT\n";
  print fh "element /vob/support/tools/deployment/relnotespecs/...  CHECKEDOUT\n";
  print fh "element /vob/support/tools/deployment/mergespecs/...   CHECKEDOUT\n";

  print fh "\n";

  foreach (keys %hash_const)
{
 print fh "$_    $hash_const{$_}\n";
}

  print fh "\n";
  print fh "element * CHECKEDOUT\n";
  print fh "element * .../$value/LATEST\n";
  print fh "element * /main/0 -mkbranch $value\n";
}
 elsif (($key eq CRM) && ($ap_nm =~ /CRM/))
  {
  $rel_br=$value;
  print fh "element /vob/support/tools/deployment/specs/...  CHECKEDOUT\n";
  print fh "element /vob/support/tools/deployment/initfiles/...  CHECKEDOUT\n";
  print fh "element /vob/support/tools/deployment/relnotespecs/...  CHECKEDOUT\n";
  print fh "element /vob/support/tools/deployment/mergespecs/...   CHECKEDOUT\n";

  print fh "\n";

  foreach (keys %hash_const)
{
 print fh "$_    $hash_const{$_}\n";
}

  print fh "\n";
  print fh "element * CHECKEDOUT\n";
  print fh "element * .../$value/LATEST\n";
  print fh "element * /main/0 -mkbranch $value\n";
}
elsif (($key eq dps) && ($ap_nm =~ /dps/))
  {
  $rel_br=$value;
  print fh "element /vob/support/tools/deployment/specs/...  CHECKEDOUT\n";
  print fh "element /vob/support/tools/deployment/initfiles/...  CHECKEDOUT\n";
  print fh "element /vob/support/tools/deployment/relnotespecs/...  CHECKEDOUT\n";
  print fh "element /vob/support/tools/deployment/mergespecs/...   CHECKEDOUT\n";

  print fh "\n";
  foreach (keys %hash_const)
{
 print fh "$_    $hash_const{$_}\n";
}

  print fh "\n";
  print fh "element * CHECKEDOUT\n";
  print fh "element * .../$value/LATEST\n";
  print fh "element * /main/0 -mkbranch $value\n";
}
elsif (($key eq hmy) && ($ap_nm =~ /hmy/))
  {
  $rel_br=$value;
  print fh "element /vob/support/tools/deployment/specs/...  CHECKEDOUT\n";
  print fh "element /vob/support/tools/deployment/initfiles/...  CHECKEDOUT\n";
  print fh "element /vob/support/tools/deployment/relnotespecs/...  CHECKEDOUT\n";
  print fh "element /vob/support/tools/deployment/mergespecs/...   CHECKEDOUT\n";

  print fh "\n";
  foreach (keys %hash_const)
{
 print fh "$_    $hash_const{$_}\n";
}

  print fh "\n";
  print fh "element * CHECKEDOUT\n";
  print fh "element * .../$value/LATEST\n";
  print fh "element * /main/0 -mkbranch $value\n";
}
elsif (($key eq Vss) && ($ap_nm =~ /Vss/))
  {
  $rel_br=$value;
  print fh "element /vob/support/tools/deployment/specs/...  CHECKEDOUT\n";
  print fh "element /vob/support/tools/deployment/initfiles/...  CHECKEDOUT\n";
  print fh "element /vob/support/tools/deployment/relnotespecs/...  CHECKEDOUT\n";
  print fh "element /vob/support/tools/deployment/mergespecs/...   CHECKEDOUT\n";

  print fh "\n";

  foreach (keys %hash_const)
{
 print fh "$_    $hash_const{$_}\n";
}

  print fh "\n";
  print fh "element * CHECKEDOUT\n";
  print fh "element * .../$value/LATEST\n";
  print fh "element * /main/0 -mkbranch $value\n";
}
elsif (($key eq prs) && ($ap_nm =~ /prs/))
  {
  $rel_br=$value;
  print fh "element /vob/support/tools/deployment/specs/...  CHECKEDOUT\n";
  print fh "element /vob/support/tools/deployment/initfiles/...  CHECKEDOUT\n";
  print fh "element /vob/support/tools/deployment/relnotespecs/...  CHECKEDOUT\n";
  print fh "element /vob/support/tools/deployment/mergespecs/...   CHECKEDOUT\n";
  print fh "\n";
  foreach (keys %hash_const)
{
 print fh "$_    $hash_const{$_}\n";
}

  print fh "\n";
  print fh "element * CHECKEDOUT\n";
  print fh "element * .../$value/LATEST\n";
  print fh "element * /main/0 -mkbranch $value\n";
}
elsif (($key eq ccb) && ($ap_nm =~ /ccb/))
  {
  $rel_br=$value;
  print fh "element /vob/support/tools/deployment/specs/...  CHECKEDOUT\n";
  print fh "element /vob/support/tools/deployment/initfiles/...  CHECKEDOUT\n";
  print fh "element /vob/support/tools/deployment/relnotespecs/...  CHECKEDOUT\n";
  print fh "element /vob/support/tools/deployment/mergespecs/...   CHECKEDOUT\n";
  print fh "\n";
  foreach (keys %hash_const)
{
 print fh "$_    $hash_const{$_}\n";
}

  print fh "\n";
  print fh "element * CHECKEDOUT\n";
  print fh "element * .../$value/LATEST\n";
  print fh "element * /main/0 -mkbranch $value\n";
}
elsif (($key eq wsp) && ($ap_nm =~ /wsp/))
  {
  $rel_br=$value;
  print fh "element /vob/support/tools/deployment/specs/...  CHECKEDOUT\n";
  print fh "element /vob/support/tools/deployment/initfiles/...  CHECKEDOUT\n";
  print fh "element /vob/support/tools/deployment/relnotespecs/...  CHECKEDOUT\n";
  print fh "element /vob/support/tools/deployment/mergespecs/...   CHECKEDOUT\n";
  print fh "\n";
  foreach (keys %hash_const)
{
 print fh "$_    $hash_const{$_}\n";
}

  print fh "\n";
  print fh "element * CHECKEDOUT\n";
  print fh "element * .../$value/LATEST\n";
  print fh "element * /main/0 -mkbranch $value\n";
}

 else{}
}
 if ($?=0){print "Config spec generation failed\n";exit 1;}
 else{print "Config spec of the destination view is being created\n"; print "Config spec :Done\n";}
 close (fh);

 print "Setting the destination config spec to the current view\n";
 `/usr/atria/bin/cleartool setcs /tmp/config`;
 if ($?){print "Config spec not set correctly\n check the same and try once again\n"; exit 1;}
 else{print "Config spec set correctly\n";}
# print "Reexecuting the config spec \n";
# `usr/atria/bin/cleartool setcs -current`;
# if ($?){print "Execution of config spec failed\n check the same and try once again\n"; exit 1;}
# else{print "Done\n";}

}

sub env()
{
 print "Enter the baseline:";
 chomp($bl = <STDIN>);
 chomp($rel_lbl_fin=$bl);
 print "Enter the update:";
 chomp($up_bl = <STDIN>);

 print "Enter the no. of packages needs to be merged:";
 chomp($ct_pkg = <STDIN>);

 for ($i=1;$i<=$ct_pkg;$i++)
 {
 print "Enter the release note for package $i :";
 chomp($pk = <STDIN>);
 print "Enter the update:";
 chomp($up = <STDIN>);
 print "Enter the development branch name for package $i :";
 chomp($br_name_fin = <STDIN>);
 $dev_lbl=$pk;
# $br_name=$dev_lbl;
# $br_name_fin=lc $br_name;
 if ($up != 0){
 chomp($depl_lbl="D." . "$pk" . ".$up");
}else{chomp($depl_lbl="D." . $pk);}

`/usr/atria/bin/cleartool lstype lbtype:$depl_lbl 2>/dev/null`;
 if ($?)
 {
 print"Depl. Label $depl_lbl is not exist\n";
 print "Creating the deployment label and applying it to all files which has development label\n";
 `/usr/atria/bin/cleartool mklbtype -nc $depl_lbl`;
 if ($?){print "Deployment label creation failed. Please check and try once again\n"; exit 1;}
 else{
 print "Deployment label created successfully\n";
 }
}
 else{
 print "Deployment label for this package would be : $depl_lbl\n";}
#if ($pk =~ /(.*)\./) {
#  print "$1\n";
#  $dev_lbl=$1;
#}
 `/usr/atria/bin/cleartool lstype lbtype:$dev_lbl 2>/dev/null`;
 if ($?)
 {
 print"Dev. Label $dev_lbl is not exist\n";
 print "Create the devlopment label,apply it to all files and directories and then start merge\n";
 exit 1;}
 else{
 print "Devlopment label for this package would be : $dev_lbl\n";}

`/usr/atria/bin/cleartool lstype brtype:$br_name_fin 2>/dev/null`;
 if ($?){ print "Dev. branch $br_name_fin is not exist\n"; exit 1;}
 else{print "Dev. branch is $br_name_fin\n";}
 compare();

 push (@pkg_lst,$pk);
}
rel_label();
}

 sub compare()
 {
  print "Compairing files with development label and deployment label\n";

  chomp($ct_fil_depl=`/usr/atria/bin/cleartool find -all -version "lbtype($depl_lbl) && brtype($br_name_fin)" -print | wc -l`);
  chomp($ct_fil_dev=`/usr/atria/bin/cleartool find -all -version "lbtype($dev_lbl) && brtype($br_name_fin)" -print | wc -l`);

  chomp(@no_depl_lbl=`/usr/atria/bin/cleartool find -all -version "lbtype($dev_lbl) && brtype($br_name_fin) &&! lbtype($depl_lbl)" -print`);
  chomp(@file_dev_lbl=`/usr/atria/bin/cleartool find -all -version "lbtype($dev_lbl) && brtype($br_name_fin)" -print`);

 print " No. of files which has deployment label : $ct_fil_depl\n";
 print " No. of files which has development label : $ct_fil_dev\n";
 print "@no_depl_lbl\n";

  if (@no_depl_lbl eq "" || @no_depl_lbl eq "NULL" || !defined @no_depl_lbl)
  {
   print "All the files have both deployment label $depl_lbl and development label $dev_lbl\n";
   merge();
  }

   else
{
   print "Files with deployment $depl_lbl and development label $dev_lbl are mismatch\n";
   print "Applying the deployment label to all versions which has developer label\n";
   print "Checking the lock status of deployment label\n";
  $st_chk= `/usr/atria/bin/cleartool lslock lbtype:$depl_lbl`;
  if($st_chk eq "")
  {
   print " Label is not locked\n";
}
 else
 {
   print "Label is locked\n Unlocking the label\n";
   `/usr/atria/bin/cleartool unlock lbtype:$depl_lbl`;
   if($?){print "Label unlocking failed\n Check the same and try once again\n";exit 1;}
   else{print "Label unlocked successfully\n";}}
   $a=0;
   foreach(@no_depl_lbl)
{
   `/usr/atria/bin/cleartool mklabel -replace $depl_lbl $_`;
   if ($?){print"Unable to apply the label $depl_lbl to file $_.Please chk the same and try again\n";exit 1;}
   else{$a++;}
}
}
if($a!=0){print "Deployment label has been applied to all files now\n";
chomp($ct_fil_depl1=`/usr/atria/bin/cleartool find -all -version "lbtype($depl_lbl) && brtype($br_name_fin)" -print | wc -l`);
chomp(@file_depl_lbl=`/usr/atria/bin/cleartool find -all -version "lbtype($depl_lbl) && brtype($br_name_fin)" -print`);
print "Locking the deployment label\n";
`/usr/atria/bin/cleartool lock lbtype:$depl_lbl`;
 if($?){print "Locking of deployment label failed\n Please check the same and try again\n";}
 else{print "Label locked successfully\n";}
merge();
}
}
 sub merge()
 {
  print "Merge operation from developer branch $br_name_fin to the release branch $rel_br\n";

 @merg_prev=`/usr/atria/bin/cleartool findmerge -all -element "brtype($br_name_fin)" -fversion $depl_lbl -print -short`;
 chomp($size = @merg_prev);
 if ($size==0){ print "All the files on the development branch and release branch are identical.\n No need to merge anything\n"; create_log_no_merge();}
 else
{
 print "Following files will be merged \n";
 for (@merg_prev){
 print $_,"\n";
}

 print "Confirm [y/n]:";
 chomp($conf = <STDIN>);

 if (($conf eq "y") || ($conf eq "Y"))
 {
  @merg_act=`/usr/atria/bin/cleartool findmerge -all -element "brtype($br_name_fin)" -fversion $depl_lbl -merge -log /tmp/merge_log_$dt_fin`;
 if($?){print "Merge operation failed....\n Check the same and try once again\n"; exit 1;}
  else {
 print "Merged all the files to the release branch\n";
 print "Checking in all files and directoris\n";
 `/usr/atria/bin/cleartool lsco -r -cview -s . | xargs ct ci -nc`;
 if($?){ print "Check in operation failed.....\n please check the same and try again\n"; exit 1;}else{}
 @lsco=`/usr/atria/bin/cleartool lsco -r -cview -s .`;
 if(@lsco eq "" || !defined @lsco)
 {
 print "All the files checked in properly\n";
 print "Merge operation completed for package $pk with update $up\n";
 create_log();
}else{ print "Some files are still in checked out condition\n check the same and try again\n"; exit 1;}
  }
 }
elsif(($conf eq "n") || ($conf eq "N"))
{
 print "OK!!!!!\n";
 exit 1;
}
else
{
 print "Bad choice\n";
 exit 1;
}
}
}

sub rel_label()
{
 print "Checking the REL label \n";
 `/usr/atria/bin/cleartool lstype lbtype:$rel_lbl_fin 2>/dev/null`;
 if($?){ print "REL label does not exist\n Creating the REL label ....\n";
 `/usr/atria/bin/cleartool mklbtype -nc $rel_lbl_fin`;
 if($?){ print "REL label creation failed\n Please check the same and try again\n "; exit 1;}
 else{ print "REL label created successfully\n";}
 }
 else
 {
 print "Checking the lock status of REL label \n";
 $st=`/usr/atria/bin/cleartool lslock lbtype:$rel_lbl_fin`;
 if ($st eq "")
 {
   print "Label is not locked\n";
 }
 else
 {
  print "Label is locked\n Unlocking the label\n";
   `/usr/atria/bin/cleartool unlock lbtype:$rel_lbl_fin`;
   if($?){print "Label unlocking failed\n Check the same and try once again\n";exit 1;}
   else{print "Label unlocked successfully\n";}
}}
 print "Applying the REL label to all files and directory\n";
 `/usr/atria/bin/cleartool mklabel -rec -replace $rel_lbl_fin .`;
 if($?){ print "REL label application to all files has been failed\n Please check the same and try again\n"; exit 1;}
 else{print "REL label has been applied properly to all files\n";
 print "Locking the REL label\n";
 `/usr/atria/bin/cleartool lock lbtype:$rel_lbl_fin`;
 if($?){ print "Locking of REL label failed\n Please check the same and try again\n";}
 else{ print " REL label locked successfully\n";
 chomp($dt_fin_end = system("date"));

}
}
}

sub create_log()
{
# this function will create the detail log file for each package merged to the release branch.

open(fh1, ">/tmp/Log_Merge_$pk") || die "Cant open file $!\n";
print fh1 "**************************************************************\n";
print fh1 "Merge process started at : $dt_fin\n";
print fh1 "Merge log file for package $pk update $up\n";
print fh1 "REL baseline : $bl update : $up_bl\n";
print fh1 "Package release note : $pk update : $up\n";
print fh1 "Development branch name :$br_name_fin\n";
print fh1 "No. of files with development label : $ct_fil_dev\n";
print fh1 "Pathname of each file is \n";
for (@file_dev_lbl){
print fh1 "$_,\n";
}
print fh1 "No. of files with deployment label : $ct_fil_depl1\n";
print fh1 "Pathname of each file is \n";
for(@file_depl_lbl){
print fh1 "$_,\n";
}

print fh1 "No. of files which needs to be merged : $size\n";
print fh1 "Following files got merged\n";
for (@merg_prev){
print fh1 "$_,\n";
}
print fh1 "Merge process end : $dt_fin_end\n";
}

sub create_log_no_merge()
{
 # this log contains the details about the package for which no files got merged. All the files on the source branch and destination branch were identical

open(fh1, ">/tmp/Log_Merge_$pk") || die "Cant open file $!\n";
print fh1 "**************************************************************\n";
print fh1 "Merge process started at : $dt_fin\n";
print fh1 "Merge log file for package $pk update $up\n";
print fh1 "REL baseline : $bl update : $up_bl\n";
print fh1 "Package release note : $pk update : $up\n";
print fh1 "Development branch name :$br_name_fin\n";
print fh1 "No. of files with development label : $ct_fil_dev\n";
print fh1 "Pathname of each file is \n";
 for (@file_dev_lbl){
 print fh1 "$_,\n";
}
print fh1 "No. of files with deployment label : $ct_fil_depl1\n";
print fh1 "Pathname of each file is \n";
for(@file_depl_lbl){
print fh1 "$_,\n";
}

print fh1 "No. of files which needs to be merged : 0 \n";
print fh1 "No need to merge any files. All the files were identical on source and destination branch\n";
print fh1 "Merge process end : $dt_fin_end\n";

}