#!/usr/bin/kitasperlas

print "Content-type:text/html\n\n";

read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs)
{
 ($name, $value) = split(/=/, $pair);
 $value =~ tr/+/ /;
 $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
 $value =~ s/~!/ ~!/g;
 $FORM{$name} = $value;
}

$tipas = $FORM{'TIPAS'};

$mailprog = '/usr/sbin/sendmail';

$recipient = 'vija@auste.elnet.lt';

if ($tipas ne 'www') {
  if ($FORM{'Kiekis'} eq '') { &Klaida("Kiekis"); }
}
if ($FORM{'Pavarde'} eq '') { &Klaida("Pavarde"); }
if ($FORM{'Vardas'} eq '') { &Klaida("Vardas"); }
if ($FORM{'Adresas'} eq '') { &Klaida("Adresas"); }
if ($FORM{'E-mail'} eq '') { &Klaida("E-pastas"); }
if ($FORM{'Telefonas'} eq '') { &Klaida("Telefonas"); }
if ($FORM{'Mobilus'} eq '') { &Klaida("Mobilus telefonas"); }
if ($FORM{'Firma'} eq '') { &Klaida("Firmos pavadinimas"); }
if ($FORM{'T1'} eq '') { &Klaida("Atsakingas uz uzsak. vykdym."); }
if ($FORM{'i_kodas'} eq '') { &Klaida("Imones kodas"); }
if ($FORM{'pvm_kodas'} eq '') { &Klaida("PVM kodas"); }
if ($FORM{'T2'} eq '') { &Klaida("Atsiskaitomoji saskaita"); }
if ($FORM{'T3'} eq '') { &Klaida("Bankas"); }

open (MAIL, "|$mailprog $recipient") || die "Can't open $mailprog!\n";

print MAIL "Reply-to: $FORM{'E-mail'} ($FORM{'Vardas'} $FORM{'Pavarde'})\n";

if ($tipas eq "Atvirutes") {
    print MAIL "Subject: Atviruciu uzsakymas\n\n";
    print MAIL "Nr = $FORM{'NR'}\n";
    print MAIL "Kiekis = $FORM{'Kiekis'}\n";
}elsif ($tipas eq "Dzukija") {
    print MAIL "Subject: Gimtine Dzukija uzsakymas\n\n";
    print MAIL "Kiekis = $FORM{'Kiekis'}\n";
}elsif ($tipas eq "www") {
    print MAIL "Subject: WWW uzsakymas\n\n";
    print MAIL "Variantas = $FORM{'Variant'}\n";
}
print MAIL "Pavarde = $FORM{'Pavarde'}\n";
print MAIL "Vardas = $FORM{'Vardas'}\n";
print MAIL "Adresas = $FORM{'Adresas'}\n";
print MAIL "E-pastas = $FORM{'E-mail'}\n";
print MAIL "Telefonas = $FORM{'Telefonas'}\n";
print MAIL "Mobilus tel. = $FORM{'Mobilus'}\n";
print MAIL "Firmos pav. = $FORM{'Firma'}\n";
print MAIL "Atsakingas uz uzsakymu vykd. = $FORM{'T1'}\n";
print MAIL "Imones kodas = $FORM{'i_kodas'}\n";
print MAIL "PVM kodas = $FORM{'pvm_kodas'}\n";
print MAIL "Atsiskaitomoji saskaita = $FORM{'T2'}\n";
print MAIL "Bankas = $FORM{'T3'}\n";

close(MAIL);

print <<EndHTML;
<h2>Jusu uzsakymas buvo sekmingai issiustas.</h2>
</body></html>
EndHTML

sub Klaida {
  local($text) = @_;
  print "<html><body>";
  print "<h2>Klaida issiunciant forma.</h2><p>Neuzpildytas laukas '$text' !<p>";
  print "<p>Pastaba: Visi formos laukai turi buti uzpildyti.";
  print "</body></html>";
  exit;
}