#! /usr/bin/perl -w
use strict;
use warnings;
use diagnostics;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use HTML::Template; # musst Du Dir evtl. noch installieren

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}){
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";
}

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();