      REM PLW-MAIN
*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
*
      OPEN 'WWW.CTRL' TO CTRL.FD ELSE CALL PLXX.STOP(201,'WWW.CTRL')
*
      READ D FROM CTRL.FD , 'MIME-TYPES' ELSE CALL PLXX.STOP(202,'MIME-TYPES')
*
      PRINT
      PRINT 'Building WWW.CTRL MIME*... records from WWW.CTRL MIME-TYPES record ...'
*
      I1 = DCOUNT(D,AM)
      FOR I = 1 TO I1
         DD = TRIM(D<I>)
         A1 = FIELD(DD,' ',1)
         A2 = FIELD(DD,' ',2)
         A3 = FIELD(DD,' ',3)
         WRITE OCONV(A3,'MCL') : AM : A1 ON CTRL.FD , 'MIME*' : A2
         PRINT I 'R#3' : ' ' : A2 'L#10' : CR :
      NEXT I
*
      PRINT
   END
