#!/usr/bin/perl
#
# Command:    perl email.pl "%1" "%2" "%4"
#
# Call:       perl email.pl Scriptpath Spoolpath Filename
#

use MIME::Lite;

#------------------------------------------------------------------------------#
# Params: Scriptpfad Spoolpfad Dateiname

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

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 gültige Kontrolldatei prüfen #

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

# Mit Hilfe der Positionsangaben Anschrift und  #
# Bestellnummer aus der Kontrolldatei entnehmen #

$count = 0;
while(<CTL>)
  {
    chomp;

    if (/^\[0102C10000\] +([0-9]+).*/) { $Liefernummer = $1; }

    if (/^\[0104290000\]/) { $Bestellnummer = substr ($_, 69, 5); }
    if (/^\[0103750000\]/) { $Anschrift1    = substr ($_, 12, 50); }
    if (/^\[0103B10000\]/) { $Anschrift2    = substr ($_, 12, 50); }
    if (/^\[0104290000\]/) { $Anschrift3    = substr ($_, 12, 50); }
    if (/^\[0104650000\]/) { $Anschrift4    = substr ($_, 12, 50); }
    if (/^\[0104A10000\]/) { 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:Lieferschein $Liefernummer",              # title of PDF file #
        "-dAuthor:print2forms");                          # author of PDF file #
     
# Eine Nachricht mit zwei Teilen erzeugen #

$msg = MIME::Lite->new(From    =>"versand\@spe-systemhaus.de",
                       To      =>"spe\@spe-systemhaus.de",
                       Subject =>"Ihre Bestellung Nummer " . $Bestellnummer,
                       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 Lieferschein $Liefernummer\n" .
                    "zur Bestellung $Bestellnummer\n" .
                    "\n" .
                    "Mit freundlichen Grüßen\n" .
                    "Kabel GmbH\n" .
                    "\n" .
                    "Dieses Dokument wurde von print2forms erzeugt und ist\n" .
                    "ohne Unterschrift gültig.\n" );

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

$text = $msg->as_string;

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

$msg->send;

close (CTL);

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

exit 0;