#!/usr/bin/perl
#
##############################################################################
# Perl-Script for Order Form (c) Klaus Schönenberg Lohmar
# schoenenberg@lohmar.org
#
# Relaeses
# 2001-02-21 KS	first release
#
#

require "main.lib";

# Presetting
$err=0;
$font0="</FONT>";
$font1="<FONT FACE=Arial SIZE=-1>";
$font3="<FONT FACE=Arial SIZE=-2>";
$font2="<FONT FACE=Arial>";
$mailprog="/usr/lib/sendmail";

# open logfile
open (LOG,">>../LOGS/shop.log") or die "Cannot write to logfile";

# fetch date all forms
&make_datum;
print LOG "\nAccounting at $dat02 \n";

# read The INPUT BUFFER from .htm FORM-TAG
&read_buffer;
$goon=$FORM{goon};
$l_bed=$FORM{l_bed};

if ($goon eq "Weiter bearbeiten") { $goon = "" }

# get the cookies
&get_cookies;

# The order form if not new
if ($goon) {

	$name=$FORM{name};
	$strasse=$FORM{strasse};
	$plz=$FORM{plz};
	$ort=$FORM{ort};
	$telefon=$FORM{telefon};
	$email=$FORM{email};
	$sonstiges=$FORM{sonstiges};
	$zahlweise_JM=$FORM{zw_JM};
	$zahlweise_TM=$FORM{zw_TM};
	$zahlweise_AI=$FORM{zw_AI};
	$zahlweise_EX=$FORM{zw_EX};

}

$orders=$cookie{AIShopBasket}; # Get the Cookie for the AIShopBasket

# wenn keine Daten vorhanden, nimm Cookies
if (!$email) { $email=$cookie{AIShopEMail}; }
if (!$name) { $name=$cookie{AIShopName}; }
if (!$strasse) { $strasse=$cookie{AIShopStrasse}; }
if (!$plz) { $plz=$cookie{AIShopPLZ}; }
if (!$ort) { $ort=$cookie{AIShopOrt}; }
if (!$telefon) { $telefon=$cookie{AIShopTelefon}; }
if (!$zahlweise_JM) { $zahlweise_JM=$cookie{AIShopZW_JM}; }
if (!$zahlweise_TM) { $zahlweise_TM=$cookie{AIShopZW_TM}; }
if (!$zahlweise_AI) { $zahlweise_AI=$cookie{AIShopZW_AI}; }
if (!$zahlweise_EX) { $zahlweise_EX=$cookie{AIShopZW_EX}; }


print LOG "	$email,$name \n";
print LOG "	Goon:$goon \n";

# Set the Lieferdaten-Cookies
$cokexpiration="Sun, 27-Jan-2030 00:00:01 GMT";
$cokpath="/";
$cokname="AIShopEMail";		$cokvalue="$email";			&set_cookie;
$cokname="AIShopName";		$cokvalue="$name";			&set_cookie;
$cokname="AIShopStrasse";	$cokvalue="$strasse";		&set_cookie;
$cokname="AIShopPLZ";		$cokvalue="$plz";			&set_cookie;
$cokname="AIShopOrt";		$cokvalue="$ort";			&set_cookie;
$cokname="AIShopTelefon";	$cokvalue="$telefon";		&set_cookie;
$cokname="AIShopZW_JM";		$cokvalue="$zahlweise_JM";	&set_cookie;
$cokname="AIShopZW_TM";		$cokvalue="$zahlweise_TM";	&set_cookie;
$cokname="AIShopZW_AI";		$cokvalue="$zahlweise_AI";	&set_cookie;
$cokname="AIShopZW_EX";		$cokvalue="$zahlweise_EX";	&set_cookie;


# Read Label-Infos
open (LABEL,"para/labellist") or die "Cannot read File labellist in Dir para ";
$i=0;
while (<LABEL>) {
	($l_kurz,$l_name,$l_mail,$l_vers,$l_nach) = split(/\,/, $_);
	@labelkurz[$i] = $l_kurz;
	@labelname[$i] = $l_name;
	@labelmail[$i] = $l_mail;
	@labelvers[$i] = $l_vers;
	@labelnach[$i] = $l_nach;
	$i++;
}
$anz_label=$i;


&print_html_header;

if ($goon eq "Zusammenstellen") {
	&check_l_accept;
	if ($error_msg) {
		&error_messages;
	}
	&check_email_adress;
}

if ($error_msg) {
	&error_messages;
} else {
	&make_positions;
	&make_datum;

	# after clicking "Bestellen", this way first
	#
	if ($goon eq "Bestellen") {
	 
		&send_emails;
		&loeschen_bestell_cookies;
		&print_order_header;
 
	} else {

		&print_positionen;
		if ($anz > 0) {
			&print_zusammenfassung;
			&print_lieferdaten;
			# &print_bestellen;
		}

	}

} # error?

print <<EOF;

<P><BR><BR></P>

