home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 113 / EnigmaAmiga113CD.iso / software / varie / rc5control / rc5control_ppc < prev    next >
Encoding:
Text File  |  1980-06-13  |  1.5 KB  |  56 lines
  1. ;$VER: RC5 PPC client control 1.3 (13.06.2000)
  2. ;Copyright © 1999-2000 Daniel Pimley
  3.  
  4. FailAt 21
  5. Lab restart
  6.  
  7. If EXISTS ENV:RC5PPC
  8.  
  9.  If NOT EXISTS $RC5PPC
  10.   RequestChoice >NIL: "RC5 Control" "Bad options for PPC client" "Quit"
  11.   skip quit
  12.  EndIf
  13.  
  14.  If EXISTS ENV:PPC
  15.   Lab notquit
  16.   Break >NIL: PROCESS $PPC
  17.   If WARN
  18.    rx "Parse ARG LOGFILE; If Open(RC5log,LOGFILE,'r') Then; Do; Do until EOF(RC5log); oldmess=mess; mess=ReadLn(RC5log); End; Close(RC5log); PARSE VAR oldmess newmess '.' dummy; If newmess~='Buffers exhausted' Then; PARSE VAR oldmess dummy '(' newmess ')'; End; Else newmess='statistics unavailable'; Open(RC5msg,'ENV:PPCMSG','w'); WriteLn(RC5msg,newmess); Close(RC5msg)" $PPCLOG
  19.    RequestChoice >NIL: "RC5 Control" "PPC client shutdown: $PPCMSG" "OK"
  20.    UnSetENV PPC
  21.   Else
  22.    Wait 3
  23.    skip notquit BACK
  24.   EndIf
  25.  Else
  26.   Run >NIL: $RC5PPC
  27.   Wait 5
  28.   Status >ENV:PPC COMMAND=$RC5PPC
  29.   If WARN
  30.    RequestChoice >NIL: "RC5 Control" "PPC client: Buffers exhausted" "OK"
  31.    UnsetENV PPC
  32.   Else
  33.    RequestChoice >NIL: "RC5 Control" "PPC client installed" "OK"
  34.   EndIf
  35.  EndIf
  36.  
  37. Else
  38.  
  39.  RequestFile >ENV:RC5PPC DRAWER="SYS:" FILE="rc5des_PPC" TITLE="Select PPC Client" NOICONS
  40.  RequestFile >ENV:PPCLOG DRAWER="SYS:" FILE="rc5des.log" TITLE="Select PPC Logfile" NOICONS
  41.  
  42.  Which >NIL: $RC5PPC 
  43.  If WARN
  44.   UnsetENV RC5PPC
  45.   RequestChoice >NIL: "RC5 Control" "Invalid selection" "Quit"
  46.   skip quit
  47.  Else
  48.   Copy >NIL: ENV:RC5PPC ENVARC:
  49.   Copy >NIL: ENV:PPCLOG ENVARC:
  50.  EndIf
  51.  
  52.  Skip restart BACK
  53.  
  54. EndIf
  55.  
  56. Lab quit