#!/usr/bin/perl
#
# Command line:    c:\perl\bin\perl.exe "%1\pdfmail.pl" "%2" "%4"
#

use MIME::Lite;

#------------------------------------------------------------------------------#

my $Spool  = $ARGV [0];
my $Name   = $ARGV [1];

exit 100 if ($Spool eq "" || $Name eq "");

my $PCLFile = $Spool . "\\" . $Name . ".pcl";
my $CTLFile = $Spool . "\\" . $Name . ".ctl";
my $PDFFile = $Spool . "\\" . $Name . ".pdf";

open (CTL, "<$CTLFile") or die ("Kann $CTLFile nicht finden\n");

# Auf gueltige Kontrolldatei pruefen #

$Id = <CTL>;
chomp ($Id);
unless ($Id =~ /\[c4p\].*/)
  {
    die("Keine gueltige Kontrolldatei");
  }

# Mit Hilfe der Positionsangaben die Auftragsnummer #
# aus der Kontrolldatei entnehmen #

my $Auftragsnummer;
my $Anschrift1;
my $Anschrift2;
my $Anschrift3;
my $Anschrift4;

while(<CTL>)
  {
    chomp;

    if (/^\[0007D90169\]([0-9]+).*/) { $Auftragsnummer = $1; }

    if (/^\[0003140169\]/) { $Anschrift1 = substr ($_, 12, 50); }
    if (/^\[00031401E1\]/) { $Anschrift2 = substr ($_, 12, 50); }
    if (/^\[0003140259\]/) { $Anschrift3 = substr ($_, 12, 50); }
    if (/^\[00031402D1\]/) { $Anschrift4 = substr ($_, 12, 50); }
    if (/^\[00014002F4\]/) { last; }
  }

system ("C:\\Programme\\Lincoln\\Bin\\LincPDFc",
        "-i$PCLFile",                        # path and name of input PCL file #
        "-o$PDFFile",                       # path and name of output PDF file #
        "-k:5",                                                   # blend mode #
        "-r:2",                                      # ANSI character encoding #
        "-n:1.0",                                      # constant alpha of 1.0 #
        "-q1",                                    # replace patterns with fill #
        "-pType:1",                                            # paper size A4 #
        "-dTitle:Auftrag $Auftragsnummer",                 # title of PDF file #
        "-dAuthor:convert4print");                        # author of PDF file #
     
# Eine Nachricht mit zwei Teilen erzeugen #

$msg = MIME::Lite->new(From    =>"tm\@kunde-gmbh.de",
                       To      =>"tm\@spe-systemhaus.de",
                       Subject =>"Auftrag-" . $Auftragsnummer,
                       Type    =>'multipart/mixed'
                      );

$msg->attach(Type =>'TEXT',
             Data =>"An\n" .
                    "     $Anschrift1\n" .
                    "     $Anschrift2\n" .
                    "     $Anschrift3\n" .
                    "     $Anschrift4\n" .
                    "\n" .
                    "Als Anhang senden wir Ihnen den Auftrag $Auftragsnummer\n" .
                    "zur Lieferung von Testgeraeten.\n" .
                    "\n" .
                    "Mit freundlichen Gruessen\n" .
                    "Kunde GmbH\n" .
                    "\n" .
                    "Dieses Dokument wurde von convert4print erzeugt und ist\n" .
                    "ohne Unterschrift gueltig.\n" );

$msg->attach(Type     =>'document/pdf',
             Path     =>"$PDFFile",
             Filename =>"Auftrag-$Auftragsnummer.pdf" );

MIME::Lite->send('smtp', "10.1.1.9", Timeout=>60);

$msg->send;

close (CTL);

unlink ($PCLFile);    
unlink ($CTLFile);    
unlink ($PDFFile);    

exit 0;