<SCRIPT>function zahlung() {
vista=window.open("help.htm#zahlung", "vista", "toolbar=no,directories=no, status =no,menubar=no,scrollbars=yes,resizable=yes,copyhistory=no,width=400,height=400") ;
}</SCRIPT>
<SCRIPT>function z_bedingungen() {
vista=window.open("help.htm#z_bedingungen", "vista", "toolbar=no,directories=no, status =no,menubar=no,scrollbars=yes,resizable=yes,copyhistory=no,width=400,height=400") ;
}</SCRIPT>
<SCRIPT>function email() {
vista=window.open("help.htm#email", "vista", "toolbar=no,directories=no, status =no,menubar=no,scrollbars=yes,resizable=yes,copyhistory=no,width=400,height=400") ;
}</SCRIPT>
<SCRIPT>function name() {
vista=window.open("help.htm#name", "vista", "toolbar=no,directories=no, status =no,menubar=no,scrollbars=yes,resizable=yes,copyhistory=no,width=400,height=400") ;
}</SCRIPT>
<SCRIPT>function strasse() {
vista=window.open("help.htm#strasse", "vista", "toolbar=no,directories=no, status =no,menubar=no,scrollbars=yes,resizable=yes,copyhistory=no,width=400,height=400") ;
}</SCRIPT>
<SCRIPT>function plz() {
vista=window.open("help.htm#plz", "vista", "toolbar=no,directories=no, status =no,menubar=no,scrollbars=yes,resizable=yes,copyhistory=no,width=400,height=400") ;
}</SCRIPT>
<SCRIPT>function telefon() {
vista=window.open("help.htm#telefon", "vista", "toolbar=no,directories=no, status =no,menubar=no,scrollbars=yes,resizable=yes,copyhistory=no,width=400,height=400") ;
}</SCRIPT>
<SCRIPT>function mitteilung() {
vista=window.open("help.htm#mitteilung", "vista", "toolbar=no,directories=no, status =no,menubar=no,scrollbars=yes,resizable=yes,copyhistory=no,width=400,height=400") ;
}</SCRIPT>

EOF


$htmlfile="../include/feeter2.inc";
&read_file;
print "</body></html>";

#
# end
#


# Check, if e-mail adress is given (not for correctness)
#
sub check_email_adress {

	$error_msg="";
	$err="0";
	if (!$email) {
		$error_msg="Keine E-Mail Adresse angegeben.";
	}
	if (index($email,"\@") <2) {
		$err="1";
	}
	if (index($email,".") <3) {
		$err="1";
	}
	if ($err eq "1") {
		$error_msg="E-Mail Adresse falsch oder unvollständig";
	}

}

#
# Check Checkbox Lieferbedingungen akzeptieren
#
sub check_l_accept {

	if ($l_bed ne "yes") {
		$error_msg="Sie haben die Lieferbedingungen nicht akzeptiert.";
		$goon="";
	}

}


# 
# Print the HTML Header
#
sub print_html_header {

	print <<EOF;
Content-type: text/html\n\n
<HTML><BODY BGCOLOR=#FFFFFF TEXT=#000000 LINK=#000000
VLINK=#000000 ALINK=#FF0000 ONLOAD="parent.SHOP.location='shop.cgi'; return false;">

<SCRIPT SRC="../basket.js"></SCRIPT>
EOF

}


# 
# Print when everything is DONE
#
sub print_order_header {

	print <<EOF;
<P><BR><BR></P>
<CENTER>
<TABLE BGCOLOR=FFCC66 BORDER=0 WIDTH=95% CELLPADDING=4 CELLSPACING=4>
<TR><TD ALIGN=CENTER COLSPAN=2>
<TABLE WIDTH=95% BGCOLOR=FFFFFF><TR><TD ALIGN=CENTER>
EOF
	print $font1;
print <<EOF;
<BR>
<B> Vielen Dank für Ihren Auftrag</B>
<BR>
<BR>
Ihre Order wurde soeben an die Lieferanten (Labels, Distributoren etc.) weitergeleitet.
<BR>
Sie erhalten von dort jeweils eine Bestätigung Ihres Bestellung.
<BR>
Gleichzeitig erhalten Sie in wenigen Minuten eine Liste Ihrer Bestellung per E-Mail von AFRICA-Iwalewa.
<BR><BR>
</TD></TR></TABLE>
</TD></TR>
<TR><TD ALIGN=CENTER VALIGN=MIDDLE BGCOLOR=FFFFFF>
<A HREF=\"../main.htm\" TARGET=MAIN>
EOF
	print "<BR><B> $font1 Zurück / Back CD-Mainpage $font0 </B></A>";
	print "</TD><TD BGCOLOR=FFFFFF>";
	print $font1;
print <<EOF;
Sollten Sie Fragen oder Anregungen zu diesem Shop haben, können Sie uns auch direkt kontakten. Senden Sie uns dazu eine 
<A HREF=mailto:shop\@weltmusik.de>Nachricht
</A>.
<BR><BR>
</TD></TR>
</TABLE>
</CENTER>
EOF

}
# end sub print_order_header


