home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / fax067.zip / fv.cmd < prev    next >
OS/2 REXX Batch file  |  1996-01-16  |  4KB  |  119 lines

  1. /* FV.CMD - View and rename all new FAX files
  2.  *
  3.  * Usage:  FV [PATTERN]
  4.  * PATTERN: optional file search pattern, default is: FREC????
  5.  *          you can view specific FAXes by specifying this pattern.
  6.  *          E.g.: fv waldmann
  7.  *                this will show you all files waldmann*.tif
  8.  *
  9.  *                fv waldmann_9612
  10.  *                this will show you all files waldmann_9612*.tif
  11.  *                
  12.  * - you have to change the variable settings at the top of this script
  13.  *   to match your setup
  14.  *
  15.  * - you should use HPFS (if you use FAT, you have to change longfnamesflag
  16.  *   to 0 to let this script generate stupid 8.3 filenames)
  17.  *
  18.  *   Examples for generated filenames for a FAX that arrived 31.12.95 at
  19.  *   23:59:58, if you enter Waldmann_Thomas as new filename :
  20.  *
  21.  *     HPFS: Waldmann_Thomas_953112_235958.TIF
  22.  *     FAT : WALD1231.TIF
  23.  *
  24.  * - if you do not rename a FAX after viewing, FV will present it to you
  25.  *   again and again until you rename it ...
  26.  *
  27.  * - you should use it with FAXVIEW of Harald Pollack
  28.  *
  29.  * Freeware written 11. - 15.01.96 by Thomas Waldmann, 2:2474/400
  30.  *
  31.  */
  32.  
  33. /******************** variable settings *************************************/
  34.  
  35. this           = 'H:\CL\FV.CMD'      /* path/filename of THIS script        */
  36.  
  37. faxpath        = 'H:\CL'             /* path to search for new FAX files    */
  38.  
  39. faxpattern     = 'FREC????.TIF'      /* search pattern for new FAX files    */
  40.  
  41. faxviewpath    = 'H:\CL\faxview.exe' /* path/filename of FAX viewer         */
  42.  
  43. faxviewoptions = '-FASTDRAW -B'      /* options of FAX viewer - filename of */
  44.                                      /* FAX file will be DIRECTLY appended. */
  45.                                      /* if you have problems, try: '-B'     */
  46.  
  47. waitflag       = 1                   /* 1 = wait for ENTER after renaming   */
  48.                                      /* 0 = don't wait                      */
  49.  
  50. longfnamesflag = 1                   /* 1 = use long filenames (HPFS)       */
  51.                                      /* 0 = use 8.3  filenames (FAT)        */
  52.  
  53. /****************************************************************************/
  54.  
  55. arg arg1 argrest
  56.  
  57. if arg1\="ISWINDOWED" then   /* if fv.cmd isn't started with this argument, */
  58.   do                         /* it will invoke itself in a windowed session */
  59.     '@start /c /win' this 'ISWINDOWED' arg1 argrest
  60.     exit
  61.   end
  62.  
  63. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  64. call SysLoadFuncs
  65.  
  66. if argrest\="" then
  67.   faxpattern=strip(argrest)||"*.TIF"
  68.   
  69. call SysFileTree faxpath||'\'||faxpattern, 'fax', 'FO'
  70. if fax.0>0 then
  71.   do i=1 to fax.0
  72.     call FaxView fax.i
  73.   end
  74. else
  75.   do
  76.     say 'No new FAXes! Press ENTER to continue ...'
  77.     pull dummy
  78.   end
  79. exit
  80.  
  81. FaxView:
  82.   parse arg fname
  83.   say
  84.   say 'Viewing FAX file' fname '...'
  85.   '@'faxviewpath faxviewoptions||fname
  86.   say 'Renaming of FAX file' fname '...'
  87.   if longfnamesflag then
  88.     say '- HPFS: _YYMMDD_hhmmss.TIF will be appended automagically.'
  89.   else
  90.     do
  91.     say '- FAT : MMDD.TIF will be appended automagically.'
  92.     say '        If you enter more than 4 characters for the new name,'
  93.     say '        your input will be truncated after the first 4 chars.'
  94.     end
  95.   say '- Empty input keeps old name.'  
  96.   call charout ,'Enter new name: >'
  97.   parse pull newfnameprefix
  98.   len = length(newfnameprefix)
  99.   if len>0 then
  100.     do
  101.       if (\longfnamesflag) & (len>4) then
  102.         newfnameprefix = substr(newfnameprefix,1,4)
  103.       parse value(stream(fname,'c','query datetime')) with mm'-'dd'-'yy'  'hh':'ii':'ss
  104.       if longfnamesflag then
  105.         newfname = newfnameprefix||'_'||yy||mm||dd||'_'hh||ii||ss||'.TIF' 
  106.       else
  107.         newfname = newfnameprefix||mm||dd||'.TIF'
  108.       say 'Renaming' fname 'to' newfname
  109.       '@ren' fname newfname '>NUL'
  110.       if waitflag then
  111.         do
  112.           say 'Press ENTER to continue ...'
  113.           pull dummy
  114.         end
  115.     end
  116.   return
  117.   
  118. /******************************* EOF ****************************************/
  119.