ISSUE REPORT<\/title><\/head><body bgcolor\=\"\#CCFFCC\"><h1 align\=\"center\">MISMATCH REPORT</h1><table width\=\"1200px\" border\=\"10\" align\=\"center\"frame\=\"border\" rules\=\"all\"><thead><tr bgcolor\=\"\#FFCCFF\"><th>ARTICLE ID<\/th><th>FILE MISSING IN PATH<\/th><th>S100 OUTPUT<\/th><th>F300 OUTPUT<\/th><th>DIFFERENCES<\/th><\/tr><\/thead><tbody><\/tbody><\/table><\/body><\/html>"; $xml_miss="<tr><td>$jnl$artno</td><td>NO AFF_PRINT IN 3D</td><td\/><td\/><td\/></tr>"; $data=~s#(<\/tbody><\/table>)#$xml_miss$1#g; &print_outpath(); }else{&read_outpath(); $xml_miss="<tr><td>$jnl$artno</td><td>NO AFF_PRINT IN 3D</td><td\/><td\/><td\/></tr>"; $data=~s#(<\/tbody><\/table>)#$xml_miss$1#g; &print_outpath(); }}if ($aff_print){$filename=$jnl . $artno; $aidno = sprintf("%08d", $artno); $xmlpath="\\\\tnqfs01\\COPYEDITORS\\TO_3B2\\ELSEVIER\\$jnl\\$aidno\\$filename.xml"; if (!-e $xmlpath){if (!-e $outpath){$data="<html><head><title>ISSUE REPORT<\/title><\/head><body bgcolor\=\"\#CCFFCC\"><h1 align\=\"center\">MISMATCH REPORT</h1><table width\=\"1200px\" border\=\"10\" align\=\"center\"frame\=\"border\" rules\=\"all\"><thead><tr bgcolor\=\"\#FFCCFF\"><th>ARTICLE ID<\/th><th>FILE MISSING IN PATH<\/th><th>S100 OUTPUT<\/th><th>F300 OUTPUT<\/th><th>DIFFERENCES<\/th><\/tr><\/thead><tbody><\/tbody><\/table><\/body><\/html>"; $xml_miss="<tr><td>$jnl$artno</td><td>XML FILE MISSING</td><td\/><td\/><td\/></tr>"; $data=~s#(<\/tbody><\/table>)#$xml_miss$1#g; &print_outpath(); }else{&read_outpath(); $xml_miss="<tr><td>$jnl$artno</td><td>XML FILES MISSING</td><td\/><td\/><td\/></tr>"; $data=~s#(<\/tbody><\/table>)#$xml_miss$1#g; &print_outpath(); }}else{open (IN,"$xmlpath"); $xmlpath=join("\n", <IN>); close IN; $xmltxt=$xmlpath; $xmtxt=quotemeta($xmltxt); if ($xmtxt=~m#<\\!\\-\\-aff_print\\:\\ #gi) { $xmltxt=~s##$1#s; $aff_print1=$1; }else {}}if ($aff_print1){if ($aff_print eq $aff_print1){if(!-e "$outpath") { $data="<html><head><title>ISSUE REPORT<\/title><\/head><body bgcolor\=\"\#CCFFCC\"><h1 align\=\"center\">MISMATCH REPORT</h1><table width\=\"1200px\" border\=\"10\" align\=\"center\"frame\=\"border\" rules\=\"all\"><thead><tr bgcolor\=\"\#FFCCFF\"><th>ARTICLE ID<\/th><th>FILE MISSING IN PATH<\/th><th>S100 OUTPUT<\/th><th>F300 OUTPUT<\/th><th>DIFFERENCES<\/th><\/tr><\/thead><tbody><\/tbody><\/table><\/body><\/html>"; $nomismatch_aff="<tr><td>$jnl$artno</td><td\/><td\/><td\/><td>NO MISMATCH FOUND</td></tr>"; $data=~s#(<\/tbody><\/table>)#$nomismatch_aff$1#g; &print_outpath(); } else { $nomismatch_aff="<tr><td>$jnl$artno</td><td\/><td\/><td\/><td>NO MISMATCH FOUND</td></tr>"; &read_outpath(); $data=~s#(<\/tbody><\/table>)#$nomismatch_aff$1#g; &print_outpath(); }}else {if(!-e "$outpath") { $data="<html><head><title>ISSUE REPORT<\/title><\/head><body bgcolor\=\"\#CCFFCC\"><h1 align\=\"center\">MISMATCH REPORT</h1><table width\=\"1200px\" border\=\"10\" align\=\"center\"frame\=\"border\" rules\=\"all\"><thead><tr bgcolor\=\"\#FFCCFF\"><th>ARTICLE ID<\/th><th>FILE MISSING IN PATH<\/th><th>S100 OUTPUT<\/th><th>F300 OUTPUT<\/th><th>DIFFERENCES<\/th><\/tr><\/thead><tbody><\/tbody><\/table><\/body><\/html>"; $mismatch_aff="<tr><td>$jnl$artno</td><td\/><td>$aff_print1<\/td><td>$aff_print<\/td><td><\/td><\/tr>"; my $diff = String::Diff::diff_merge("$aff_print1", "$aff_print", remove_open => '<FONT style="BACKGROUND-COLOR: RED">', remove_close => '</FONT>', append_open => '<FONT style="BACKGROUND-COLOR: FFFF33">', append_close => '</FONT>', ); $mismatch_aff=~s#(<td><\/td>)#<td>$diff<\/td>#g; $data=~s#(<\/tbody><\/table>)#$mismatch_aff$1#g; &print_outpath(); } else { $mismatch_aff="<tr><td>$jnl$artno</td><td\/><td>$aff_print1<\/td><td>$aff_print<\/td><td><\/td><\/tr>"; my $diff = String::Diff::diff_merge("$aff_print1", "$aff_print", remove_open => '<FONT style="BACKGROUND-COLOR: RED">', remove_close => '</FONT>', append_open => '<FONT style="BACKGROUND-COLOR: FFFF33">', append_close => '</FONT>', ); $mismatch_aff=~s#(<td><\/td>)#<td>$diff<\/td>#g; &read_outpath(); $data=~s#(<\/tbody><\/table>)#$mismatch_aff$1#g; &print_outpath(); }}}else {}}else {}sub read_outpath{open FILE, "<$outpath"; read FILE, $data, 100000000; close FILE; }sub print_outpath{open FILE, ">$outpath"; print FILE $data; close FILE; }exit;