#
# Print the sorted Items
#
sub print_positionen {

	print <<EOF;
<SCRIPT LANGUAGE="JavaScript">
	showItems();
</SCRIPT>
EOF
	print "\n<FORM ACTION=./order.cgi METHOD=POST>";
	print "\n<CENTER>";
	print "<TABLE WIDTH=95% CELLPADDING=2 CELLSPACING=0 BGCOLOR=FFCC66>";	
	print "<TR><TD>" . $font2;
	print " <B>Warenkorb ";
	if ($anz == 0) {
		print " ist noch leer.";
		print "<TR>";
		print "<TD ALIGN=CENTER BGCOLOR=FFFFFF>";
		print $font2 . "<BR>";
		print "<BR><BR><BR><B>Der Warenkorb ist leer</B>";
		print "<BR>";
		print "Wählen Sie aus der Abteilung <BR><BR>        <A HREF=../main.htm>";
		print "<IMG SRC=../gifs/me_cd0.gif BORDER=0></A><BR>";
		print "einen Artikel aus<BR>";
		print "und legen dort eine CD in den Warenkorb.";
		print "<BR><BR><BR><BR><BR><BR><BR><BR>";
		print "</TD></TR>";
		print "</TABLE>";
		return;
	}
	print "mit $anz Position(en)</B>" . $font0;
	&find_unique_labels;
	print $font1 . " bei $anz_ulabels Lieferanten" . $font0;
	print "</TD></TR></TABLE>";
	$i=0;
	print "\n\n<TABLE ALIGN=CENTER WIDTH=90% CELLPADDING=0 CELLSPACING=0>";	
	&print_label_header;
	while ($i < $anz) {
		print "<TR>";
		print "<TD ALIGN=CENTER VALIGN=TOP>";
		if ($goon eq "") {
			print "<A href=\"javascript:removeitem(";
			print @lfdnr[$i];
			print ")\"><IMG SRC=../gifs/wagen1.gif BORDER=0";
			print " ALT=\"Diesen Artikel aus dem Wagenkorb entfernen\"";
			print " WIDTH=12 HEIGTH=11>";
			print "</A>";
		}
		print $font1 . @labels[$i]  . $font0 . "</TD>";
		print "<TD ALIGN=CENTER VALIGN=TOP>";
		print $font1 . @nummern[$i] . $font0 . "</TD>";
		print "<TD>" . $font1 . @texte[$i]   . $font0 . "</TD>";
		print "<TD ALIGN=RIGHT>" . $font1 . @mengen[$i] ." " . $font0 . "</TD>";
		$preis=@preise[$i] * @mengen[$i];
		print "<TD ALIGN=RIGHT>" . $font1;
		printf ("%.2f", $preis);
		print $font0 . "</TD>";
		print "</TR>";
		$label_menge=$label_menge + @mengen[$i];
		$label_preis=$label_preis + $preis;
		if (@labels[$i] ne @labels[$i + 1]) {
			$ulabel=@labels[$i];
			&fetch_label_data;
			print "<TR><TD COLSPAN=3>";
			print "$font1" . "Bestellen bei:<FONT COLOR=804040><B>";
			print " $l_name - </B></FONT>";
			print " ($l_mail)";
			print "</TD><TD ALIGN=RIGHT><B>" . $font1;
			printf ("%.0f", $label_menge);
			print " </TD><TD ALIGN=RIGHT><B>" . $font1;
			printf ("%.2f", $label_preis);
			print $font0 . "</TD></TR>";
			print "<TR><TD COLSPAN=5>";
			# Summen und Zahlungsweise
			print "<TABLE WIDTH=100% CELLPADDING=0 CELLSPACING=0>";
			print "<TR>";
			# Feld links
			# Auswahl Zahlungsweise aus OPTION-List
			$file="para/za_" . $l_kurz;
			print "\n<TD VALIGN=TOP BGCOLOR=FFFF80>";
			&zahlungsweise;
			print "</TD>";
			# Feld Mitte
			print "<TD VALIGN=TOP>";
			print $font1 . "<B>";
			print " Versandkosten <BR>";
			$zz=substr($l_zahl,0,9);
			if ($zz eq "Nachnahme") {
				print " Nachnahmegebühr <BR>";
			}
			print " Rechnungsbetrag ";
			print $font0 . "</B>";
			print "</TD>";
			# Feld rechts
			print "<TD VALIGN=TOP ALIGN=RIGHT>";
			print $font1 . "<B>";
			printf ("%.2f", $l_vers);
			print "<BR>";
			if ($zz eq "Nachnahme") {
				printf ("%.2f", $l_nach);
				print "<BR>";
			}
			printf ("%.2f", $l_vers + $label_preis + $l_nach);
			print $font0 . "</B>";
			print "</TD>";
			print "</TR></TABLE>"; # Zahlungsarten
			print "<BR>";

			print "</TD></TR>";
			@labelmenge[$i1] = $label_menge;
			@labelpreis[$i1] = $label_preis;
			$gesamtmenge=$gesamtmenge + $label_menge;
			$gesamtpreis=$gesamtpreis + $label_preis;
			$gesamtvers=$gesamtvers + $l_vers;
			if ($zz eq "Nachnahme") {
				$gesamtnach=$gesamtnach + $l_nach;
			}
			$label_menge=0;
			$label_preis=0;
	if ($i<$anz - 1) { &print_label_header }
		}
		$i++;
	}
	print "</TABLE>";
}


