home *** CD-ROM | disk | FTP | other *** search
/ CLIX - Fazer Clix Custa Nix / CLIX-CD.cdr / mac / lib / FileCopy.pl < prev    next >
Perl Script  |  1994-04-25  |  511b  |  28 lines
  1. package FileCopy;
  2.  
  3. &MacPerl'LoadExternals("FileCopy.pl");
  4.  
  5. package MacPerl;
  6.  
  7. #
  8. # &MacPerl'FileCopy($from, $to [, $replace [, $dontresolve]])
  9. # 
  10.  
  11. sub FileCopy {
  12.    local($from, $to, $replace, $dontresolve) = @_;
  13.  
  14.    if ($replace) {
  15.       $replace = "true";
  16.    } else {
  17.       $replace = "false";
  18.    }
  19.  
  20.    if ($dontresolve) {
  21.       &FileCopy'FileCopy($from, $to, $replace, "DontResolveAlias", 
  22.          "DontShowProgress");
  23.    } else {
  24.       &FileCopy'FileCopy($from, $to, $replace, "DontShowProgress");
  25.    }
  26. }
  27.  
  28. 1;