home *** CD-ROM | disk | FTP | other *** search
/ Carsten's PPE Collection / Carstens_PPE_Collection_2007.zip / F / FN_SCBC.ZIP / WEEKTOP.PPS < prev    next >
Text File  |  1995-09-02  |  708b  |  17 lines
  1. ;
  2. ;    Weektop v1.00ß by Dront/Frontnet (C) 1995
  3. ;    This version needs the Frontnet Scanner v1.0.
  4. ;    {Install: Put this file somewhere in your logoff processing}
  5. ;
  6. integer returncode
  7.  
  8. if (dow(date())<>1) delete ppepath()+"week.tmp"
  9.  
  10. if ((dow(date())=1) & (!exist(ppepath()+"week.tmp"))) then
  11.   fcreate 1,ppepath()+"week.tmp",o_rw,s_db
  12.   fputln 1,"This file should not be removed manually!"
  13.   shell true,returncode,ppepath()+"wtopup.exe",string(toint(readline(ppepath()+"weektop.cfg",2)))+" -S"
  14.   message toint(readline(ppepath()+"weektop.cfg",1)),readline(ppepath()+"weektop.cfg",3),"Scanner v1.0","WeekTop Uploaders","N",date()+7,false,false,ppepath()+"ansi\weekup.pcb"
  15.   fclose 1
  16. endif
  17.