#
# Print the feeter, summary and final send
# of the e-mail to order
#
sub print_zusammenfassung {

	print "<TABLE WIDTH=95% CELLPADDING=2 CELLSPACING=0 BGCOLOR=FFCC66>";	
	print "<TR><TD>";
	print $font2 . "<B>Zusammenfassung<B>" . $font0;
	# print "<A HREF=javascript:clearBasket()>##</A>";
	print "</TD></TR></TABLE>";
	print "<TABLE WIDTH=85% CELLPADDING=2 CELLSPACING=0>";	
	print "<TR>";
	print "<TD>";
	print "<TABLE><TR><TD ALIGN=RIGHT>";
	print $font1;
	print "Anzahl Positionen:  ";
	print "<BR>";
	print "Anzahl Lieferanten:  ";
	print "<BR>";
	print "Anzahl Artikel:  ";
	print "<BR><B>";
	print "Summe der Warenwerte:  ";
	print "<BR>";
	print "Summe der Versandkosten:  ";
	print "<BR>";
	if ($gesamtnach > 0) {
		print "Summe der Nachnahmegebühren:  ";
		print "<BR>";
	}
	print "Summe der Rechnungsbeträge:  ";
	print "<B>";
	print $font0;
	print "</TD><TD ALIGN=RIGHT>";
	print $font1;
	printf ("%.0f", $anz);
	print "<BR>";
	printf ("%.0f", $anz_ulabels);
	print "<BR>";
	printf ("%.0f", $gesamtmenge);
	print "<BR><B>";
	printf ("%.2f", $gesamtpreis);
	print "<BR>";
	printf ("%.2f", $gesamtvers);
	print "<BR>";
	if ($gesamtnach > 0) {
		printf ("%.2f", $gesamtnach);
		print "<BR>";
	}
	printf ("%.2f", $gesamtvers + $gesamtpreis + $gesamtnach);
	print "<B>";
	print "</TD></TR><TR><TD></TD></TR></TABLE>";
	print "</TD></TR></TABLE>";

}
# end sub print_zusammenfassung


