home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / livecnt.zip / livecnt1.cmd < prev   
OS/2 REXX Batch file  |  1997-03-27  |  715b  |  25 lines
  1. /* /usr/bin/os2/warp/ */
  2.  
  3. /* SETUP -- begin -- */
  4. counter= "c:\www\cgi-bin\dirs\data\count2.dat";
  5. /* SETUP -- end -- */
  6. parse arg a1 a2 a3
  7.                 say "Content-type: text/plain"
  8.                 say "Pragma: no-cache"
  9.                 say
  10.  
  11. /* otevri soubor */                
  12. call stream counter,'C','OPEN READ'
  13. /* precti cislo */
  14. cislo=linein(counter);
  15. if cislo='' then cislo=0;
  16. call stream counter,'C','CLOSE'
  17. if a1='i' then 
  18.               do
  19.                 cislo=cislo+1;
  20.                 call stream counter,'C','OPEN WRITE'
  21.                 call stream counter,'C','SEEK 1'
  22.                 call lineout counter,cislo
  23.               end  
  24. say "c0="cislo
  25. if a1='v' then say "vr=0.95i"