home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 3 / Meeting_Pearls_III.iso / Pearls / comm / Mail+News / UMS11 / Bin / umscopy.v40 < prev    next >
AmigaDOS Script File  |  1995-07-09  |  636b  |  35 lines
  1. .key file/A,msgid/A,umsname/A,resultvar/A
  2. .bra {
  3. .ket }
  4.  
  5. failat 10
  6. set destdir `getenv umsfiles.{umsname}`
  7.  
  8. if not `echo len 1 $destdir` eq :
  9.   if not `echo len 1 $destdir` eq /
  10.     set destdir $destdir/
  11.   endif
  12. endif
  13. set newfile `list quick lformat "$destdir%n" {file}`
  14.  
  15. if exists $newfile
  16.   set i 1
  17.   lab loop
  18.   if exists $newfile.$i
  19.     set i `eval $i + 1`
  20.     skip loop back
  21.   endif
  22.   set newfile $newfile.$i
  23. endif
  24.  
  25. failat 21
  26. echo "trying to make link of {file} to $newfile .."
  27. makelink $newfile {file} hard
  28. if error
  29.   failat 10
  30.   echo "copying {file} to $newfile .."
  31.   copy {file} $newfile clone
  32. endif
  33.  
  34. setenv {resultvar} $newfile
  35.