# Printen der Lieferdaten und Aendern in der Form
#
sub print_lieferdaten {

	print "<TABLE WIDTH=95% CELLPADDING=2 CELLSPACING=0>";	
	print "<TR><TD BGCOLOR=#FFCC66>" . $font2;
	print " <B>Ihre Lieferdaten </B>" . $font0;
	print "\n</TD></TR><TD ALIGN=CENTER>";

	if ($goon eq "Zusammenstellen") {
		print "\n<TABLE WIDTH=90% CELLPADDING=0 CELLSPACING=0><TR>";
		print "<TD VALIGN=TOP ALIGN=RIGHT>";
		print $font1;
		print "E-Mail: <BR>";
		print "Name: <BR>";
		print "Straße: <BR>";
		print "PLZ/Ort: <BR>";
		print "Telefon: <BR>";
		print "Mitteilung: <BR>";
		print $font0;
		print "</TD>\n<TD VALIGN=TOP>";
		print $font1;
		print "$email<BR>";
		print "$name<BR>";
		print "$strasse<BR>";
		print "$plz $ort<BR>";
		print "$telefon<BR>";
		print "$sonstiges<BR>";
		print $font0;
		print "</TD></TR></TABLE>\n";
		print "</TD></TR></TABLE>\n";
		print "</TD></TR></TABLE>\n";
		print "</TD></TR></TABLE>\n";
	} else {

	# Lieferdaten-FORM-Tag
print <<EOF;

    <TABLE BORDER="0" CELLPADDING="0" CELLSPACING="0">
      <TR>
        <TD ALIGN="RIGHT"><A HREF="javascript:email()"><B><FONT FACE="Arial" SIZE="-1">E-Mail</FONT></B></A>&#160;</TD>
        <TD><INPUT TYPE="TEXT" NAME="email" VALUE="$email" SIZE="31" MAXLENGTH="50"></TD>
        <TD ROWSPAN="6" ALIGN="CENTER" VALIGN="MIDDLE" WIDTH="50%">
        <TABLE BORDER="0" WIDTH="95%" CELLPADDING="2" CELLSPACING="2" BGCOLOR="#FF8040">
          <TR>
            <TD VALIGN="TOP" WIDTH="50%"><FONT SIZE="-2" FACE="Arial"><FONT SIZE="+1">F</FONT>&uuml;llen
            Sie Dieses Formular aus. Vergessen Sie bitte nicht, Ihre <B>korrekte
            E-Mail-Adresse</B> anzugeben, damit R&uuml;ckfragen bearbeitet
            werden k&ouml;nnen.<BR>
            <FONT SIZE="+1">J</FONT>e vollst&auml;ndiger Sie die Angaben
            machen, desto problemloser wird die Abwicklung sein.<BR>
            <FONT SIZE="+1">B</FONT>eachten Sie bitte auch: Nicht
            AFRICA-Iwalewa liefert die bestellte Ware, sondern die Labels und
            deren Vertriebe. Von dort erhalten Sie auch Ihre Auftragsbest&auml;tigung
            per E-Mail.</FONT></TD>
          </TR>
        </TABLE></TD>
      </TR>
      <TR>
        <TD ALIGN="RIGHT" VALIGN="MIDDLE"><A HREF="javascript:name()"><FONT FACE="Arial" SIZE="-1">Name</FONT></A>&#160;</TD>
        <TD NOWRAP="NoWrap"><INPUT TYPE="TEXT" NAME="name" VALUE="$name" SIZE="25" MAXLENGTH="30"></TD>
      </TR>
      <TR>
        <TD ALIGN="RIGHT" VALIGN="MIDDLE"><A HREF="javascript:strasse()"><FONT FACE="Arial" SIZE="-1">Stra&szlig;e</FONT></A>&#160;</TD>
        <TD NOWRAP="NoWrap"><INPUT TYPE="TEXT" NAME="strasse" VALUE="$strasse" SIZE="25" MAXLENGTH="30"></TD>
      </TR>
      <TR>
        <TD ALIGN="RIGHT" VALIGN="MIDDLE"><A HREF="javascript:plz()"><FONT FACE="Arial" SIZE="-1">PLZ
          / Ort</FONT></A>&#160;</TD>
        <TD NOWRAP="NoWrap"><INPUT TYPE="TEXT" NAME="plz" VALUE="$plz" SIZE="5" MAXLENGTH="5">&nbsp;<INPUT TYPE="TEXT" NAME="ort" VALUE="$ort" SIZE="25" MAXLENGTH="25"></TD>
      </TR>
      <TR>
        <TD ALIGN="RIGHT" VALIGN="MIDDLE"><A HREF="javascript:telefon()"><FONT FACE="Arial" SIZE="-1">Telefon</FONT></A>&#160;</TD>
        <TD NOWRAP="NoWrap"><INPUT TYPE="TEXT" NAME="telefon" VALUE="$telefon" SIZE="20" MAXLENGTH="25"></TD>
      </TR>
      <TR>
        <TD ALIGN="RIGHT" VALIGN="TOP"><A HREF="javascript:mitteilung()"><FONT FACE="Arial" SIZE="-1">Mitteilung</FONT></A>&#160;</TD>
        <TD NOWRAP="NoWrap"><TEXTAREA NAME="sonstiges" ROWS="3" COLS="30">$sonstiges</TEXTAREA><BR><BR>
        </TD>
      </TR>
    </TABLE>
	</TD></TR></TABLE>

EOF
} 
# Ende Frage, ob Schritt 1 oder 2

	print "<TABLE WIDTH=95% CELLPADDING=2 CELLSPACING=0 BGCOLOR=FFCC66>";	
	print "<TR><TD>";
	print $font2 . "<B>Bestellung abschließen<B>" . $font0;
	print "</TD></TR></TABLE>";
	print "<TABLE WIDTH=90%><TR><TD ALIGN=CENTER>";
	print $font1;
	print "Bitte kontrollieren Sie die Angaben in der obigen Liste. Prüfen Sie vor allem, ob Sie Ihre E-Mail-Adresse korrekt angegeben haben. Ohne E-Mail-Kontakt können Sie keine Ware erhalten.";
	print $font0;
	print "</TD></TR></TABLE>";
	print  "<TABLE><TR><TD BGCOLOR=FFFF00 NOWRAP=NOWRAP>";
	print $font1."Sie akzeptieren die ";
	print "<A HREF=javascript:z_bedingungen()>Liefer- und Zahlungsbedingungen</A>".$font0;
    print "<INPUT TYPE=\"CHECKBOX\" NAME=\"l_bed\" VALUE=\"yes\"";
    if ($l_bed eq "yes") {
		print "CHECKED=CHECKED";
	}
	print ">";
	print "</TD></TR></TABLE>";
	if ($goon eq "Zusammenstellen") {
		print "<TABLE WIDTH=95% BGCOLOR=FFCC66 CELLPADDING=2 CELLSPACING=2>";	
		print "<TR><TD ALIGN=CENTER>";
		print "<TABLE WIDTH=95% BGCOLOR=FFFFFF CELLPADDING=2 CELLSPACING=0>";	
		print "<TR><TD ALIGN=CENTER VALIGN=TOP>";
		print "<INPUT TYPE=SUBMIT VALUE=Bestellen NAME=goon>";
		print "<BR>" . $font1;
		print "Mit Drücken dieses Knopfes wird die Bestellung \"scharf\" gemacht. Die Bestellung wird von AFRICA-Iwalewa an die betreffenden Lieferanten weitergeleitet. Von dort erhalten Sie umgehend eine Auftragsbestätigung.";
		print $font0;
		print "</TD><TD VALIGN=TOP ALIGN=CENTER WIDTH=50%>";
		print "<INPUT TYPE=SUBMIT VALUE=\"Weiter bearbeiten\" NAME=goon>";
		print "<BR>" . $font1;
		print "Wieder Zurück<BR>";
		print "Die Positionen werden nochmals angezeigt und können gelöscht werden. Ebenfalls können Sie noch Änderungen an Ihren Lieferdaten vornehmen sowie die Zahlungsweise ändern.";
		print $font0;
	} else {
		print "<TABLE WIDTH=55% BGCOLOR=FFCC66 CELLPADDING=2 CELLSPACING=2>";	
		print "<TR><TD VALIGN=TOP ALIGN=CENTER WIDTH=50%>";
		print "<TABLE WIDTH=95% BGCOLOR=FFFFFF CELLPADDING=2 CELLSPACING=0>";	
		print "<TR><TD ALIGN=CENTER>";
		print "<INPUT TYPE=SUBMIT VALUE=Zusammenstellen NAME=goon>";
		print "<BR>";
		print $font1;
		print "Die Bestellung wird nun berechnet und Ihnen nochmals zur Kontrolle angezeigt. Danach können Sie dann mit der \"Bestellen\"-Taste die Bestellung endgültig \"scharf\" machen.";
		print $font0;
	}
	print "</TD></TR></TABLE>";
	print "</TD></TR></TABLE>";
	print "</FORM>";

}
# end sub print_lieferdaten


