sub cftsain { my ($xxfn1, $xxfn2) = @_; my @dd = (); $dd[7] = 0; $dd[8] = 0; if ( defined (( stat "$xxfn1" )[9]) ) { $dd[7] = (( stat "$xxfn1" )[9]); } if ( defined (( stat "$xxfn2" )[9]) ) { $dd[8] = (( stat "$xxfn2" )[9]); } # Copy the image file if not there or changed. $dd[0] = 0; if (!-e $xxfn2) { copy "$xxfn1", "$xxfn2"; } else { # Database image is newer than staging space image. if ( (( stat "$xxfn1" )[9]) > (( stat "$xxfn2" )[9]) ) { #if ( -M "$xxfn1" > -M "$xxfn2" ) { copy "$xxfn1", "$xxfn2"; $dd[0] = 1; } } $dd[1] = $xxfn1; $dd[2] = $xxfn2; $dd[3] = (( stat "$xxfn1" )[9]); $dd[4] = (( stat "$xxfn2" )[9]); my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($dd[3]); $year = $year+1900; $mon = $mon+1; $dd[5] = $sec.' '.$min.' '.$hour.' '.$mday.' '.$mon.' '.$year.' '.$wday.' '.$yday; ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($dd[4]); $year = $year+1900; $mon = $mon+1; $dd[6] = $sec.' '.$min.' '.$hour.' '.$mday.' '.$mon.' '.$year.' '.$wday.' '.$yday; $dd[9] = -M $xxfn1; $dd[10] = -M $xxfn2; if ( index(lc($xxfn1),'ky2.gif') > -1 ) { out_exclusive('c:/usr/www/test.txt', @dd); } } #### sub cftsain { my ($xxfn1, $xxfn2) = @_; my @dd = (); # Copy the image file if not there or changed. $dd[0] = 0; if (!-e $xxfn2) { copy "$xxfn1", "$xxfn2"; } else { # Database image newer than staging space image. if ( ( stat "$xxfn1" )[9] > ( stat "$xxfn2" )[9] ) { copy "$xxfn1", "$xxfn2"; $dd[0] = 1; } } $dd[1] = $xxfn1; $dd[2] = $xxfn2; $dd[3] = ( stat "$xxfn1" )[9]; $dd[4] = ( stat "$xxfn2" )[9]; my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($dd[3]); $year = $year+1900; $mon = $mon+1; $dd[5] = $sec.' '.$min.' '.$hour.' '.$mday.' '.$mon.' '.$year.' '.$wday.' '.$yday; ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($dd[4]); $year = $year+1900; $mon = $mon+1; $dd[6] = $sec.' '.$min.' '.$hour.' '.$mday.' '.$mon.' '.$year.' '.$wday.' '.$yday; if ( index(lc($xxfn1),'ky2.gif') > -1 ) { out_exclusive('c:/usr/www/test.txt', @dd); } }