home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 3 / Meeting_Pearls_III.iso / Pearls / comm / Mail+News / AmigaElm / c / DecodeNeXTmail < prev    next >
AmigaDOS Script File  |  1994-12-10  |  899b  |  50 lines
  1. .key file/a
  2. .bra [
  3. .ket ]
  4.  
  5. ; MultiView fails RC=20 if it's called on an unrecognized file
  6. ;
  7. FailAt 21
  8.  
  9. ; easy living
  10. ;
  11. set tempname "AmiElm-NeXTmail.$process"
  12.  
  13. ; temporary directory
  14. ;
  15. makedir T:${tempname}
  16. assign ${tempname}: ""
  17. cd T:${tempname}
  18.  
  19. ; uudecode file
  20. ;
  21. uudecode "[file]"
  22. ; for relative path: uudecode "${tempname}:[file]"
  23.  
  24. ; uncompress uudecoded file
  25. ;
  26. list LFORMAT="gzip -cdq <*"%N*" >nextmail.tar*Ndelete *"%N*" FORCE QUIET" >T:${tempname}_untar
  27. execute T:${tempname}_untar
  28. delete T:${tempname}_untar FORCE QUIET
  29.  
  30. ; untar uncompressed uudecoded file
  31. ;
  32. tar xf nextmail.tar
  33. delete nextmail.tar FORCE QUIET
  34.  
  35. ; view contents
  36. ;
  37. list LFORMAT="multiview PUBSCREEN=`getactscreen` *"%N*"" >T:${tempname}_show
  38. execute T:${tempname}_show
  39. delete T:${tempname}_show FORCE QUIET
  40.  
  41. ; wipe out temporary stuff
  42. ;
  43. cd ${tempname}:
  44. assign ${tempname}:
  45. delete T:$tempname ALL FORCE QUIET
  46.  
  47. FailAt 20
  48.  
  49. endcli
  50.