home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / tnef015.zip / tnef.unpack.cmd < prev    next >
OS/2 REXX Batch file  |  2000-10-25  |  2KB  |  84 lines
  1. /* AUTOcmd [0.08] adapted for TNEF */
  2. /**********************************/
  3. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  4. call SysLoadFuncs
  5.  
  6.   /* (C) TEAM OS/2 Russia, http://teamos2.ru, mail@teamos2.ru */
  7.  /************************************************************/
  8. /* these lines are for you */
  9. outdir='\home\myTNEFfiles' /* type here dir in which you want place your HTML files */
  10.  
  11. /* if you want to edit tnef.exe command line parameters please edit line 41-42 */
  12. removethisline=1 /* remove this line then you saw it */
  13.  
  14.  
  15.  
  16.  
  17. /* and these lines are for me ;) */
  18. if removethisline==1 then do;say'';say'';say'';say ' please CONFIGURE tnef.unpack.cmd! ';'@pause >nul';exit;end
  19. parse arg filename
  20. curdir=directory()
  21. if outdir\=directory(outdir) then call SysMkDir outdir
  22. call directory curdir
  23. if filename='' then do; say 'Usage: tnef.unpack.cmd filename.tnef';exit;end
  24.  
  25. tempname=filename
  26. diskname=substr(tempname,1,lastpos(':',tempname)-1)
  27. tempname=substr(tempname,lastpos('\',tempname)+1)
  28. dirname=substr(tempname,1,lastpos('.',tempname)-1)
  29. extname=substr(tempname,lastpos('.',tempname)+1)
  30. dirrname=outdir'\'dirname
  31.  
  32. say ''
  33. say ''
  34. say '  autoCMD adapted for TNEF '
  35. say ''
  36. call SysMkDir dirrname
  37. call directory dirrname
  38. '@copy 'filename' 'dirrname'\'dirname'.'extname '>nul'
  39. call charout STDOUT,' converting.... '
  40.  
  41.  
  42. 'tnef.exe 'dirname'.'extname' |more'
  43.  
  44. say ' ....done '
  45.  
  46. say ''
  47. say ''
  48. say ''
  49. say 'your SOURCE file has been dublicated in directory'
  50. say '  'dirrname' '
  51. say ''
  52. say 'your CONVERTED files are in'
  53. say '  'dirrname' '
  54. say ''
  55. say ''
  56. say ' This window will close itself in 17 seconds '
  57. say ' If you don`t this  MARK TEXT in this window now  or  press PAUSE button '
  58. say ''
  59.  
  60.  
  61. /* ogho! nice joke ;) */
  62. hoho.0=14
  63. hoho.1='█'
  64. hoho.2='█'
  65. hoho.3='█'
  66. hoho.4='█'
  67. hoho.5=' '
  68. hoho.6='O'
  69. hoho.7='S'
  70. hoho.8='/'
  71. hoho.9='2'
  72. hoho.10=' '
  73. hoho.11='W'
  74. hoho.12='a'
  75. hoho.13='r'
  76. hoho.14='p'
  77.  
  78. do i=1 to hoho.0
  79.  call charout STDOUT,hoho.i
  80.  call syssleep 1
  81. end
  82.  
  83. call sysSleep 3
  84.