# Moved earlier to accomodate changes into the test summaries
#-------------------------------eMarginality Tool extract-------------------------------------
if ($RUNMODE eq "P" && $PRODUCT  =~ /7ALGMV|7KEDMV|7ALGRV|7KEDRV|7RAYTV/ ) {
    if(-e '/prod/datools/tools/MTP/emt_extract.pl'){
        system "perl /prod/datools/tools/MTP/emt_extract.pl &";
    }
}

unless(-e "$HOME/sbl/orig_sum_dir/$PRODUCT"){
       system "mkdir $HOME/sbl/orig_sum_dir/$PRODUCT";
       system "chmod 777  $HOME/sbl/orig_sum_dir/$PRODUCT";
}

system "cp /tmp/t4sum $HOME/sbl/orig_sum_dir/$PRODUCT/${LOTNO}_${LOC}_${TYPE_NUM}${TYPE_LETT}";

unless(-e "$HOME/sbl/printed_sum_dir/$PRODUCT"){
        system "mkdir $HOME/sbl/printed_sum_dir/$PRODUCT";
        system "chmod 777  $HOME/sbl/printed_sum_dir/$PRODUCT";
}

system "cp /tmp/foo $HOME/sbl/printed_sum_dir/$PRODUCT/foo${LOTNO}_${LOC}_${TYPE_NUM}${TYPE_LETT}";
system "chmod 777 $HOME/sbl/sbl_sum_dir/$PRODUCT/${LOTNO}_${LOC}_$day$month${year}_${ww}";

if ($PRODUCT!~/^(8ARD|7KEDR)/)   {
    system "lpr /tmp/foo &";
}
else {
    system "/data/sbl/cchecklot ${LOTNO}_${LOC} $PRODUCT > /tmp/check_print";
    system "sleep 4";

    ## Will check for file exist and PCS triggered before adding the pcs message
    if(-e '/tmp/check_print' && $PCS_T == 1 && $SBL_T == 1 && $NUTESTED >= 500 && $PCS_FOUND==1 && $TYPE_NUM==1){
          &print_pcsmess;
    }
    system "lpr /tmp/check_print";
}

system "chmod 777 $HOME/sbl/tmp/${LOTNO}_${LOC}_tmp1";
system "chmod 777 /tmp/t4sum";
system "chmod 777 /tmp/foo";
system "chmod 777 /tmp/check_print";