#
# Bestellung endgültig abschliessen, um Mails zu senden
#
sub print_bestellen {

	print "<TABLE WIDTH=95% CELLPADDING=2 CELLSPACING=0 BGCOLOR=FFCC66>";	
	print "<TR><TD COLSPAN=2>";
	print $font2;
	print " <B>Bestellung abschließen</B>";
	print "</TD></TR>";
	print "<TR><TD BGCOLOR=FFFFFF>      </TD><TD ALIGN=CENTER>";
	print "<TABLE WIDTH=98% BGCOLOR=FFFFFF>";
	print "<TR><TD ALIGN=CENTER>";
	print $font1;
	print "Wenn Sie nun die Bestelldaten bestätigen,";
	print " ist Ihre Order <B>verbindlich</B> und kann nicht mehr";
	print " rückgängig gemacht werden.";
	print "<BR><BR>";
	print "In Kürze erhalten Sie eine Bestätigung der Lieferanten.";
	print "<BR><BR>";
	print "Die <A HREF=javascript:z_bedingungen()>";
	print "Liefer- und Zahlungsbedingungen</A>";
	print " werden von Ihnen akzeptiert.";
	print "<BR><BR>";
	# print "<INPUT TYPE=SUBMIT VALUE=NEU NAME=goon>";
	# print "<INPUT TYPE=HIDDEN VALUE=\"$name\" NAME=name>";
	# print "<INPUT TYPE=HIDDEN VALUE=\"$strasse\" NAME=strasse>";
	# print "<INPUT TYPE=HIDDEN VALUE=\"$plz\" NAME=plz>";
	# print "<INPUT TYPE=HIDDEN VALUE=\"$ort\" NAME=ort>";
	# print "<INPUT TYPE=HIDDEN VALUE=\"$telefon\" NAME=telefon>";
	# print "<INPUT TYPE=HIDDEN VALUE=\"$email\" NAME=email>";
	# print "<INPUT TYPE=HIDDEN VALUE=\"$sonstiges\" NAME=sonstiges>";
	# print "<INPUT TYPE=HIDDEN VALUE=\"$anz\" NAME=anz>";
	print "<BR><BR>";
	print "HINWEIS: Wenn Sie einen vernüftigen Browser haben, können Sie diese Seite auch ausdrucken. Klicken Sie bei NETSCAPE auf \"Datei\" und \"Rahmen drucken\".<BR>Beim MS-Explorer \"Datei\" und \"Drucken\".";
	print "</TD></TR>";
	print "</TABLE>";
	print "</TD></TR>";
	print "</TABLE>";
	print "</CENTER>";
	print "</FORM>";

}
# end print_bestellen


# Printen der Ueberschrift ueber die bestellte Ware
#
sub print_label_header {

	print "<TR>";
	print "<TD ALIGN=CENTER>" . $font1 . "<B>Label</B>"  . $font0 . "</TD>";
	print "<TD ALIGN=CENTER>" . $font1 . "<B>Nummer</B>" . $font0 . "</TD>";
	print "<TD>" . $font1 . "<B>Text</B>"   . $font0 . "</TD>";
	print "<TD ALIGN=RIGHT>" . $font1 . "<B>Menge</B>"  . $font0 . "</TD>";
	print "<TD ALIGN=RIGHT>" . $font1 . "<B> Preis</B>"  . $font0 . "</TD>";
	print "</TR>";
}
# sub end print_label_header



