home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / timezn_c.zip / TIMEZONE.CMD < prev    next >
OS/2 REXX Batch file  |  1996-04-29  |  5KB  |  115 lines
  1. /* TimeZone3.cmd */
  2. /* Off-line Time/Date Stamp Modifyer for MR/2 ICE */
  3. /* William H. Geiger III */
  4. /* Geiger Consulting */
  5. /* whgiii@amaranth.com */
  6. say time()
  7. month_of_year="Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec"
  8. user_name=''
  9. fix=''
  10. parse arg user_name fix
  11. if fix=='' then do
  12.    st=stream('error.log','c','open')
  13.    st=stream('error.log','c','close')
  14.    '@echo off'
  15.    erase error.log
  16. pause
  17. end  /* Do */
  18. inbox2=user_name||"\mr2i.ndx"
  19. st=stream(inbox2,'c','open')
  20. do forever while lines(inbox2)
  21.    nxx=stream(inbox2,'c','seek+0')
  22.     ln1=linein(inbox2)
  23.     w1=substr(ln1,28,8)
  24.     w2=substr(ln1,37,3)
  25.     w3=substr(ln1,41,11)
  26.     w4=substr(ln1,54,8)
  27.     w5=substr(ln1,63,5)
  28.     w6=substr(ln1,78,1)
  29.     w7=substr(ln1,84)
  30.     file_name=user_name||"\"||w1||"."||w2
  31.     if fix=='fix' then call 'tzfix.cmd' file_name
  32.     else call 'tz1.cmd' file_name
  33.     x6=stream(file_name,'c','open')
  34.                    old=0
  35.                    fixed=0
  36.                    nyx=1
  37.                    do forever while (length(linein(file_name))>0)                        /* pull info from file header */
  38.                    nzx=stream(file_name,'c','seek =' nyx)
  39.                    linx=linein(file_name)
  40.                    nyx=stream(file_name,'c','seek +0')
  41.                    xx1=pos('Date:',linx,1)
  42.                    xx2=pos('Old TimeStamp:',linx,1)
  43.                    xx3=pos('Fixed:',linx,1)
  44.                    if xx1>0 then dt=linx
  45.                    if xx2>0 then old=1
  46.                    if xx2>0 then fixed=1
  47.                    end
  48.                    x6=stream(file_name,'c','close')
  49.                    if (fix=='fix' & fixed=0) then iterate
  50.                    else if old=0 then iterate
  51.                    parse value dt with xx5 dowt date mont yr tm tz tzt
  52.                    mon=wordpos(mont,month_of_year)              /* convert month to # */
  53.                    if length(mon)=1 then mon='0'||mon
  54.                    if length(yr)=4 then yr=right(yr,2)
  55.                    d1=yr||'/'||mon||'/'||date
  56.                    t1=substr(tm,1,5)
  57.                    y8='                           '||w1 w2 w3||'  '||d1 t1||'          '||w6||'     '||w7
  58.                    nxy=stream(inbox2,'c','seek =' nxx)
  59.                    call lineout inbox2,y8
  60. end
  61. st=stream(inbox2,'c','close')
  62. y4=user_name||'\folders.ndx'
  63. x4=stream(y4,'c','open')
  64. do forever while lines(y4)
  65.    y5=linein(y4)
  66.    parse value y5 with v1 '' v2 '' v3 '' v4 '' v5   /* get folder name */
  67.         folder=user_name||'\'||v3||'\folder.ndx'
  68.         say folder
  69.         x5=stream(folder,'c','open')                                    /* open folder index */
  70. do forever while lines(folder)
  71.    nxx=stream(folder,'c','seek+0')
  72.     ln1=linein(folder)
  73.     w1=substr(ln1,28,8)
  74.     w2=substr(ln1,37,3)
  75.     w3=substr(ln1,41,11)
  76.     w4=substr(ln1,54,8)
  77.     w5=substr(ln1,63,5)
  78.     w6=substr(ln1,78,1)
  79.     w7=substr(ln1,84)
  80.     file_name=user_name||"\"||v3||"\"||w1||"."||w2
  81.     if fix='fix' then call tzfix.cmd file_name
  82.     else call 'tz1.cmd' file_name
  83.     x6=stream(file_name,'c','open')
  84.                    old=0
  85.                    fixed=0
  86.                    nyx=1
  87.                    do forever while (length(linein(file_name))>0)                        /* pull info from file header */
  88.                    nzx=stream(file_name,'c','seek =' nyx)
  89.                    linx=linein(file_name)
  90.                    nyx=stream(file_name,'c','seek +0')
  91.                    xx1=pos('Date:',linx,1)
  92.                    xx2=pos('Old TimeStamp:',linx,1)
  93.                    xx3=pos('Fixed:',linx,1)
  94.                    if xx1>0 then dt=linx
  95.                    if xx2>0 then old=1
  96.                    if xx3>0 then fixed=1
  97.                    end
  98.                    x6=stream(file_name,'c','close')
  99.                    if (fix=='fix' & fixed=0) then iterate
  100.                    else if old=0 then iterate
  101.                    parse value dt with xx5 dowt date mont yr tm tz tzt
  102.                    mon=wordpos(mont,month_of_year)              /* convert month to # */
  103.                    if length(mon)=1 then mon='0'||mon
  104.                    if length(yr)=4 then yr=right(yr,2)
  105.                    d1=yr||'/'||mon||'/'||date
  106.                    t1=substr(tm,1,5)
  107.                    y8='                           '||w1 w2 w3||'  '||d1 t1||'          '||w6||'     '||w7
  108.                    nxy=stream(folder,'c','seek =' nxx)
  109.                    call lineout folder,y8
  110. end
  111. x5=stream(folder,'c','close')
  112. end
  113. x4=stream(y4,'c','close')
  114. say time()
  115.