      REM MONITOR-WEB
*PIC-LAN
*
*ALL
*PC
*Y
*
*
*
*
******************************************************************************
******************************************************************************
***                                                                        ***
*** (C) Copyright 1990-2005 Doug Dumitru, All Rights Reserved.             ***
***                                                                        ***
*** This program is licensed under the terms of the GNU General Public     ***
*** License, version 2.0 with attached notices.                            ***
***                                                                        ***
*** The full text can be found in the LICENSE.TXT file in the              ***
*** PLIP.BP database file (the /usr/qmweb/PLIP.BP/PLIP.BP directory).      ***
***                                                                        ***
******************************************************************************
******************************************************************************
*
      INCLUDE SYS.TYPE.INCLUDE
*
      INCLUDE PL.COMMON
      INCLUDE PL.COMMON.DEFS
      INCLUDE PL.DEFS
      INCLUDE PLIP.COMMON
      INCLUDE PLW.COMMON
      INCLUDE PL.INIT.INCLUDE
*
      V.OPT = INDEX(SENT<2>,'V',1) <> 0
*
      OPEN 'DEBUG.LOG' TO LOG.FD ELSE CALL PLXX.STOP(201,'DEBUG.LOG')
*
      HEADING "PicLan-IP Debug Log 'LL'"
*
      PL_EXECUTE 'SSELECT DEBUG.LOG' CAPTURING DUMMY
*
      SELECTE TO SEL0
      EOF = NO
      LOOP
         READNEXT ID FROM SEL0 ELSE EOF = YES
      UNTIL EOF DO
         IF V.OPT OR FIELD(ID,'!',2) = '001' THEN
            PRINT ID 'L#20' : OCONV(ID[1,5],'D2/') : ' ' : OCONV(ID[6,5],'MTS')
         END
         READ D FROM LOG.FD , ID THEN
            SELECT D
            SELECTE TO SEL1
            EOF1 = NO
            LOOP
               READNEXT S FROM SEL1 ELSE EOF1 = YES
            UNTIL EOF1 DO
               PRINT S[1,131]
            REPEAT
         END
      REPEAT
   END