# Make Positions, get them from the cookie string and bring them
# into an correct order (sort)
# making arrays for the columns
#
sub make_positions {

	chomp($orders);
	# print "Positionen:$orders <BR>";
	$orders = substr($orders,index($orders,"[")+1,length($orders) - 2);
	# print "Positionen:$orders <BR>";
	@positionen = split(/\]\[/, $orders);
	$anz = split(/\]\[/, $orders);
	$i=0;
	print LOG "	Positionen:\n";
	foreach $pos(@positionen){
		($text, $value) = split(/\^/, $pos);
		($preis, $menge) = split(/\~/, $value);
		$menge =~ tr/\]/ / ;
		$h_menge=$menge * 1; # wegen Verschieber
		$menge=$h_menge;
		$nummer = substr($text,3,8);
		$label = substr($text,0,2);
		$temp = substr($text,14);
		$text=$temp;
		$lfd=$i + 1;
		@positionen[$i] = "$label|$nummer|$text|$menge|$preis|$i";
		print LOG "	  $i: $label $nummer $preis $menge ";
		print LOG substr($text,0,40) . "\n";
		$i++;
	}
	# Sorting Pos
	@sortpos=sort @positionen;
	# Making other arrays
	$i=0;
	$i1=0;
	foreach $pos(@sortpos){
		$lfd=0;
		($label,$nummer,$text,$menge,$preis,$lfd) = split(/\|/, $pos);
		@labels[$i] = $label;
		@nummern[$i] = $nummer;
		@texte[$i] = $text;
		@mengen[$i] = $menge;
		@preise[$i] = $preis;
		@lfdnr[$i] = $lfd + 1;
		$i++;
	}
	# Null setzen, wenn Warenkorb leer
	if ($i == 1) {
		if (@labels[0] eq "nu") {
			$anz=0;
		}
	}

}
# sub make_positions 


# Fetch the labels data (Name, Email) from the 
# labellist
#
sub fetch_label_data {

	$i1=0;
	while ($i1 <$anz_label) {
		if ($ulabel eq @labelkurz[$i1]) {
			$l_kurz=@labelkurz[$i1];
			$l_name=@labelname[$i1];
			$l_mail=@labelmail[$i1];
			$l_vers=@labelvers[$i1];
			$l_nach=@labelnach[$i1];
		}
		$i1++;
	}
	# Das ist Scheisse, aber ohne DB-Anschluss geht das nicht anders
	$l_zahl="Nicht zu bestimmen";
	if ($l_kurz eq "JM") { $l_zahl=$zahlweise_JM }
	if ($l_kurz eq "TM") { $l_zahl=$zahlweise_TM }
	if ($l_kurz eq "AI") { $l_zahl=$zahlweise_AI }
	if ($l_kurz eq "EX") { $l_zahl=$zahlweise_EX }

}
# end fetch_label_data


# 
# Filtern der Unique Labels aus der Artikelliste
#
sub find_unique_labels {

	$i4=0;
	while ($i4 < $anz) {
		if (@labels[$i4] ne @labels[$i4 + 1]) {
			$all_labels=$all_labels . @labels[$i4] . "," ;
		}
		$i4++;
	}
	(@ulabels) = split(/\,/, $all_labels);
	$anz_ulabels=$#ulabels + 1;

}


#
# Erase the cookies for the ordered positions
#
sub loeschen_bestell_cookies {

	print <<EOF;
<SCRIPT>
parent.SHOP.location='shop.cgi?goon=leeren';

index = document.cookie.indexOf("AIShopBasket");
document.cookie="AIShopBasket=.;path=/";

</SCRIPT>
EOF

	#print "<SCRIPT LANGUAGE=\"JavaScript\">";
	#print "url=\"shop.cgi?goon=leeren\";";
	#print "win=\"\";";
	#print "window.open(url,\"SHOP\",win);";
	#print "</SCRIPT>";

}
# end sub loeschen_bestell_cookies


