#!/bin/sh
USAGE="usage: print_pcl  PCLFILE<fullpath> maptitle subnum"
DATE="2000-02-10 08:30L"
#______________________________________________________________________________
# NAME     : print_pcl
# Author   : Peter Henrichsen
# Purpose  : This script creatres the dbnet_type and dbnet_subtype
#          : that are used by dbn_alert and then calls dbn_alert 
#          : to send the PCLFILE to various HP printers in the WWB.
#                 
#
# History  : 1999-12-15 Peter Henrichsen
#          : 2000-01-28 Peter Henrichsen modify to jcnage "job" to lower case.
#
# Location : This script is found on hp36 as:
#          : /tmp_mnt/export/sgi73/peterhen/util/scripts/ibm/print_pcl
#          : & on ncosp as:          
#          : /nfsuser/g02/wx12ph/util/ush/print_pcl and
#          : /nwprod/util/ush/print_pcl           
#
#               Arg1 is    Arg2 is    Arg3 is
# print_pcl     the PCL    the map    the map
#               file name  title      subset number    
#
#  AN EXAMPLE:
#
# print_pcl  $DATA/$INFILEpcl mapifid 58 
#       where:
#	      "$DATA/$INFILEpcl" is the PCL file full-path.
#             "$mapidif" is the name of fax map that was taken from the
#              message file (unit 75) that was written by 
#              program graph_fxcompoz or graph_widemap
#
#              This arg MUST BE PASSED IN QUOTES " ". 
#            
#              For example:
#              "V0058DL TRAJECTORY 4-PAN 00Z WED 24 NOV 1999" 
#
#             "58" is the fax subset number.
#             
#
#  Remarks : This script assumes that the following values have been exported
#            by the parent script:           
#            USHutil, job, member.
#
#            Also that DBNROOT is defined in the user's .profile !
#_______________________________________________________________________________

cd $DATA
integer   istat

#   make sure member is set to "print_pcl"

 if [ -z "$member" ] ; then
   export member=print_pcl
 fi
  case $member in
    "print_pcl")
   dbntyp=$member
        ;;         	         	           	    	          	                
        *)
   dbntyp=print_pcl
        ;;                              
  esac
  export dbntyp
#   test for missing USHutil
 
 if [ -z "$USHutil" ] ; then
  export USHutil=/nfsuser/g02/wx12ph/util/ush
 fi
 
 VERS="${USHutil}/${dbntyp}"
  print " "
  print "USING $VERS $DATE"
  print " "
  
export PCLFILE="$1"
export mapifid="$2"
export subnum="$3"
 
#   get map name from $msgfile  and creat dbnet_subtype

 echo "input map ifid= $mapifid"
 echo " "

#  create dbnet_subtype

# 1st replace all blanks in mapifid with "_"

  export name=`echo  $mapifid \
   | awk '{for(i=1;i<=NF;i++)\
   {if(i<NF) printf("%s_", $i);\
   else printf("%s",$i);}}'`
               	 
# 2nd append map $subset number infront of $name

  dbnet_subtype="${subnum}_${name}"
  echo "dbnet_subtype=$dbnet_subtype"
  echo " "

#   create  DBNET_TYPE

  export DBNET_TYPE=`echo  $dbntyp | tr '[a-z]' '[A-Z]' `
  
  print " "
  print "DBNET_TYPE = $DBNET_TYPE "
  print " " 

#   check to see if $job is missing

  if [ -z "$job" ] ; then
   export job=$LOGNAME
  fi
 print " "
 print "job = $job "
 print " "  

#   check to see if $DBNROOT is missing
 
if [[ -z $DBNROOT ]]
then
 export DBNROOT=DBNROOT_missing
 print " "
 print "dbnroot = $DBNROOT "
 print " "
 
 echo "$DBNROOT/bin/dbn_alert $DBNET_TYPE $dbnet_subtype $job $PCLFILE"
      export istat=1
else
  print " " 
  print "Found the dbnroot = $DBNROOT "
  print " " 
  set -x 
  
  if test "$SENDDBN" = 'YES'
  then
    $DBNROOT/bin/dbn_alert $DBNET_TYPE $dbnet_subtype $job $PCLFILE 
  fi
  export istat=$?
 set +x 
fi
if test "$istat" = 0 
then 
   msg="Posting $PCLFILE with ${DBNET_TYPE}!"
   echo " "   
else 
   echo " "  
   msg="ERROR FROM dbn_alert = $istat, Posting $PCLFILE with ${DBNET_TYPE}!"
   sndpcl=1
   echo $sndpcl >$DATA/sndpcl
fi
 echo "$msg"
 echo " "