#!/bin/ksh
#********************************************************************
#
echo "SKELETON JOBCARD"
#
#********************************************************************
# SKELETON-PARAMETER :
# --------------------
# DISPLAY  : cad520:0.0
# --------------------
# CURLIC   : vpm3d
# CURDEC   : master
# CURPRJ   : mro
# CURRIF   : v4r2m2p0
# --------------------
# JOBACCT  : 00000001
# JOBUSR   : dbb
# JOBCLS   : V
# --------------------
# PRJ      : 
# GRP      : catiamst
# USR      : dbb
# ACCT     : 00000001
# PWD      : ?
# --------------------
# JOBPGMR  : 22A5259.MODEL
# IDENT    : D020408.T100455.dbb
# --------------------
# FILE     : CATIA.ADM.DBB.MAP
# MODELID  : ?
# SHTFILE  : CATIA.SHT.PLOT2.MAP
# SHT      : ?
# SPLFILE  : ?
# SPL      : ?
# --------------------
# SKAL     :  .664
echo SKAL : " .664"
# SKAL%    :  66.4
# COMMENTX : 15
# COMMENTY : 235
# COMMENTR : VER
# COMMENT  :       dbb
# COPIES   : 01
# --------------------
# PARM0    : R001P611
# PARM1    : PARM1
# PARM2    : YES
# PARM3    : HPDUMBH
# PARM4    : HPDUMBT
# PARM5    : PARM5
# PARM6    : PEN8COL
# PARM7    : nobanner
# PARM8    : pcl
# PARM9    : PARM9
# --------------------
# MENUON   : ?
# I        : 0000
# PLTR     : ?
# --------------------
# FILE2    : CATIA.ADM.DBB.MAP
# MODNEW   : ?
# --------------------
# KNR      : 22A5259
# SNR      : .22A525930
# IND      : 22
# BEZ      : WINKEL
# AKZ      : BTSC
#********************************************************************
#current-directory fuer plotausgaben
WKDIR=/tmp/D020408.T100455.dbb
cd $WKDIR

#
# Input/Output - Dateien der Utilities
#
# CATPLOT Input
FT05_PLT=ft05f001.plt
# Input SHEET - Analyse
FT05_ANA=ft05f001.ana
# Ausgabe CATPLOT
CATP_OUT=catplot.out
# Plotdatei
PLOT_OUT=catout

integer RC_JOB
RC_JOB=0
integer RC_FT5
RC_FT5=-1
integer RC_SHT
RC_SHT=-1
integer RC_PLT
RC_PLT=-1
integer RC_SND
RC_SND=-1
echo "ReturnCode="$RC_JOB

[ "vpm3d" != "&""CURLIC." ] && export CURLIC=vpm3d
[ "master" != "&""CURDEC." ] && export CURDEC=master
[ "mro" != "&""CURPRJ." ] && export CURPRJ=mro
[ "v4r2m2p0" != "&""CURRIF." ] && export CURRIF=v4r2m2p0
#-------------------------------------------------------
# Bypass für VPM-Pbm #0324
[ "$CURLIC" = "default" ] && unset CURLIC
[ "$CURPRJ" = "default" ] && unset CURPRJ
[ "$CURRIF" = "default" ] && unset CURRIF
. CURenv
#-------------------------------------------------------
#. $CAT_ENV
. /var/mro/bin/catiaenv
echo "CATIA-Umgebung:"$CATIA
echo "  LIC:"$CURLIC" DEC:"$CURDEC" PRJ:"$CURPRJ" RIF:"$CURRIF

#********************************************************************
#
echo "SKELETON FT5HPGL  : ERZEUGEN ft05f001 FÜR PLOTSTEP"
#
#********************************************************************
# SKELETON-PARAMETER:
# -------------------
# I        : 0000
#********************************************************************

if [ $RC_JOB -eq 0 ]
then
  cat  $V4_MRO/adm/plot2/pltpen/PEN8COL  > ft05f001.CATPLOT.0000
  cat                        << EOF    >> ft05f001.CATPLOT.0000
*IMPORT   SHEET
/
*DD_IMP   CATIA.SHT.PLOT2.MAP SHEET
*MB_IMP   DIN A3   TYP 0        PL2MX    D020408.T100455.DBB
/
*EXPORT   IBM-GL
/
*COM
      dbb
*PCO VER 15 235
/ *CLR      PARM1
*LFS      NO
*NHR      NO
/ *PRE      YES
*PRE      YES
*TEXT     NO
*TON      NO
*TRT      BLACK
/ *SCD       .664
*FCD       .664
/ *ROT      &ROTATE.
*SIZ      9999. 9999.
/
/ *DEL      NO
*DEL      YES
*RUN
/
EOF
#
#--------------------------------------------------------------------
#  SHEETFORMAT ANALYSIEREN
#--------------------------------------------------------------------
  cat <<                EOF  > ft05f001.PL2FORM.0000
*PRJ      
/ *PRJ      MRO
*GRP      catiamst
*USR      dbb
*ACCT     00000001
*PWD      XXXXXXXX
/
*SHTFILE  CATIA.SHT.PLOT2.MAP
*SHT
 *DIN A3   TYP 0        PL2MX    D020408.T100455.DBB
