home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / FileMover / Dopus5 / dOPUS5-DMS-RexxScripts.lzx / ViewDIZ.dopus5 < prev   
Encoding:
Text File  |  1995-06-07  |  1.7 KB  |  66 lines
  1. /*
  2.   $VER: ViewDIZ.dopus5 1.1 (03.06.95)
  3.   Written by Odia The Ultimate.
  4.   ARexx script for DOpus 5 to view file_id.diz's.
  5.   Call as 'REXX:ViewDIZ.dopus5 {f} {Qp}' FLAGS="do all files".
  6. */
  7.  
  8. options results
  9.  
  10. parse arg '"' filename '"' portname .
  11.  
  12. if portname~=='' then address value portname
  13. else exit
  14.  
  15. if ~exists("Libs:rexxreqtools.library") then do
  16.     dopus request '"LIBS:RexxReqTools.Library not found." OK'
  17.     exit
  18. end
  19.  
  20. addlib("rexxreqtools.library",0,-30)
  21.  
  22. lf='0a'x
  23.  
  24. if substr(right(filename,4),1,1)~="." then do
  25.   dopus request '"Invalid Extension!" OK'
  26.   exit
  27. end
  28.  
  29. address command
  30. if exists('T:File_ID.DIZ') then 'delete t:file_id.diz'
  31.  
  32. filetype=upper(right(filename,3))
  33.  
  34. if filetype=doc | filetype=dok | filetype=nfo then filetype=txt
  35. if filetype=lzh then filetype=lha
  36.  
  37. select
  38.   when filetype=lha then 'lha x 'filename' file_id.diz t:'
  39.   when filetype=lzx then 'lzx x 'filename' file_id.diz t:'
  40.   when filetype=zip then 'unzip -od 'filename' file_id.diz -d t:'
  41.   when filetype=dms then 'DMSDescript x t:file_id.diz' filename
  42.   when filetype=txt then 'TxtExtract e t:file_id.diz ' filename
  43.   when filetype=exe then 'EXEDescript x t:file_id.diz' filename
  44.   otherwise do
  45.     address value portname
  46.     dopus request '"Unable to handle "'filetype'" Files" OK' 
  47.     exit
  48.   end
  49. end
  50. address value portname
  51. if ~exists('T:File_ID.DIZ') then do
  52.   dopus request '"Failed to Extract File_ID.DIZ" OK'
  53.   exit
  54. end
  55.  
  56. open('Fileid','T:FILE_ID.DIZ',R)
  57. ftxt=''
  58. do until eof('Fileid')
  59.   ftxt=ftxt||lf||readln('Fileid')
  60. end
  61.  
  62. rtezrequest(ftxt,"OK","ViewDIZ V1.1 ©1995 Odia The Ultimate", "RTEz_Flags=EZReqF_CenterText RT_ReqPos=ReqPos_CenterScr RT_PubScrName="portname)
  63. do txt=length(rte) to 12
  64. close('Fileid')
  65. exit
  66.