use 5.012; use String::Diff; use strict; use warnings; my $aff_print; my $aff_print1; my $outpath; my $data; my $source; my $mismatch_aff; my $nomismatch_aff; my $outpath1; my $prooftxt; my $proftxt; my $jnl; my $artno; my $aidno; my $xmlpath; my $xml_miss; my $xmltxt; my $xmtxt; my $filename; my $diff; ###### OUT PATH DETAILS ######$jnl=$ARGV[0]; $artno=$ARGV[1]; $outpath=$ARGV[2]; $proftxt=$ARGV[3]; $outpath=~s#T:/PGN/#G:/FROM_3B2/#gi; $outpath=~s#(.+\/.+\)\/)(.+)#$1#gi; $outpath1= $outpath; mkdir "$outpath1"; $outpath= $outpath1; $outpath .= 'affprint.html'; if ($proftxt=~m#)#$2#g; $aff_print=$2; }else {if (!-e $outpath){$data="ISSUE REPORT<\/title><\/head><body bgcolor\=\"\#CCFFCC\"><h1 align\=\"center\">MISMATCH REPORT</h1><table width\=\"1200px\" border\=\"10\" align\=\"center\"frame\=\"border\" rules\=\"all\"><thead><tr bgcolor\=\"\#FFCCFF\"><th>ARTICLE ID<\/th><th>FILE MISSING IN PATH<\/th><th>S100 OUTPUT<\/th><th>F300 OUTPUT<\/th><th>DIFFERENCES<\/th><\/tr><\/thead><tbody><\/tbody><\/table><\/body><\/html>"; $xml_miss="<tr><td>$jnl$artno</td><td>NO AFF_PRINT IN 3D</td><td\/><td\/><td\/></tr>"; $data=~s#(<\/tbody><\/table>)#$xml_miss$1#g; &print_outpath(); }else{&read_outpath(); $xml_miss="<tr><td>$jnl$artno</td><td>NO AFF_PRINT IN 3D</td><td\/><td\/><td\/></tr>"; $data=~s#(<\/tbody><\/table>)#$xml_miss$1#g; &print_outpath(); }}if ($aff_print){$filename=$jnl . $artno; $aidno = sprintf("%08d", $artno); $xmlpath="\\\\tnqfs01\\COPYEDITORS\\TO_3B2\\ELSEVIER\\$jnl\\$aidno\\$filename.xml"; if (!-e $xmlpath){if (!-e $outpath){$data="<html><head><title>ISSUE REPORT<\/title><\/head><body bgcolor\=\"\#CCFFCC\"><h1 align\=\"center\">MISMATCH REPORT</h1><table width\=\"1200px\" border\=\"10\" align\=\"center\"frame\=\"border\" rules\=\"all\"><thead><tr bgcolor\=\"\#FFCCFF\"><th>ARTICLE ID<\/th><th>FILE MISSING IN PATH<\/th><th>S100 OUTPUT<\/th><th>F300 OUTPUT<\/th><th>DIFFERENCES<\/th><\/tr><\/thead><tbody><\/tbody><\/table><\/body><\/html>"; $xml_miss="<tr><td>$jnl$artno</td><td>XML FILE MISSING</td><td\/><td\/><td\/></tr>"; $data=~s#(<\/tbody><\/table>)#$xml_miss$1#g; &print_outpath(); }else{&read_outpath(); $xml_miss="<tr><td>$jnl$artno</td><td>XML FILES MISSING</td><td\/><td\/><td\/></tr>"; $data=~s#(<\/tbody><\/table>)#$xml_miss$1#g; &print_outpath(); }}else{open (IN,"$xmlpath"); $xmlpath=join("\n", <IN>); close IN; $xmltxt=$xmlpath; $xmtxt=quotemeta($xmltxt); if ($xmtxt=~m#<\\!\\-\\-aff_print\\:\\ #gi) { $xmltxt=~s##$1#s; $aff_print1=$1; }else {}}if ($aff_print1){if ($aff_print eq $aff_print1){if(!-e "$outpath") { $data="<html><head><title>ISSUE REPORT<\/title><\/head><body bgcolor\=\"\#CCFFCC\"><h1 align\=\"center\">MISMATCH REPORT</h1><table width\=\"1200px\" border\=\"10\" align\=\"center\"frame\=\"border\" rules\=\"all\"><thead><tr bgcolor\=\"\#FFCCFF\"><th>ARTICLE ID<\/th><th>FILE MISSING IN PATH<\/th><th>S100 OUTPUT<\/th><th>F300 OUTPUT<\/th><th>DIFFERENCES<\/th><\/tr><\/thead><tbody><\/tbody><\/table><\/body><\/html>"; $nomismatch_aff="<tr><td>$jnl$artno</td><td\/><td\/><td\/><td>NO MISMATCH FOUND</td></tr>"; $data=~s#(<\/tbody><\/table>)#$nomismatch_aff$1#g; &print_outpath(); } else { $nomismatch_aff="<tr><td>$jnl$artno</td><td\/><td\/><td\/><td>NO MISMATCH FOUND</td></tr>"; &read_outpath(); $data=~s#(<\/tbody><\/table>)#$nomismatch_aff$1#g; &print_outpath(); }}else {if(!-e "$outpath") { $data="<html><head><title>ISSUE REPORT<\/title><\/head><body bgcolor\=\"\#CCFFCC\"><h1 align\=\"center\">MISMATCH REPORT</h1><table width\=\"1200px\" border\=\"10\" align\=\"center\"frame\=\"border\" rules\=\"all\"><thead><tr bgcolor\=\"\#FFCCFF\"><th>ARTICLE ID<\/th><th>FILE MISSING IN PATH<\/th><th>S100 OUTPUT<\/th><th>F300 OUTPUT<\/th><th>DIFFERENCES<\/th><\/tr><\/thead><tbody><\/tbody><\/table><\/body><\/html>"; $mismatch_aff="<tr><td>$jnl$artno</td><td\/><td>$aff_print1<\/td><td>$aff_print<\/td><td><\/td><\/tr>"; my $diff = String::Diff::diff_merge("$aff_print1", "$aff_print", remove_open => '<FONT style="BACKGROUND-COLOR: RED">', remove_close => '</FONT>', append_open => '<FONT style="BACKGROUND-COLOR: FFFF33">', append_close => '</FONT>', ); $mismatch_aff=~s#(<td><\/td>)#<td>$diff<\/td>#g; $data=~s#(<\/tbody><\/table>)#$mismatch_aff$1#g; &print_outpath(); } else { $mismatch_aff="<tr><td>$jnl$artno</td><td\/><td>$aff_print1<\/td><td>$aff_print<\/td><td><\/td><\/tr>"; my $diff = String::Diff::diff_merge("$aff_print1", "$aff_print", remove_open => '<FONT style="BACKGROUND-COLOR: RED">', remove_close => '</FONT>', append_open => '<FONT style="BACKGROUND-COLOR: FFFF33">', append_close => '</FONT>', ); $mismatch_aff=~s#(<td><\/td>)#<td>$diff<\/td>#g; &read_outpath(); $data=~s#(<\/tbody><\/table>)#$mismatch_aff$1#g; &print_outpath(); }}}else {}}else {}sub read_outpath{open FILE, "<$outpath"; read FILE, $data, 100000000; close FILE; }sub print_outpath{open FILE, ">$outpath"; print FILE $data; close FILE; }exit;