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); } }