#!/usr/bin/perl
#
#

use DBI;


$mailprog = '/usr/sbin/sendmail';
$absender = 'prorataweb@prorata.de';
$subject = 'Ihre Zugangsdaten';



my $DB_DSN      = "DBI:mysql:prorata2:sql";
my $DB_USER     = "prorata";
my $DB_PASSWD   = "altoids7";

my $dbh = DBI->connect($DB_DSN, $DB_USER, 
   $DB_PASSWD) or err::error_seite{"Cannot connect to DB"};
my $FROM="";
my $TO="";

open(LOG,">>/var/qmail/alias/autoreply.log") or exit 99;

while ($line= <STDIN>){ 
	if ( ($FROM)=$line=~/^[F,f]rom:.*[<, ](\S+@\S+\.\w{2,3})[>,\s]/) {$TO=$FROM;} 
        #print LOG $line
}
if ($TO eq ""){print LOG "From-line not found\n"; $dbh->disconnect; close LOG; print "Error with From-line"; exit 99;}

($vname, $nname, $PIN,$PASS)=$dbh->selectrow_array("select vname, nname, pin, pass from benutzer where email LIKE '$TO'");

if (($PIN eq "") || ($PASS eq "")) {print LOG "$TO was not in Database\n"; errormail();}

print LOG  "Sending PIN=$PIN and PASS to $vname $nname  <$TO>   Sender was: $ENV{SENDER}\n";
close LOG;


    # Open The Mail Program
    open(MAIL,"|$mailprog -t");
    #open(MAIL,">>tehest");

    print MAIL "To: $TO\n";
    print MAIL "From: $absender\n";

    # Print Message Subject
    print MAIL "Subject: $subject\n\n";
    print MAIL "Hallo $vname $nname \n";
    print MAIL "Sie haben uns gebeten, Ihnen Ihre Zugangsdaten\nfür die Teilnahme an unseren Umfragen\nzuzusenden.\n\n";
    print MAIL "Ihre PIN ist : $PIN\n";
    print MAIL "Ihr Passwort ist : $PASS\n\n";
    print MAIL "Mit freundlichem Gruß\n\nIhr prorata.web - TEAM!";
    close (MAIL);


$dbh->disconnect;
print "Pin and Pass will be replied to $TO";
exit 0;

sub errormail {

    # Open The Mail Program
    open(MAIL,"|$mailprog -t");
    #open(MAIL,">>tehest");

    print MAIL "To: $ENV{SENDER}\n";
    print MAIL "From: $absender\n";

    # Print Message Subject
    print MAIL "Subject: Problem......\n\n";
    print MAIL "Hallo,\n";
    print MAIL "Ihre Absendeadresse: $TO wurde nicht in unserer Datenbank gefunden.\n\n";
    print MAIL "Benutzen sie bitte die Adresse, die Sie in unsere Datenbank eingetragen haben !!\n";
    print MAIL "Entweder als Absender oder folgendermaßen im Body Ihrer Mail:\n\n\From: <IhreAdresse\@IhrProvider.de>\n\n".
		"wobei IhreAdresse\@IhrProvider.de natürlich ihre alte/andere E-mailadresse ist,\nan die aus Sicherheitsgründen dann auch die Daten gesendet werden\n".
		"Schicken sie diese Mail dann wieder an <anmeldedaten\@prorata.de> \n";
    print MAIL "Alternativ können Sie auch die Seite https://ssl.prorata.de/int-research/online-panel.html verwenden um an Ihre Daten zu kommen\n\n".
	       "      Mit freundlichem Gruß\n\nIhr prorata.web - TEAM!";
    close (MAIL);

print "Errormail geschickt";
$dbh->disconnect;
exit;
}