#
# Send the ordering emails
#
sub send_emails {

	&make_datum;	# Datum einfrieren
	&find_unique_labels;
	$i2= -1;
	# Die erste E-Mail geht an den Besteller
	# mit CC an mich
	$mailto=$email;
	$subject="--> AFRICA-Iwalewa Shop-System (Bestätigung)";
	$cc="iwalewa\@lohmar.com";
	open(MAIL, "| $mailprog $mailto,$cc ");
	print MAIL <<EOF;
From:AFRICA-Iwalewa´s Shop-Master
To:$mailto
Cc:$cc
Subject:$subject

***** IHRE BESTELLUNG *****
***************************

Datum: $dat02

Vielen Dank, dass Sie die Möglichkeit genutzt haben, Ihre CDs oder
andere Artikel in AFRICA-Iwalewa´s Shopping-Center zu bestellen.

Ihre Bestellung ist im Shopping-Center eingegangen und wurde an
die entsprechenden Lieferanten (Labels, Distributoren) weitergeleitet.
Von dort erhalten Sie umgehend eine weitere Bestätigung Ihrer Bestellung.

EOF
	&print_email_body_adress;
	&print_email_body_artikel;
	&print_email_body_feeter;
	close MAIL;
	print LOG "	  Mail:$mailto / CC:$cc \n";

	# Die zweite bis n-te E-Mail geht an die jeweiligen Labels (Lieferanten) 
	$i2=0;
	$cc="iwalewa\@lohmar.com";
	# Schleife der einzelnen Lieferanten
	while ($i2 < @ulabels) {
		$ulabel = @ulabels[$i2];
		&fetch_label_data;
		$daslabel=$l_kurz;
		$subject="--> AFRICA-Iwalewa Shop-System (Bestellung $daslabel)";
		$i2++;
		$mailto=$l_mail;
		open(MAIL, "| $mailprog $mailto,$cc ");
		print MAIL <<EOF;
From:AFRICA-Iwalewa´s Shop-Master
To:$mailto
Cc:$cc
Subject:$subject

***** BESTELLUNG *****
**********************

Datum: $dat02

Folgende Bestellung ist für Sie in AFRICA-Iwalewa´s Shopping-Center
eingegangen. Bitte setzen Sie sich mit dem Besteller (Ihrem Kunden)
in Verbindung und bestätigen den Eingang seiner Bestellung bei Ihnen.
EOF
		&print_email_body_adress;
		&print_email_body_artikel;
		&print_email_body_feeter;
		close MAIL;
		print LOG "	  Mail:$mailto / CC:$cc \n";

	}

}
# end sub send_email


#
# Print Adresse into E-Mail
#
sub print_email_body_adress {

	print MAIL <<EOF;

 * BESTELLER
	Name   : $name
	Strasse: $strasse
	PLZ/Ort: $plz $ort
	Telefon: $telefon
	EMail  : $email
	$sonstiges

EOF

}
# end sub print_email_body_adress


#
# Print Artikel into E-Mail
#
sub print_email_body_artikel {

	print MAIL <<EOF;

 * POSITIONEN
EOF
	$i3=0;
	$anzpos=0;
	$gesamtpreis=0;
	while ($i3<$anz) {
		$ulabel=@labels[$i3];
		&fetch_label_data;
		if ($i2 == -1 || @labels[$i3] eq $daslabel) {
			$pospreis=@mengen[$i3] * @preise[$i3];
			$gesamtpreis=$gesamtpreis+$pospreis;
			print MAIL "	@mengen[$i3] x ";
			print MAIL "@nummern[$i3]";
			print MAIL " je @preise[$i3] = ";
			printf MAIL ("%.2f",$pospreis);
			print MAIL "\n";
			print MAIL "	@texte[$i3]\n";
			print MAIL "	Lieferant: $l_name (Zahlung:$l_zahl)\n";
			print MAIL "	----\n\n";
			$anzpos++;
		}
		$i3++;
	}
}
# end sub print_email_body_artikel



#
# Print Fussangaben into E-Mail
#
sub print_email_body_feeter {

	print MAIL "Anzahl Positionen: $anzpos\n";
	print MAIL "Gesamtwert des Auftrages: ";
	printf MAIL ("%.2f", $gesamtpreis);
	print MAIL "\nzuzgl. Versandkosten der jeweiligen Lieferanten \n";
	if ($i2 == -1) {
		$i=0;
		while ($i<$anz_ulabels) {
			$ulabel = @ulabels[$i];
			&fetch_label_data;
			print MAIL "	";
			printf MAIL ("%.2f", $l_vers);
			print MAIL " - " . $l_kurz . ": " . $l_name . "\n";
			$i++;
		}
	} else {
		$ulabel = $daslabel;
		&fetch_label_data;
		print MAIL "	";
		printf MAIL ("%.2f", $l_vers);
		print MAIL " - " . $l_kurz . ": " . $l_name . "\n";
	}

	print MAIL "\n\n";
	print MAIL "Viele Grüße\n";
	print MAIL "Klaus Schönenberg\n";
	print MAIL "AFRICA-Iwalewa´s Shopping-Center\n";
	print MAIL "http://www.weltmusik.de \n\n";
	print MAIL "! The World is Music ! World Music !\n";

}
# end sub print_email_body_feeter


#
# Zahlungsweise auswaehlen
#
sub zahlungsweise {

	print $font1;
	print "<A HREF=javascript:zahlung()>";
	print "Zahlungsweise</A> ";
	if ($goon ne "Zusammenstellen") {
		print "auswählen";
		print "\n<SELECT NAME=zw_$l_kurz SIZE=1>\n";
		open (ZA,$file) or die "Cannot read File $file in Dir para ";
		if ($l_zahl ne "") {
			print "<OPTION VALUE=\"$l_zahl\">" . $l_zahl . "</OPTION>\n";
		}
		while (<ZA>) {
			$za=$_;
			chomp $za;
			print "<OPTION VALUE=\"";
			print "$za\">" . $za . "</OPTION>\n";
		}
		close ZA;
		print "</SELECT>\n";
		print "   <A HREF=javascript:zahlung()>Hilfe</A>";
	} else {
		print $l_zahl;
	} # Zusammenstellen or not

}