#! /usr/bin/perl -w                                                             
use MIME::Base64;                                                               
use strict;                                                                     
use warnings;                                                                   
use diagnostics;                                                                
use CGI;                                                                        
use CGI::Carp qw(fatalsToBrowser);                                              
use HTML::Template;                                                             
                                                                                
my $cgi = CGI->new();                                                           
my %params = $cgi->Vars();                                                      
print $cgi->header(-type => 'text/html');                                       
                                                                                
my $template = HTML::Template->new(filename =>  '/home/webmaster/docs/deutsch/Be
darfsmeldung/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 => $par
ams{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}){                                                         
my $sendmail = '/usr/sbin/sendmail -t';                                         
my $sender = 'Piero <gior@imap.de>';                                            
my $empfaenger = 'Du <gior@imap>';                                              
my $betreff = 'Artikelliste';                                                   
my $body = "Artikel\tStueck\tPreis\n";                                          
my @artikel = split(/;/,$params{alt});      
foreach(@artikel){                          
 my ($art,$st,$eur) = split(/#/,$_);        
 $body .= $art."\t".$st."\t".$eur."\n";     
}                                           
start_html,                                 
table(                                      
Tr(                                         
[                                           
td(['Benutzer:',$params{BENUTZER}]),        
td(['Abteilung:',$params{ABTEILUNG}]),      
td(['Kostenstelle:',$params{KOSTENSTELLE}]),
td(['Datum:',$params{DATUM}]),              
td(['Artikel:',$params{ARTIKEL}]),          
td(['Stueck:',$params{STUECK}]),            
td(['Euro:',$params{EURO}]),                
]                                           
),#Tr                                       
),#table                                    
end_html;                                   
                                            
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();