/
EOF

  CATLICA="BATCH"
  export CATLICA
  $V4_MROXX/load/PL2FORM < ft05f001.PL2FORM.0000 > ft06f001.PL2FORM.0000
  . /var/mro/bin/getrc
  RC_FT5=$rc
  unset CATLICA
  if [ $RC_FT5 -gt 1 ]
  then
    RC_JOB=$RC_JOB+$RC_FT5
  fi
  echo "ReturnCode="$RC_JOB
fi
#********************************************************************
#
echo "SKELETON PLTHPGL  : PLOTTEN EINES VORBEREITETEN CATIA-SHEETS"
#
#********************************************************************
# SKELETON-PARAMETER:
# -------------------
# I        : 0000
#********************************************************************
# zur Info:
catpath -l -A catia.model_kbytes.max_active_data
catpath -l -A catia.model_kbytes.max_active_index

PLTCOL=/var/mro/adm/plot2/pltcfg/PLTCOL
export PLTCOL
LINEDF=/var/mro/adm/plot2/pltcfg/LINEDF
export LINEDF

if [ $RC_JOB -eq 0 ]
then
  umask 000

  CATOUT=PLOT_OUT.0000
  export CATOUT

  export CATLICA="BATCH"
  catutil -l catplot -x ft05f001.CATPLOT.0000 -o ft06f001.CATPLOT.0000
  RC_PLT=$?
  RC_JOB=$RC_JOB+$RC_PLT
  echo "ReturnCode="$RC_JOB
  unset CATLICA
fi
#********************************************************************
#
echo "SKELETON SNDDUMB"
#
#********************************************************************
# SKELETON-PARAMETER :
# --------------------
# I        : 0000
#********************************************************************

if [ $RC_JOB -eq 0 ]
then
  /usr/sbin/sync

  umask 022
# tstamp="`date +d%y%m%d.t%H%M%S`"
# user="`whoami`"

# Pens vor PlotFile hängen
  cat /var/mro/adm/plot2/hpglpen/PEN8COL >> $CATOUT.tmp
  cat $CATOUT >> $CATOUT.tmp

# PlotFile ggf. konvertieren
  if [ "pcl" != "hgl" ]
  then
    cp -p $CATOUT.tmp $CATOUT.hpgl
    if [ "pcl" = "pcl" ]
    then
      # Konvertierung HPGL -> PCL
      if [ -x /opt/grafiktools/bin/hp2xx ]
      then
        /opt/grafiktools/bin/hp2xx -f- -t -m pcl -S 4 -d 300 -q \
          $CATOUT.hpgl > $CATOUT.pcl
      else
        /opt/hp2xx/bin/hp2xx -f- -t -m pcl -S 4 -d 300 -q \
          $CATOUT.hpgl > $CATOUT.pcl
      fi
    else
      # Konvertierung HPGL -> xxx
      if [ -x /opt/grafiktools/bin/convert ]
         then
        /opt/grafiktools/bin/convert -quality 100 $CATOUT.hpgl $CATOUT.pcl
      else
        /opt/ImageMagick/bin/convert $CATOUT.hpgl $CATOUT.pcl
      fi
      [ -f $CATOUT.pcl.0 ] && mv $CATOUT.pcl.0 $CATOUT.pcl
    fi
    ln -s $CATOUT.pcl $CATOUT.fmt
  else
    # Keine Konvertierung
    cp -p $CATOUT.tmp $CATOUT.fmt
  fi

# EscapeSequenzen vor und hinter konvertiertes Plotfile hängen
  cat /var/mro/adm/plot2/esc/HPDUMBH  > $CATOUT.tmp
  cat $CATOUT.fmt >> $CATOUT.tmp
  cat /var/mro/adm/plot2/esc/HPDUMBT >> $CATOUT.tmp
  mv $CATOUT.tmp $CATOUT.fmt

  lp -d R001P611 $CATOUT.fmt
  RC_SND=$?
  RC_JOB=$RC_JOB+$RC_SND
  echo "ReturnCode="$RC_JOB
fi
#********************************************************************
#
echo "SKELETON MSG"
#
#********************************************************************

if [ $RC_JOB -eq 0 ]
then

  echo "Plotjob erfolgreich beendet" >> xmsgfile

  echo " " >> xmsgfile
  echo "IDENT     : "D020408.T100455.dbb >> xmsgfile
  echo "KERNNR    : "22A5259 >> xmsgfile
  echo "PLOTTER   : "R001P611 >> xmsgfile
# xmsg -f xmsgfile -t PLOT2 -d cad520:0.0 -l 10

else

  echo "Plotjob nicht erfolgreich beendet" >> xmsgfile

  echo " " >> xmsgfile
  echo "IDENT     : "D020408.T100455.dbb >> xmsgfile
  echo "KERNNR    : "22A5259 >> xmsgfile
  echo "PLOTTER   : "R001P611 >> xmsgfile

  echo " " >> xmsgfile
  echo "PL2BATCH: "$RC_SHT >> xmsgfile
  echo "PL2ANA  : "$RC_FT5 >> xmsgfile
  echo "CATPLOT : "$RC_PLT >> xmsgfile
  echo "SENDEN  : "$RC_SND >> xmsgfile
  xmsg -f xmsgfile -t PLOT2 -d cad520:0.0

  echo `hostname`: $WKDIR.PLOT2.22A5259.MODEL>>/var/mro/adm/plot2/error
fi

cat xmsgfile
echo " "

mv $WKDIR* $WKDIR.PLOT2.22A5259.MODEL