#!/usr/bin/perl

use CGI;
$query = new CGI;

$action = $query->param('action');

print "Content-Type: text/html\n\n";
open HEADER, "<apply.pl_data/header" or die $!;
open FOOTER, "<apply.pl_data/footer" or die $!;

print <HEADER>;

print <<EOF;
<table border="0" cellpadding="2" cellspacing="2" align="left" width="90%">
EOF

if ($action eq "domaincheck") { &domaincheck; }
if ($action eq "pakket") { &pakket; }
if ($action eq "pakket2") { &pakket; }
if ($action eq "gegevens") { &gegevens; }
if ($action eq "bevestig") { &bevestig; }

&firstpage;

sub firstpage {
   print <<EOF;
    <tr>
    <td><form method="post"><FONT SIZE=-1 FACE="Arial">
Op deze pagina kan u bekijken of de door uw gewenste domeinnaam nog vrij is en wat de kosten zijn van de webhosting en de domeinnaam.
U kunt rustig alle stappen doorlopen om uit te rekenen welk pakket voor u het meest geschikt is, pas als u op bevestig bestelling heeft gedrukt wordt de bestelling naar ons toe gestuurd.
<P>
    <B>Geef het domeinnaam inclusief extensie, zonder www. ervoor:</B></FONT></td></tr>
    <tr><td><FONT SIZE=-1 FACE="Arial">www.</FONT><INPUT type="text" length="60" size="30" name="domeinnaam" value="${domeinnaam}">
    <select name="domainext">
EOF
   open DOMAIN, "<apply.pl_data/domain";
   @domainprice = <DOMAIN>;
   close DOMAIN;
   
   foreach $index (0 .. $#domainprice) {
      if ($domainprice[$index] !~ /^#/ and length($domainprice[$index]) >= 2) {
         ($domext,$startup,$period,$plength) = split(",", $domainprice[$index]);
         print "<option value=\"${domext}\"$domsel{${domext}}>.${domext}</option>\n";
      }
   }
    print <<EOF;
    <select></td></tr><tr><td align="left">
    <input type="hidden" name="action" value="domaincheck">
    <INPUT type="submit" value="Verstuur"></form></td></tr>
EOF
   &footer;
}

