      SUBROUTINE PLW.GET.PAGE(FNAME,DATA.TP,SRC)
*PIC-LAN
*
*ALL
*PC
*N
*
*
*
*
******************************************************************************
******************************************************************************
***                                                                        ***
*** (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
*
      SRC = ''
      DATA.TP = ''
*
      T = UPCASE(FNAME)
      T = FIELD(T,'/',DCOUNT(T,'/'))
      T = FIELD(T,'.',DCOUNT(T,'.'))
      READ F.TP FROM PL$CTRL.FD , 'MIME*' : T ELSE
         READ F.TP FROM PL$CTRL.FD , 'MIME*' ELSE
            RETURN
         END
      END
*
      BEGIN CASE
         CASE F.TP<2> = 'AM'
            CONV = 'A'
         CASE YES
            CONV = ''
      END CASE
      DATA.TP = F.TP<2>
*
      BEGIN CASE
         CASE DATA$TP = 'FILE'
            READ SRC FROM F$ARRAY(DATA$FNUM) , FNAME ELSE SRC = ''
         CASE DATA$TP = 'HOST'
FNAME = DOWNCASE(FNAME)
            CALL PLHOST.IMPORT(DATA$HOSTPATH:FNAME,CONV,SRC)
      END CASE
*
      RETURN
   END
