########## Sub wdcopy ########## 
# wdcopy is an interface to 
# File::Copy that uses a watchdog 
# timer to abort the copy process 
# if it appears to be hung (due 
# to network timeout or some 
# such problem 
sub wdcopy { 
  my $src = shift @_;                                       # Get source filename from call 
  my $dest = shift @_;                                      # Get Destination filename from call 
  open (WDFILE,">".$wdfile) || errmsg("Can't create watchdog temp file");  # Open our temp file or open error 
                                                                           # Error dialog then die.  
  print WDFILE "\n";                                        # Send a /n to the the temp file for good measure. 
  close (WDFILE);                                           # Close out watchdog temp file 
  my $watchdog = fork();                                    # For the Fcopy process 
  if (! $watchdog) {                                        # If we're not the parent process 
    fcopy ($src,$dest);                                     # Copy the source to the destination 
    unlink ($wdfile);                                       # Remove the temp file  
    exit 0;                                                 # exit 
  } else {                                                  # Otherwise, we are the parent so  
    while ((-e $wdfile) && ($wdtimeout)) {                  # Loop until the temp file disappears or wdtimeout reaches 0 
      sleep 1;                                              # Sleep for 1 second 
      $wdtimeout--;                                         # Decrement $wdtimeout 
    }                                                       # We're now out of the loop so  
    if (-e $wdfile) {                                       # Check to see if the temp file still exists 
      kill (1,$watchdog);                                   # If so, we kill the forked process 
      unlink ($wdfile);                                     # remove the temp file and  
      return 0;                                             # return to the main program with an error 
    } else {                                                # Otherwise everything went smoothly so  
      return 1;                                             # return to main program with success. 
    } 
  } 
} 
########## END Sub wdcopy ##########