sub domaincheck {
   $domeinnaam = lc($query->param('domeinnaam'));
   $domainext = $query->param('domainext');
      
   print "<tr><td><b><FONT SIZE=-1 FACE=\"Arial\">Domeinnaam: $domeinnaam.$domainext </font></b><br>";

   $domsel{$domainext} = " SELECTED";
   
   if ($domeinnaam =~ /^www\./ ) { print "<FONT SIZE=-1 FACE=\"Arial\">Fout: een domeinnaam mag niet beginnen met www.</FONT></td></tr>"; &firstpage; }
   if ($domeinnaam =~ /\./) { print "<FONT SIZE=-1 FACE=\"Arial\">Fout: een domeinnaam mag geen '.' bevatten.</font></td></tr>"; &firstpage; }
   
   open DOMAIN, "<apply.pl_data/domain";
   @domainprice = <DOMAIN>;
   close DOMAIN;
   
   foreach $index (0 .. $#domainprice) {
      if ($domainprice[$index] !~ /^#/ and length($domainprice[$index]) >= 2) {
         ($domext,$startup,$period,$plength) = split(",", $domainprice[$index]);
         push @extlist, $domext;
      }
   }

   foreach $index (0 .. $#extlist) { if ($domainext =~ /^$extlist[$index]$/) { $braaf = 1 } }
   if ($braaf != 1) { print "<FONT SIZE=-1 FACE=\"Arial\">Fout: ongeldige domeinextensie.</FONT><P><BR></td></tr>"; &firstpage; }
   
   braaf = 0;
   
   ($name, $ext) = split(/\./, $domeinnaam);
   if (length($name) <= 2) { print "<FONT SIZE=-1 FACE=\"Arial\">Fout: domeinnaam moet minstens 3 tekens bevatten.</FONT>"; &firstpage; }

   if ($domainext eq "nl") { @whois = `whois -h whois.sidn.nl 'is $domeinnaam.$domainext'` and $braaf = 1 }
   if ($domainext eq "com") { @whois = `whois $domeinnaam.$domainext` and $braaf = 1 }
   if ($domainext eq "net") { @whois = `whois $domeinnaam.$domainext` and $braaf = 1 }
   if ($domainext eq "org") { @whois = `whois -h whois.pir.org $domeinnaam.$domainext` and $braaf = 1 }
   if ($domainext eq "info") { @whois = `whois -h whois.afilias.info $domeinnaam.$domainext` and $braaf = 1 }
   if ($domainext eq "be") { @whois = `whois -h whois.dns.be $domeinnaam.$domainext` and $braaf = 1 }
   if ($domainext eq "eu") { @whois = `whois -h whois.eu $domeinnaam.$domainext` and $braaf = 1 }
   if ($domainext eq "biz") { @whois = `whois -h whois.biz $domeinnaam.$domainext` and $braaf = 1 }
   
   if ($braaf != 1) { print "<FONT SIZE=-1 FACE=\"Arial\">Fout: probleem met whois server of verkeerde domeinextensie.</FONT></td></tr>"; &firstpage; }
   
   foreach $index (0 .. $#whois) {
      if ($domainext eq "nl") { if ($whois[$index] =~ /free/) { $vrij = 1 } }
      if ($domainext eq "nl") { if ($whois[$index] =~ /vrij/) { $vrij = 1 } }
      if ($domainext eq "com") { if ($whois[$index] =~ /No match for /) { $vrij = 1 } }
      if ($domainext eq "net") { if ($whois[$index] =~ /No match for /) { $vrij = 1 } }
      if ($domainext eq "org") { if ($whois[$index] =~ /NOT FOUND/) { $vrij = 1 } }
      if ($domainext eq "info") { if ($whois[$index] =~ /NOT FOUND/) { $vrij = 1 } }
      if ($domainext eq "be") { if ($whois[$index] =~ /FREE/) { $vrij = 1 } }
      if ($domainext eq "eu") { if ($whois[$index] =~ /FREE/) { $vrij = 1 } }
      if ($domainext eq "biz") { if ($whois[$index] =~ /Not found: /) { $vrij = 1 } }
   }
   
   if ($vrij != 1) { print "<FONT SIZE=-1 FACE=\"Arial\">Fout: domeinnaam is al bezet. Voor een domeinnaam verhuizing kunt u ons mailen op:</FONT> <a href=\"mailto:info\@flethshosting.nl\"><font color=\"#000080\"><FONT SIZE=-1 FACE=\"Arial\">info\@flethshosting.nl</FONT></font></a><P><br>"; &firstpage; }
   
   print "<FONT SIZE=-1 FACE=\"Arial\">Domeinnaam is vrij.</FONT><br><br>";
   
#   open DOMAIN, "<apply.pl_data/domain";
#   @domainprice = <DOMAIN>;
#   close DOMAIN;
#   
#   foreach $index (0.. $#domainprice) {
#      if ($domainprice[$index] !~ /^#/ and $domext ne $ext) {
#         ($domext,$startup,$period,$plength) = split(",", $domainprice[$index]);
#      }
#   }
#
#   print <<EOF;
#<table border="1" cellspacing="0" cellpadding="2" class="prijstabel">
#  <tr>
#    <td colspan="2" bgcolor=\"#000080\"><FONT SIZE=-1 COLOR=\"#FFFFFF\" FACE="\Arial\"><B>Kosten domeinregistratie</B></FONT></td>
#  </tr>
#  <tr>
#    <td bgcolor=\"#DBEFF7\" ><FONT SIZE=-1 FACE=\"Arial\">Opstartkosten</FONT></td>
#    <td bgcolor=\"#DBEFF7\"><FONT SIZE=-1 FACE=\"Arial\">&euro; ${startup}</font></td>
#  </tr>
#  <tr>
#    <td bgcolor=\"#DBEFF7\" ><FONT SIZE=-1 FACE=\"Arial\">Kosten per ${plength}</FONT></td>
#    <td bgcolor=\"#DBEFF7\"><FONT SIZE=-1 FACE=\"Arial\">&euro; ${period}</font></td>
#  </tr>
#</table>
#<br>

   open PAKKET, "<apply.pl_data/pakket";
   @pakketten = <PAKKET>;
   close PAKKET;
   
#   if ($domext ne $domainext) { print "<FONT SIZE=-1 FACE=\"Arial\">Fout in prijzendatabase. Graag uw bestelling handmatig emailen naar:</FONT> <a href=\"mailto:info\@flethshosting.nl\"><font color=\"#000080\"><FONT SIZE=-1 FACE=\"Arial\">info\@flethshosting.nl</FONT></font></a>"; &footer; }

   print <<EOF;
<form method="post">
<FONT SIZE=-1 FACE=\"Arial\">Kies uw pakket:</font> <select name="pakket">
EOF
   
   foreach $index (0 .. $#pakketten) {
      if ($pakketten[$index] !~ /^#/ and length($pakketten[$index]) >= 2) {
         ($pakketnaam,$pakketdesc,$pakketstartup,$pakketperiod,$pakketplength,$freedomain,$aanbieding) = split(",", $pakketten[$index]);
         print "<option value=\"${pakketnaam}\">${pakketdesc}</option>\n";
      }
   }
   print <<EOF;
</select>
<br><br>
<input type="hidden" name="action" value="pakket">
<input type="hidden" name="domeinnaam" value="${domeinnaam}.${domainext}">
<INPUT type="submit" value="Verder"></form>
EOF
   print "</td></tr>";   
   &footer;
}

sub pakket {
   $domeinnaam = $query->param('domeinnaam');
   $pakket = $query->param('pakket');
#   $betaling = $query->param('betaling');
   
   if ($action eq "pakket2") {
      $naam = $query->param('naam');
      $contactpersoon = $query->param('contactpersoon');
      $adres = $query->param('adres');
      $postcode = $query->param('postcode');
      $woonplaats = $query->param('woonplaats');
      $telefoon = $query->param('telefoon');
      $email = $query->param('e-mail');
      $opmerkingen = $query->param('opmerkingen');
      $betaling = $query->param('betaling');
      
      if ($betaling eq "autojaar") { $autojaarsel=" SELECTED"; }
      if ($betaling eq "autohalfjaar") { $autohalfjaarsel=" SELECTED"; }
      if ($betaling eq "autokwart") { $autokwartsel=" SELECTED"; }
      if ($betaling eq "automaand") { $automaandsel=" SELECTED"; }
      if ($betaling eq "accept") { $acceptsel=" SELECTED"; }
      if ($betaling eq "vooruit") { $vooruitsel=" SELECTED"; }
   }      
   
   print "<tr><td><b><FONT SIZE=-1 FACE=\"Arial\">Domeinnaam: $domeinnaam </font></b><br><br>";

#   ($name, $ext) = split(/\./, $domeinnaam);
#
#   if ($ext eq "nl" and $action eq "pakket2") { $nlsoort = $query->param('nlsoort'); }
#
#   open DOMAIN, "<apply.pl_data/domain";
#   @domainprice = <DOMAIN>;
#   close DOMAIN;
#   
#   foreach $index (0 .. $#domainprice) {
#      if ($domainprice[$index] !~ /^#/ and $domext ne $ext) {
#         ($domext,$domstartup,$domperiod,$domplength) = split(",", $domainprice[$index]);
#      }
#   }
   
   open PAKKET, "<apply.pl_data/pakket";
   @pakketprice = <PAKKET>;
   close PAKKET;
   
   foreach $index (0 .. $#pakketprice) {
      if ($pakketprice[$index] !~ /^#/ and $pakketnaam ne $pakket) {
         ($pakketnaam,$pakketdesc,$pakketstartup,$pakketperiod,$pakketplength,$freedomain,$aanbieding) = split(",", $pakketprice[$index]);
      }
   }
   
#   if ($domext ne $ext) { print "<FONT SIZE=-1 FACE=\"Arial\">Fout in prijzendatabase. Graag uw bestelling handmatig emailen naar:</font> <a href=\"mailto:info\@flethshosting.nl\"><font color=\"#000080\"><FONT SIZE=-1 FACE=\"Arial\">info\@flethshosting.nl</font></font></a>"; &footer; }
   if ($pakketnaam ne $pakket) { print "<FONT SIZE=-1 FACE=\"Arial\">Fout in prijzendatabase. Graag uw bestelling handmatig emailen naar:</font> <a href=\"mailto:info\@flethshosting.nl\"><font color=\"#000080\"><FONT SIZE=-1 FACE=\"Arial\">info\@flethshosting.nl</font></font></a>"; &footer; }

#   if ($aanbieding != 1) {
#      $kwartaalkort = 1.00; #Korting bij kwartaal betaling
#      $halfjaarkort = 1.00; #Korting bij half jaar betaling
#      $jaarkort = 0.95; #Korting bij jaar betaling
#      
#      if ($betaling eq "kwartaal") {
#         $pakketplength = "kwartaal";
#	 $pakketperiod = sprintf("%.2f", $pakketperiod * 3 * $kwartaalkort);
#      } elsif ($betaling eq "halfjaar") {
#         $pakketplength = "half jaar";
#	 $pakketperiod = sprintf("%.2f", $pakketperiod * 6 * $halfjaarkort);
#      } elsif ($betaling eq "jaar") {
#         $pakketplength = "jaar";
#	 $pakketperiod = sprintf("%.2f", $pakketperiod * 12 * $jaarkort);
#      }
#   } else { print "<FONT SIZE=-1 FACE=\"Arial\">Bij het gekozen pakket kunt u alleen per ${pakketplength} betalen.</font><br><br>\n" }

   print <<EOF;
<table border="1" cellspacing="0" cellpadding="2" class="prijstabel">
  <tr>
    <td colspan="2" bgcolor=\"#000080\"  ><FONT SIZE=-1 COLOR=\"#FFFFFF\" FACE=\"Arial\"><B>Totale kosten</B></FONT></td>
  </tr>
EOF
#  <tr>
#    <td bgcolor=\"#DBEFF7\" ><FONT SIZE=-1 FACE=\"Arial\">.$domext opstartkosten</font></td>
#    <td bgcolor=\"#DBEFF7\"><FONT SIZE=-1 FACE=\"Arial\">&euro; ${domstartup}</font></td>
#  </tr>
#  <tr>
#    <td bgcolor=\"#DBEFF7\" ><FONT SIZE=-1 FACE=\"Arial\">.$domext kosten per ${domplength}</font></td>
#    <td bgcolor=\"#DBEFF7\"><FONT SIZE=-1 FACE=\"Arial\">&euro; ${domperiod}</font></td>
#  </tr>
#EOF

   if ($pakketstartup != 0) {
      print <<EOF;
  <tr>
    <td bgcolor=\"#DBEFF7\" ><FONT SIZE=-1 FACE=\"Arial\">$pakketdesc opstartkosten</font></td>
    <td bgcolor=\"#DBEFF7\"><FONT SIZE=-1 FACE=\"Arial\">&euro; ${pakketstartup}</font></td>
  </tr>
EOF
   }

   print <<EOF;
  <tr>
    <td bgcolor=\"#DBEFF7\" ><FONT SIZE=-1 FACE=\"Arial\">$pakketdesc per ${pakketplength}</font></td>
    <td bgcolor=\"#DBEFF7\"><FONT SIZE=-1 FACE=\"Arial\">&euro; ${pakketperiod}</font></td>   
  </tr>
EOF

#   if ($freedomain == 1) {
#      $korting = $domstartup + $domperiod;
#      $korting = sprintf("%.2f", $korting);
#      print <<EOF;
#  <tr>
#    <td bgcolor=\"#DBEFF7\" ><FONT SIZE=-1 FACE=\"Arial\">Korting domeinnaam ivm pakket</font></td>
#    <td bgcolor=\"#DBEFF7\"><FONT SIZE=-1 FACE=\"Arial\">&euro; -${korting}</font></td>
#  </tr>
#EOF
#   }
   
#   $totaal = $pakketstartup + $pakketperiod + $domstartup + $domperiod - $korting;
   $totaal = $pakketstartup + $pakketperiod;
   $totaal = sprintf("%.2f", $totaal);
   
#   if ($server eq "server2" and $action eq "pakket2") { $sselect=" SELECTED" }
   
   print <<EOF;
  <tr>
    <td bgcolor=\"#73BDDE\" ><b><FONT SIZE=-1 FACE=\"Arial\">Totaalbedrag</FONT></b></td>
    <td bgcolor=\"#73BDDE\"><b><FONT SIZE=-1 FACE=\"Arial\">&euro; ${totaal}</FONT></b></td>
  </tr></table>
<br><br>
<FONT SIZE=-1 FACE="Arial">Controleer bovenstaande bedragen op juistheid en vul hieronder uw adresgegevens in. Deze zullen worden gebruikt voor de domeinregistratie en facturatie van uw bestelling.</FONT>
<br><br>
<form method="post">
<table class="tablecontent" border="0" cellpadding="0" cellspacing="0">
  <tr><td><FONT SIZE=-1 FACE=\"Arial\">(Bedrijfs)naam:</font></td><td><INPUT type="text" length="60" size="30" name="naam" value="${naam}"></td></tr>
  <tr><td><FONT SIZE=-1 FACE=\"Arial\">Contactpersoon:</font></td><td><INPUT type="text" length="60" size="30" name="contactpersoon" value="${contactpersoon}"></td></tr>
  <tr><td><FONT SIZE=-1 FACE=\"Arial\">Adres:</font></td><td><INPUT type="text" length="50" size="30" name="adres" value="${adres}"></td></tr>
  <tr><td><FONT SIZE=-1 FACE=\"Arial\">Postcode en woonplaats:</font></td><td><INPUT type="text" size="8" name="postcode" value="${postcode}">&nbsp;<INPUT type="text" length="50" width="50" name="woonplaats" value="${woonplaats}"></td></tr>
  <tr><td><FONT SIZE=-1 FACE=\"Arial\">Telefoonnummer:</font></td><td><INPUT type="text" length="50" width="50" name="telefoon" value="${telefoon}"></td></tr>
  <tr><td><FONT SIZE=-1 FACE=\"Arial\">E-mail adres:</font></td><td><INPUT type="text" length="50" size="30" name="e-mail" value="${email}"></td></tr>
  <tr><td><FONT SIZE=-1 FACE=\"Arial\">Betaling:</font></td><td><select name="betaling">
  <option value="autojaar"${autojaarsel}>Automatische machtiging per jaar</option>
EOF
  
if ($totaal>50) { print "<option value=\"autohalfjaar\"${autohalfjaarsel}>Automatische machtiging per half jaar</option>"; }
if ($totaal>90) { print "<option value=\"autokwart\"${autokwartsel}>Automatische machtiging per kwartaal</option>"; }
if ($totaal>90) { print "<option value=\"automaand\"${automaandsel}>Automatische machtiging per maand</option>"; }
  
print <<EOF;
  <option value="accept"${acceptsel}>Accept giro per jaar</option>
  <option value="vooruit"${vooruitsel}>Vooruitbetaling per jaar (5% korting)</option>
  </select></td></tr>
EOF
#  <tr><td><FONT SIZE=-1 FACE=\"Arial\">Server:</font></td>
#  <td><select name="server">
#    <option value="server1">Server 1</option>
#    <option value="server2"${sselect}>Server 2</option>
#  </select> <FONT SIZE=-1 FACE=\"Arial\">(bij server2 krijgt u 500mb extra dataverkeer gratis)</font></td></tr>
#EOF

   if ($nlsoort eq "particulier" and $action eq "pakket2") { $pselect=" SELECTED" }

#   if ($domext eq "nl") {
#      print <<EOF;
#  <tr><td><FONT SIZE=-1 FACE=\"Arial\">.nl domeinregistratie:</font></td>
#  <td><select name="nlsoort">
#    <option value="bedrijf">Bedrijf</option>
#    <option value="particulier"${pselect}>Particulier (+&euro;5,00)</option>
#  </select></td></tr>
#EOF
#   } 
   
   print <<EOF;
   <tr><td><FONT SIZE=-1 FACE=\"Arial\">Opmerkingen:</font></td><td><INPUT type="text" length="250" size="30" name="opmerkingen" value="${opmerkingen}"></td></tr>
</table>
<br>
<FONT SIZE=-1 FACE=\"Arial\">Klik op Verder om verder te gaan, hierna kunt u uw bestelling en de ingevoerde gegevens controleren.</font>
<br><br>
<input type="hidden" name="action" value="gegevens">
<input type="hidden" name="domeinnaam" value="${domeinnaam}">
<input type="hidden" name="pakket" value="${pakket}">
<INPUT type="submit" value="Verder"></form>
EOF
   &footer;
}

sub gegevens {
   $domeinnaam = $query->param('domeinnaam');
   $pakket = $query->param('pakket');
   $naam = $query->param('naam');
   $contactpersoon = $query->param('contactpersoon');
   $adres = $query->param('adres');
   $postcode = $query->param('postcode');
   $woonplaats = $query->param('woonplaats');
   $telefoon = $query->param('telefoon');
   $email = $query->param('e-mail');
   $opmerkingen = $query->param('opmerkingen');
   $betaling = $query->param('betaling');
   $server = $query->param('server');
   
   print "<tr><td><b><FONT SIZE=-1 FACE=\"Arial\">Domeinnaam: $domeinnaam </font></b><br><br>";

   if ($naam eq "") { print "<FONT SIZE=-1 FACE=\"Arial\">Waarschuwing: Naam is een verplicht veld</font><br><br>\n"; }
   if ($adres eq "") { print "<FONT SIZE=-1 FACE=\"Arial\">Waarschuwing: Adres is een verplicht veld</font><br><br>\n"; }
   if ($postcode eq "") { print "<FONT SIZE=-1 FACE=\"Arial\">Waarschuwing: Postcode is een verplicht veld</font><br><br>\n"; }
   if ($woonplaats eq "") { print "<FONT SIZE=-1 FACE=\"Arial\">Waarschuwing: Woonplaats is een verplicht veld</font><br><br>\n"; }
   if ($telefoon eq "") { print "<FONT SIZE=-1 FACE=\"Arial\">Waarschuwing: Telefoon is een verplicht veld</font><br><br>\n"; }
   if ($email eq "") { print "<FONT SIZE=-1 FACE=\"Arial\">Waarschuwing: E-mail is een verplicht veld</font><br><br>\n"; }   

   ($name, $ext) = split(/\./, $domeinnaam);

#   open DOMAIN, "<apply.pl_data/domain";
#   @domainprice = <DOMAIN>;
#   close DOMAIN;
#   
#   foreach $index (0 .. $#domainprice) {
#      if ($domainprice[$index] !~ /^#/ and $domext ne $ext) {
#         ($domext,$domstartup,$domperiod,$domplength) = split(",", $domainprice[$index]);
#      }
#   }
   
   open PAKKET, "<apply.pl_data/pakket";
   @pakketprice = <PAKKET>;
   close PAKKET;
   
   foreach $index (0 .. $#pakketprice) {
      if ($pakketprice[$index] !~ /^#/ and $pakketnaam ne $pakket) {
         ($pakketnaam,$pakketdesc,$pakketstartup,$pakketperiod,$pakketplength,$freedomain,$aanbieding) = split(",", $pakketprice[$index]);
      }
   }

   if ($betaling eq "autohalfjaar") {
      $pakketperiod=sprintf("%.2f", $pakketperiod/2);
      $pakketplength="half jaar";
   }
   
   if ($betaling eq "autokwart") {
      $pakketperiod=sprintf("%.2f", $pakketperiod/4);
      $pakketplength="kwartaal";
   }
   
   if ($betaling eq "automaand") {
      $pakketperiod=sprintf("%.2f", $pakketperiod/12);
      $pakketplength="maand";
   }
   
#   if ($domext ne $ext) { print "<FONT SIZE=-1 FACE=\"Arial\">Fout in prijzendatabase. Graag uw bestelling handmatig emailen naar: </font><a href=\"mailto:info\@flethshosting.nl\"><font color=\"#000080\"><FONT SIZE=-1 FACE=\"Arial\">info\@flethshosting.nl</font></font></a>"; &footer; }
   if ($pakketnaam ne $pakket) { print "<FONT SIZE=-1 FACE=\"Arial\">Fout in prijzendatabase. Graag uw bestelling handmatig emailen naar: </font><a href=\"mailto:info\@flethshosting.nl\"><font color=\"#000080\"><FONT SIZE=-1 FACE=\"Arial\">info\@flethshosting.nl</font></font></a>"; &footer; }

#   if ($aanbieding != 1) {
#      $kwartaalkort = 1.00; #Korting bij kwartaal betaling
#      $halfjaarkort = 1.00; #Korting bij half jaar betaling
#      $jaarkort = 0.95; #Korting bij jaar betaling
#      
#      if ($betaling eq "kwartaal") {
#         $pakketplength = "kwartaal";
#	 $pakketperiod = sprintf("%.2f", $pakketperiod * 3 * $kwartaalkort);
#      } elsif ($betaling eq "halfjaar") {
#         $pakketplength = "half jaar";
#	 $pakketperiod = sprintf("%.2f", $pakketperiod * 6 * $halfjaarkort);
#      } elsif ($betaling eq "jaar") {
#         $pakketplength = "jaar";
#	 $pakketperiod = sprintf("%.2f", $pakketperiod * 12 * $jaarkort);
#      }
#   }

   print <<EOF;
<table border="1" cellspacing="0" cellpadding="2" class="prijstabel">
  <tr>
    <td colspan="2" bgcolor=\"#000080\"  ><FONT SIZE=-1 COLOR=\"#FFFFFF\" FACE=\"Arial\"><B>Totale kosten</B></FONT></td>
  </tr>
EOF
#  <tr>
#    <td bgcolor=\"#DBEFF7\" ><FONT SIZE=-1 FACE=\"Arial\">.$domext opstartkosten</font></td>
#    <td bgcolor=\"#DBEFF7\"><FONT SIZE=-1 FACE=\"Arial\">&euro; ${domstartup}</font></td>
#  </tr>
#  <tr>
#    <td bgcolor=\"#DBEFF7\" ><FONT SIZE=-1 FACE=\"Arial\">.$domext kosten per ${domplength}</font></td>
#    <td bgcolor=\"#DBEFF7\"><FONT SIZE=-1 FACE=\"Arial\">&euro; ${domperiod}</font></td>
#  </tr>
#EOF
#   if ($domext eq "nl" and $nlsoort eq "particulier") {
#      $domtoeslag = "5.00";
#      print <<EOF;
#  <tr>
#    <td bgcolor=\"#DBEFF7\" ><FONT SIZE=-1 FACE=\"Arial\">.$domext toeslag particulier</font></td>
#    <td bgcolor=\"#DBEFF7\"><FONT SIZE=-1 FACE=\"Arial\">&euro; ${domtoeslag}</font></td>
#  </tr>
#EOF
#   }
   
   if ($pakketstartup != 0) {
      print <<EOF;
  <tr>
    <td bgcolor=\"#DBEFF7\" ><FONT SIZE=-1 FACE=\"Arial\">$pakketdesc opstartkosten</font></td>
    <td bgcolor=\"#DBEFF7\"><FONT SIZE=-1 FACE=\"Arial\">&euro; ${pakketstartup}</font></td>
  </tr>
EOF
   }
   
   print <<EOF;
  <tr>
    <td bgcolor=\"#DBEFF7\" ><FONT SIZE=-1 FACE=\"Arial\">$pakketdesc per ${pakketplength}</font></td>
    <td bgcolor=\"#DBEFF7\"><FONT SIZE=-1 FACE=\"Arial\">&euro; ${pakketperiod}</font></td>   
  </tr>
EOF

#   if ($freedomain == 1) {
#      $korting = $domstartup + $domperiod + $domtoeslag;
#      $korting = sprintf("%.2f", $korting);
#      print <<EOF;
#  <tr>
#    <td bgcolor=\"#DBEFF7\" ><FONT SIZE=-1 FACE=\"Arial\">Korting domeinnaam ivm pakket</font></td>
#    <td bgcolor=\"#DBEFF7\"><FONT SIZE=-1 FACE=\"Arial\">&euro; -${korting}</font></td>
#  </tr>
#EOF
#   }

   $totaal = $pakketstartup + $pakketperiod + $domstartup + $domperiod + $domtoeslag - $korting;

   if ($betaling eq "vooruit") {
      $korting=$totaal*0.05;
      $kortingtxt=sprintf("%.2f", $korting);
      print "<tr><td bgcolor=\"#DBEFF7\" ><FONT SIZE=-1 FACE=\"Arial\">Korting vooruitbetaling</font></td>";
      print "<td bgcolor=\"#DBEFF7\"><FONT SIZE=-1 FACE=\"Arial\">&euro; -${kortingtxt}</font></td></tr>";
   }
   
   $totaal = $pakketstartup + $pakketperiod + $domstartup + $domperiod + $domtoeslag - $korting;
   $totaal = sprintf("%.2f", $totaal);

   if ($server eq "server1") {$servernaam = "Server 1"} elsif ($server eq "server2") {$servernaam = "Server 2"}
   
   print <<EOF;
  <tr>
    <td bgcolor=\"#73BDDE\" ><b><FONT SIZE=-1 FACE=\"Arial\">Totaalbedrag</FONT></b></td>
    <td bgcolor=\"#73BDDE\"><b><FONT SIZE=-1 FACE=\"Arial\">&euro; ${totaal}</FONT></b></td>
  </tr>
</table>
<br>
<table class="tablecontent" border="0" cellpadding="0" cellspacing="0">
  <tr><td><FONT SIZE=-1 FACE=\"Arial\">(Bedrijfs)naam:</font></td><td><FONT SIZE=-1 FACE=\"Arial\">${naam}</font></td></tr>
  <tr><td><FONT SIZE=-1 FACE=\"Arial\">Contactpersoon:</font></td><td><FONT SIZE=-1 FACE=\"Arial\">${contactpersoon}</font></td></tr>
  <tr><td><FONT SIZE=-1 FACE=\"Arial\">Adres:</font></td><td><FONT SIZE=-1 FACE=\"Arial\">${adres}</font></td></tr>
  <tr><td><FONT SIZE=-1 FACE=\"Arial\">Postcode en woonplaats:</font></td><td><FONT SIZE=-1 FACE=\"Arial\">${postcode}  ${woonplaats}</font></td></tr>
  <tr><td><FONT SIZE=-1 FACE=\"Arial\">Telefoonnummer:</font></td><td><FONT SIZE=-1 FACE=\"Arial\">${telefoon}</font></td></tr>
  <tr><td><FONT SIZE=-1 FACE=\"Arial\">E-mail adres:</font></td><td><FONT SIZE=-1 FACE=\"Arial\">${email}</font></td></tr>
EOF
#  <tr><td><FONT SIZE=-1 FACE=\"Arial\">Gekozen server:</font></td><td><FONT SIZE=-1 FACE=\"Arial\">${servernaam}</font></td></tr>
#EOF

#   if ($domext eq "nl") { print "<tr><td><FONT SIZE=-1 FACE=\"Arial\">.nl domeinregistratie:</font></td><td><FONT SIZE=-1 FACE=\"Arial\">${nlsoort}</font></td></tr>" }
   
   print <<EOF;
   <tr><td><FONT SIZE=-1 FACE=\"Arial\">Opmerkingen</font></td><td><FONT SIZE=-1 FACE=\"Arial\">${opmerkingen}</font></td></tr>
</table>
<br>
<FONT SIZE=-1 FACE=\"Arial\">Indien bovenstaande gegevens juist zijn en u akkoord gaat met de voorwaarden kunt u op "Bevestig bestelling" klikken om de bestelling te bevestigen of op "Terug" om nog gegevens te wijzigen.
</font><br><br>
<CENTER><TEXTAREA cols="60" rows="6">Bij het versturen van uw bestelling gaat u akkoord met onderstaande voorwaarden:
- U mag geen misbruik maken van uw account, door bijvoorbeeld te hacken, of pogingen te doen tot hacken of te spammen.
- Wij hebben altijd het recht uw account te verwijderen, ook als hier geen gegronde reden voor is.
- Het is verboden uw log-files te verwijderen. Indien wij merken dat uw log-files toch verwijdert zijn zullen wij uw account stopzetten.
- Wij kunnen niet aansprakelijk worden gesteld voor activiteiten van onze gebruikers. Wij zullen er uiteraard zoveel mogelijk aan doen om niet legale activiteiten tegen te gaan.
- In geval van storing kunnen wij niet aansprakelijk worden gesteld voor schade die hier door veroorzaakt is. (bijvoorbeeld verlies van data - maak zelf dus altijd een backup)
- U mag geen eigen chat of botjes via de server te draaien.
- Het is niet toegestaan om op onze server sex, racisme, warez, mp3 of andere illegale files te plaatsen.
- Wij hebben het recht om scripten te verbieden die de server naar ons idee teveel belasten
- U bent verplicht alle rekeningen binnen 30 dagen te voldoen. Na deze 30 dagen zal uw account worden afgesloten.
- U dient te zorgen dat wij in het bezit zijn van een werkend emailadres.
- U dient tijdig uw domeinnaam en hosting op te zeggen als deze niet verlengt moet worden. Wij sturen hier over een email.
</TEXTAREA></CENTER>
<br><br>
<table class="tablecontent" border="0" cellpadding="0" cellspacing="0"><tr><td><form method="post">
<input type="hidden" name="action" value="pakket2">
<input type="hidden" name="domeinnaam" value="${domeinnaam}">
<input type="hidden" name="pakket" value="${pakket}">
<input type="hidden" name="naam" value="${naam}">
<input type="hidden" name="contactpersoon" value="${contactpersoon}">
<input type="hidden" name="adres" value="${adres}">
<input type="hidden" name="postcode" value="${postcode}">
<input type="hidden" name="woonplaats" value="${woonplaats}">
<input type="hidden" name="telefoon" value="${telefoon}">
<input type="hidden" name="e-mail" value="${email}">
<input type="hidden" name="opmerkingen" value="${opmerkingen}">
<input type="hidden" name="betaling" value="${betaling}">
<INPUT type="submit" value="Terug">
</form>
</td><td>
<form method="post">
<input type="hidden" name="action" value="bevestig">
<input type="hidden" name="domeinnaam" value="${domeinnaam}">
<input type="hidden" name="pakket" value="${pakket}">
<input type="hidden" name="naam" value="${naam}">
<input type="hidden" name="contactpersoon" value="${contactpersoon}">
<input type="hidden" name="adres" value="${adres}">
<input type="hidden" name="postcode" value="${postcode}">
<input type="hidden" name="woonplaats" value="${woonplaats}">
<input type="hidden" name="telefoon" value="${telefoon}">
<input type="hidden" name="e-mail" value="${email}">
<input type="hidden" name="opmerkingen" value="${opmerkingen}">
<input type="hidden" name="betaling" value="${betaling}">
<INPUT type="submit" value="Bevestig bestelling">
</form>
</td></tr></table>
EOF

   &footer;
}

sub bevestig {
   use Net::SMTP;
   $domeinnaam = $query->param('domeinnaam');
   $pakket = $query->param('pakket');
   $naam = $query->param('naam');
   $contactpersoon = $query->param('contactpersoon');
   $adres = $query->param('adres');
   $postcode = $query->param('postcode');
   $woonplaats = $query->param('woonplaats');
   $telefoon = $query->param('telefoon');
   $email = $query->param('e-mail');
   $betaling = $query->param('betaling');
   $opmerkingen = $query->param('opmerkingen');
   
   print "<tr><td><b>Domeinnaam: $domeinnaam </b><br><br>";

   ($name, $ext) = split(/\./, $domeinnaam);

#   open DOMAIN, "<apply.pl_data/domain";
#   @domainprice = <DOMAIN>;
#   close DOMAIN;
#   
#   foreach $index (0 .. $#domainprice) {
#      if ($domainprice[$index] !~ /^#/ and $domext ne $ext) {
#         ($domext,$domstartup,$domperiod,$domplength) = split(",", $domainprice[$index]);
#      }
#   }

   open PAKKET, "<apply.pl_data/pakket";
   @pakketprice = <PAKKET>;
   close PAKKET;
   
   foreach $index (0 .. $#pakketprice) {
      if ($pakketprice[$index] !~ /^#/ and $pakketnaam ne $pakket) {
         ($pakketnaam,$pakketdesc,$pakketstartup,$pakketperiod,$pakketplength,$freedomain,$aanbieding) = split(",", $pakketprice[$index]);
      }
   }
   
   if ($betaling eq "autohalfjaar") {
      $pakketperiod=sprintf("%.2f", $pakketperiod/2);
      $pakketplength="half jaar";
   }
   
   if ($betaling eq "autokwart") {
      $pakketperiod=sprintf("%.2f", $pakketperiod/4);
      $pakketplength="kwartaal";
   }
   
   if ($betaling eq "automaand") {
      $pakketperiod=sprintf("%.2f", $pakketperiod/12);
      $pakketplength="maand";
   }

#   if ($aanbieding != 1) {
#      $kwartaalkort = 1.00; #Korting bij kwartaal betaling
#      $halfjaarkort = 1.00; #Korting bij half jaar betaling
#      $jaarkort = 0.95; #Korting bij jaar betaling
#      
#      if ($betaling eq "kwartaal") {
#         $pakketplength = "kwartaal";
#	 $pakketperiod = sprintf("%.2f", $pakketperiod * 3 * $kwartaalkort);
#      } elsif ($betaling eq "halfjaar") {
#         $pakketplength = "half jaar";
#	 $pakketperiod = sprintf("%.2f", $pakketperiod * 6 * $halfjaarkort);
#      } elsif ($betaling eq "jaar") {
#         $pakketplength = "jaar";
#	 $pakketperiod = sprintf("%.2f", $pakketperiod * 12 * $jaarkort);
#      }
#   }

#   if ($domext ne $ext) { print "<FONT SIZE=-1 FACE=\"Arial\">Fout in prijzendatabase. Graag uw bestelling handmatig emailen naar:</font> <a href=\"mailto:info\@flethshosting.nl\"><font color=\"#000080\"><FONT SIZE=-1 FACE=\"Arial\">info\@flethshosting.nl</font></font></a>"; &footer; }
   if ($pakketnaam ne $pakket) { print "<FONT SIZE=-1 FACE=\"Arial\">Fout in prijzendatabase. Graag uw bestelling handmatig emailen naar:</font> <a href=\"mailto:info\@flethshosting.nl\"><font color=\"#000080\"><FONT SIZE=-1 FACE=\"Arial\">info\@flethshosting.nl</font></font></a>"; &footer; }
   
   chomp $domplength;

#   $kosten = <<EOF;
#.$domext opstartkosten: EUR $domstartup
#.$domext per $domplength: EUR $domperiod
#EOF
#
#   if ($domext eq "nl" and $nlsoort eq "particulier") {
#      $domtoeslag = "5.00";
#      $kosten = $kosten . <<EOF;
#.$domext toeslag particulier: EUR ${domtoeslag}
#EOF
#   }
   
   if ($pakketstartup != 0) {
      $kosten = $kosten . <<EOF;
$pakketdesc opstartkosten: EUR ${pakketstartup}
EOF
   }
   
   $kosten = $kosten . <<EOF;
$pakketdesc per ${pakketplength}: EUR ${pakketperiod}
EOF
   
#   if ($freedomain == 1) {
#      $korting = $domstartup + $domperiod + $domtoeslag;
#      $korting = sprintf("%.2f", $korting);
#      $kosten = $kosten . <<EOF;
#Korting domeinnaam ivm pakket: EUR -${korting}
#EOF
#   }
   
   $totaal = $pakketstartup + $pakketperiod + $domstartup + $domperiod + $domtoeslag - $korting;

   if ($betaling eq "vooruit") {
      $korting=$totaal*0.05;
      $kortingtxt=sprintf("%.2f", $korting);
      $kosten = $kosten . <<EOF;
Korting vooruitbetaling: EUR -$kortingtxt
EOF
   }

   $totaal = $pakketstartup + $pakketperiod + $domstartup + $domperiod + $domtoeslag - $korting;
   $totaal = sprintf("%.2f", $totaal);
   
   $kosten = $kosten . <<EOF;
  Totaal: EUR ${totaal}
EOF

   if ($betaling eq "vooruit") { $betaaltxt = "Vooruitbetaling"; }
   if ($betaling eq "accept") { $betaaltxt = "Acceptgiro per jaar"; }
   if ($betaling eq "autojaar") { $betaaltxt = "Automatische machtiging per jaar"; }
   if ($betaling eq "autohalfjaar") { $betaaltxt = "Automatische machtiging per half jaar"; }
   if ($betaling eq "autokwart") { $betaaltxt = "Automatische machtiging per kwartaal"; }
   if ($betaling eq "automaand") { $betaaltxt = "Automatische machtiging per maand"; }
   
   $ispmail = <<EOF;
Domeinnaam: ${domeinnaam}
Pakket: $pakket
Naam: $naam
Contactpersoon: $contactpersoon
Adres: $adres
Postcode: $postcode
Woonplaats: $woonplaats
Telefoon: $telefoon
Email: $email
Opmerkingen: $opmerkingen
Betaling: $betaaltxt

Totale kosten:
$kosten
----

Remote Host: $ENV{'REMOTE_HOST'}
Remote IP: $ENV{'REMOTE_ADDR'}
User Agent: $ENV{'HTTP_USER_AGENT'}
EOF

   if ($contactpersoon eq "") {
      $naammail = "Naam: $naam";
   } else {
      $naammail = "Naam: ${naam}\nContactpersoon: $contactpersoon";
   }

   if ($pakket eq "geen") {
      $dnsinfo = <<EOF;
Omdat u geen pakket heeft gekozen, willen wij graag meer weten over de hosting van uw domeinregistratie. U heeft de keuze tussen onderstaande 4 mogelijkheden:
 - Het parkeren van uw domeinnaam op onze servers, eventueel met website forwarding.
 - Wij doen DNS hosting voor u en verwijzen het domeinnaam door naar een IP adres dat u op geeft.
 - U doet DNS hosting en wij draaien secondary DNS voor u.
 - U doet volledig DNS hosting.
In het laatste geval zouden wij graag 2 of meer DNS servers van u willen weten voor het domeinnaam.

EOF
   }

   if ($betaling =~ /^auto/) {
      $betalingbla = <<EOF;
Als betaalmethode heeft u gekozen voor automatische incasso. Voor de automatische incasso moet u ons eerst toestemming verlenen door middel van ondertekening van dit formulier: http://www.flethshosting.nl/automatisch.pdf
Dit formulier kunt u ingescand per e-mail versturen naar info\@flethshosting.nl of per post naar:

Fleths Webhosting
Reigerstraat 68
1506 XW Zaandam

EOF
   }

   if ($betaling eq "vooruit") {
      $betalingbla = <<EOF;
Als betaalmethode heeft u gekozen voor vooruitbetaling. U kunt uw bestelling vooruitbetalen door bovenstaande bedrag over te maken onder vermelding '${domeinnaam}' naar onderstaande rekeningnummer. Uw bestelling zal dan binnen 1-2 werkdagen na ontvangst van het bedrag worden verwerkt.

Bankrekening: 3749.16.373
Naam: Fleths
Plaats: Zaandam
EOF
   }

   if ($domeinnaam =~ /\.nl$/) {
      $nlbedrijf = <<EOF;
Voor de domeinregistratie van een .nl domeinnaam hebben wij een ondertekend registratiecontract nodig.
Deze is te vinden op http://www.flethshosting.nl/nl-registratiecontract.pdf. Graag na ondertekening ingescand per e-mail opsturen naar info\@flethshosting.nl of per post naar:

Fleths Webhosting
Reigerstraat 68
1506 XW Zaandam

EOF
   }
   
   $klantmail = <<EOF;
Bedankt voor uw bestelling bij Fleths Webhosting. Lees deze mail goed, hierin staan verdere instructies voor uw domeinregistratie en eventueel het aanmaken van uw webhosting pakket. Hieronder vindt u de gegevens van uw bestelling en een overzicht van de kosten.

Domeinnaam: $domeinnaam

$kosten
U heeft deze gegevens ingevuld bij uw bestelling:
$naammail
Adres: $adres
Postcode: $postcode
Woonplaats: $woonplaats
Telefoon: $telefoon

$betalingbla${dnsinfo}${nlbedrijf}Als u verder vragen heeft kunt u ons hierover mailen of bellen.

M.vr.gr.,


Thea van der Veen
Fleths Webhosting.
EOF
   
   $smtp = Net::SMTP->new('mail.activedomain.nl');
   $smtp->mail("info\@flethshosting.nl");
   $smtp->to("info\@flethshosting.nl");
   $smtp->data();
   $smtp->datasend("From: Fleths Webhosting <info\@flethshosting.nl>\n");
   $smtp->datasend("To: Fleths Webhosting <info\@flethshosting.nl>\n");
   $smtp->datasend("Subject: Fleths Webhosting Website Bestelling\n");
   $smtp->datasend("\n");
   $smtp->datasend("$ispmail");
   $smtp->dataend();
   $smtp->quit;   
   
   $smtp = Net::SMTP->new('mail.activedomain.nl');
   $smtp->mail("info\@flethshosting.nl");
   $smtp->to($email);
   $smtp->data();
   $smtp->datasend("From: Fleths Webhosting <info\@flethshosting.nl>\n");
   $smtp->datasend("To: $naam <${email}>\n");
   $smtp->datasend("Subject: Fleths Webhosting Website Bestelling\n");
   $smtp->datasend("\n");
   $smtp->datasend("$klantmail");
   $smtp->dataend();
   $smtp->quit;
   
   print "<FONT SIZE=-1 FACE=\"Arial\">Uw bestelling is verzonden.</font>";
   
   &footer;
}

sub footer {
   print "</table>";
   print <FOOTER>;
   exit 0;
}