#!/usr/bin/perl
require "create_page.pl";
require "lib.pl";
%xdata = xsplit_query(); #die Auswertefunktion fuer die uebergebenen Parameter

print "Content-type: text/html\n\n"; #Man beachte 2x \n, sonst laeuft es nicht!!!
#show_xdata();
if (!defined $xdata{send}){
  start("email");
  print"                <table border=\"0\" valign=\"top\" cellspacing=\"0\" cellpadding=\"0\" rules=\"none\" width=\"700\" frame=\"void\">\n";
  print"                  <tr>\n";
  print"                    <td>\n";
#  print"                      <img src=\"$bilder_base_path/pict/space.gif\" width=\"700\" height=\"20\" border=\"0\">\n";
  print"                      <br>\n";
  print"                    </td>\n";
  print"                  </tr>\n";
  print"                  <tr>\n";
  print"                    <td>\n";
  print"                      <font face=\"ARIAL, HELVETICA, SANS-SERIF\" size=\"2\">\n";
  print"                         <h2>Meine Emailadresse ver&ouml;ffentliche ich nicht aber...</h2>\n";
  print"Mit diesem Formular k&ouml;nnen Sie mit mir Kontakt aufnehmen. Ich verspreche \n";
  print"auch jede ernst gemeinte Mail zu beantworten. Ich freue mich immer sehr \n";
  print"&uuml;ber Anregungen und Meinungen zu der Seite allgemein oder zu meinen Fotos. \n";
  print"Daf&uuml;r gebe ich auch gerne meine Emailadresse heraus, leider habe ich damit \n";
  print"schlechte Erfahrungen gemacht und viel Spam (Werbung) bekommen. Aus diesem \n";
  print"Grund taucht meine Emailadresse nicht mehr &ouml;ffentlich auf meiner Homepage \n";
  print"oder in Newsgruppen- Beitr&auml;gen auf. Damit man mich aber weiterhin per \n";
  print"Email erreichen kann, habe ich nun dieses Formular, was die Daten dann \n";
  print"mittels des lokal auf dem Server installierten Sendmail an mich schickt. \n";
  print"Vergessen Sie bitte nicht explizit Ihre Emailadresse anzugeben, sonst \n";
  print"habe ich leider keine M&ouml;glichkeit Ihnen zu antworten.<br><br>\n";
  print"                      </font>\n";
  print"                    </td>\n";
  print"                  </tr>\n";
  print"                  <tr>\n";
  print"                    <td>\n";
  print"                      <form method=\"POST\" action=\"email.pl\" name=\"emailForm\">\n";
  print"                        <table border=\"0\" cellspacing=\"5\" cellpadding=\"0\" align=\"center\"> \n";
  print"                          <tr>\n";
  print"                            <td>\n";
  print"                              <font face=\"ARIAL, HELVETICA, SANS-SERIF\" size=\"2\">\n";
  print"                                <nobr>Ihre Email-Adresse:&nbsp;</nobr>\n";
  print"                              </font>\n";
  print"                            </td>\n";
  print"                            <td colspan=\"3\">\n";
  print"                              <input size=\"60\" maxlength=\"255\" type=\"text\" name=\"toAdr\"><br>\n";
  print"                            </td>\n";
  print"                          </tr>\n";
  print"                          <tr>\n";
  print"                            <td>\n";
  print"                              <font face=\"ARIAL, HELVETICA, SANS-SERIF\" size=\"2\">\n";
  print"                                Betreff:\n";
  print"                              </font>\n";
  print"                            </td>\n";
  print"                            <td colspan=\"3\">\n";
  print"                              <input size=\"60\" maxlength=\"255\" type=\"text\" name=\"mailtopic\"><br>\n";
  print"                            </td>\n";
  print"                          </tr>\n";
  print"                          <tr>\n";
  #print"                            <td colspan=\"3\">\n";
  print"                            <td valign=\"top\">\n";
  print"                              <font face=\"ARIAL, HELVETICA, SANS-SERIF\" size=\"2\">\n";
  print"                                Text:\n";
  print"                              </font>\n";
  print"                            </td>\n";
  #print"                          </tr>\n";
  #print"                          <tr>\n";
  print"                            <td colspan=\"3\">\n";

  print"                              <textarea name=\"mailtext\" rows=\"15\" cols=\"60\" wrap=\"VIRTUAL\"></textarea><br>\n";
  print"                            </td>\n";
  print"                          </tr>\n";
  print"                          <tr>\n";
  print"                            <td> <br>\n";
  print"                            </td>\n";
  print"                            <td align=\"left\">\n";
  print"                              <input type=\"submit\" name=\"send\" value=\"Email abschicken\"> \n";
  print"                            </td>\n";
  print"                            <td align=\"center\">\n";
  print"                              <input type=\"reset\" value=\"Das Formular l&ouml;schen\"> \n";
  print"                            </td>\n";
  print"                            <td align=\"right\">\n";
  print"                              <input type=\"submit\" name=\"back\" value=\"Zur&uuml;ck\"> \n";
  print"                            </td>\n";
  print"                          </tr>\n";
  print"                        </table>\n";
  print"                      </form>\n";
  print"                    </td>\n";
  print"                  </tr>\n";
  print"                  <tr>\n";
  print"                    <td align=\"center\">\n";
  print"                    </td>\n";
  print"                  </tr>\n";
  print"                </table>\n";
  finish();

}else{
  start("email");
  print"                <table border=\"0\" valign=\"top\" cellspacing=\"0\" cellpadding=\"0\" rules=\"none\" width=\"700\" frame=\"void\">\n";
  print"                  <tr>\n";
  print"                    <td align=\"center\">\n";
#  print"                      <br><br>Systemzeit vorher: $^T<br><br>\n";
#  show_xdata();
#  print_html("\$xdata\{mailtext\} = \n");
#  print"$xdata{mailtext}<br>\n";
#  print_html("\$xdata\{toAdr\} = \n");
#  print"$xdata{toAdr}<br>\n";
#  print_html("\$xdata\{mailtopic\} = \n");
#  print"$xdata{mailtopic}<br>\n";
#  print_html("\$xdata\{send\} = \n");
#  print"$xdata{send}<br>\n";
#  print"\n";

################################################################################
# hier wird die Mail nun verschickt
################################################################################
  my $mailprog = "/usr/sbin/sendmail";
  my $recipient = "martin\@debuch.com";

  open(MAIL, "|$mailprog -t");

  my $email .= "von mailto:";

  print MAIL "Subject: Homepage  $xdata{mailtopic}\n";
  print MAIL "From: $xdata{toAdr}\n";
  print MAIL "to: Martin\@Debuch.de\n";
  
#  my $mailmailtextBuffer = $xdata{mailtext};
#  $mailmailtextBuffer =~ s/\n/ /g;

#  print "<br>---- $xdata{mailtext}----<br>";

  print MAIL "$xdata{mailtext}";
#  print MAIL "$mailmailtextBuffer";

#  print MAIL "\n\n noch ein bischen Mailtext";


     my $remote_ip             = $ENV{REMOTE_ADDR};
     my $remote_browser_system = $ENV{HTTP_USER_AGENT};
     my $remote_language       = $ENV{HTTP_ACCEPT_LANGUAGE};
  print MAIL "\n*********************************************************\n";
  print MAIL "********** ...und noch einige Benutzerdaten... **********\n";
  print MAIL "*********************************************************\n\n";
  print MAIL "\n- Uhrzeit:        $^T\n";
  print MAIL "\n- IP:             $remote_ip \n";
  print MAIL "\n- Browser String: $remote_browser_system \nBenutzte Sprache: $remote_language \n";

  close(MAIL);
  print"<font face=\"ARIAL, HELVETICA, SANS-SERIF\" size=\"2\">\n";
  print"<br><br><br><br><br><br><br><br><br><br>Vielen Dank f&uuml;r die Nachricht<br><br><br><br><br><br><br><br><br><br><br><br><br><br><br>\n";
  print"</font>\n";
#  print"                      <br><br>Systemzeit nachher: $^T<br><br>\n";

  print"                    </td>\n";
  print"                  </tr>\n";
  print"                </table>\n";
  finish();
}


exit(0);
