#! /usr/bin/perl -w  
use MIME::Base64;
use strict;
use warnings;
use diagnostics;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use lib qw(.);
use Mail::Sendmail;
#use FindBin();
#use lib $FindBin::Bin;
use HTML::Template;
use HTML::Entities;


my $cgi = CGI->new();
my %params = $cgi->Vars();
print $cgi->header(-type => 'text/html');
                                                                                
my $template = HTML::Template->new(filename =>  '/home/webmaster/docs/deutsch/Bedarfsmeldung/bedarfsmeldung2.htm');
                                                                                
if($params{add}){ # wenn artikel hinzugefügt werden soll
my @loop = ();
if($params{alt}){
  my @artikel = split(/;/,$params{alt});
  foreach(@artikel){
  my ($art_name,$stueck,$euro) = split(/#/,$_);
  push(@loop,{ARTIKEL => $art_name, STUECK => $stueck, EURO => $euro});
  }                                                                               
}                                                                               
push(@loop,{ARTIKEL => $params{ARTIKEL}, STUECK => $params{STUECK}, EURO => $params{EURO}});
my $alte = $params{alt}.";$params{ARTIKEL}#$params{STUECK}#$params{EURO}";
$template->param(ALT => $alte,
                     ARTIKELLISTE => \@loop,
                     ABTEILUNG => $params{ABTEILUNG},
                     KOSTENSTELLE => $params{KOSTENSTELLE},
                     DATUM => $params{DATUM},
                     BENUTZER => $params{BENUTZER});
}                                                                               
                                                                                
elsif($params{submit}){                                                      
#require Mail::Sendmail;                                                     
#my $sendmail = '/usr/sbin/sendmail -t';                                     
my $sender = 'Piero <gior\@imap.de>';
my $empfaenger = 'Du <gior\@imap>';
my $betreff = 'Artikelliste';
my $body = qq~<table><tr><td>Benutzer</td><td>$params{BENUTZER}</td></tr>    
<tr><td>Abteilung</td><td>$params{ABTEILUNG}</td></tr>                       
<tr><td>Kostenstelle</td><td>$params{KOSTENSTELLE}</td></tr>                 
<tr><td>Datum</td><td>$params{DATUM}</td></tr></table>                       
~;                                                                           
$body='<table border="1"><th>Artikel</th><th>Stueck</th><th>Preis</th>';     
my @artikel = split(/;/,$params{alt});
foreach(@artikel){                                                           
 my ($art,$st,$eur) = split(/#/,$_); $body .= '<tr><td>'.$art.'</td><td>'.$st.'</td><td>'.$eur.'</td></tr>';     
}                                                                            
$body .= '</table>';                                                         
                                                                             
my %mailer_options = (                                                       
'Content-Type' => 'text/html; charset="iso-8859-1"',
To => $empfaenger,
From => $sender,
Subject => $betreff,                                      
Message => $body,                                         
);                                                        
Mail::Sendmail::sendmail(%mailer_options);                
                                                          
                                                          
#open(MAIL,"| $sendmail") or print $!;                    
#print MAIL "To: $empfaenger\n";                          
#print MAIL "From: $sender\n";                            
#print MAIL "Subject: $betreff\n\n";                      
#print MAIL $body;                                        
#close MAIL;                                              
$template->param(MESSAGE => 'E-Mail wurde abgeschickt');  
}                                                         
print $template->output();