/* NET-LogViewer */

options results ; signal on SYNTAX ; signal on ERROR ; signal on IOERR
tr=transmit ; se=sendstring ; gc=getchar ; gu=getuser ; gs=getscratch

START:
    log.1 = "sysdata:log/JamMail.log"
    log.2 = "sysdata:log/TrapList"
    log.3 = "sysdata:log/Toss"
    log.4 = "sysdata:log/poll"
    log.5 = "sysdata:log/FreqMate"

    do i=1 to 5 ; f.i=exists(log.i) ; end i

    tr 'n1r1 CNet Amiga FIDO-NET Log Viewer r0n1'
    tr '1. 'substr(' *',f.1+1,1)' JamMail Log'
    tr '2. 'substr(' *',f.2+1,1)' TrapList Log'
    tr '3. 'substr(' *',f.3+1,1)' CNetToss Log'
    tr '4. 'substr(' *',f.4+1,1)' Poller2  Log'
    tr '5. 'substr(' *',f.5+1,1)' FreqMate Logn1'
    tr 'Q. Quit Log Viewern1'
    se 'Choice: ' ; gc ; a=result ; if a<1 | a>5 then a='Q'
    if a='Q' then do ; tr 'Quit' ; exit ; end

    if f.a=1 then tr substr(log.a,13)'n2q1*0'log.a'}'
        else do ; tr substr(log.a,13)'n2<Log Empty>' ; signal START ; end

    se 'Delete Log? [No]: ' ; gc ; b=result
    if b~='Y' then do ; tr 'No.' ; signal START ; end
    tr 'Yes!n2Deleting...$odelete 'log.a'}h6ed!'
  signal START

SYNTAX: ; ERROR: ; IOERR:
    tr 'n2ce*** c9BOOM ce*** c9Error Detectedce!' ; tr 'c6ERc9:cb'rc' c6(ca'errortext(rc)'c6) @ cf'sigl
    tr 'cdSysop has been notified...' ; logentry 'ER:'rc' ('errortext(rc)') @ 'sigl
    logentry 'while using NetLogViewer' ; bufferflush
  exit

/*                        < END OF FILE MARKER >                         */