<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">#!/usr/bin/perl n 18 17:07:13 ns2 qmail: 1200672433.562000 starting delivery 30995: msg 311020 to local anmeldedaten@ns2.prorata.de
#Jan 18 17:07:13 ns2 qmail: 1200672433.562029 status: local 1/10 remote 0/20
#Jan 18 17:07:13 ns2 qmail: 1200672433.595835 delivery 30995: deferral: Quantifier_follows_nothing_in_regex;_marked_by_&lt;--_HERE_in_m/*_&lt;--_HERE_****SPAM*****/_at_/var/qmail/alias/anmeldedaten.pl_line_33./#
#

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-&gt;connect($DB_DSN, $DB_USER, 
   $DB_PASSWD) or err::error_seite{"Cannot connect to DB"};
my $FROM="";
my $TO="";

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

while ($check=$line= &lt;STDIN&gt;){ 
	if ( ($FROM)=$line=~/^[F,f]rom:.*[&lt;, ](\S+@\S+\.\w{2,3})[&gt;,\s]/) {$TO=$FROM;} 
        #print LOG $line
	#
	# Behandlung von SPAM-Mails:
	print $check;
	
#	if ( ($SPAM)=$line~/^[S,s]ubject:*****SPAM*****/\s/) {$dbh-&gt;disconnect; close LOG; print "SPAM!-Abgebrochen!"; exit 99;}
}



if ($TO eq ""){print LOG "From-line not found\n"; $dbh-&gt;disconnect; close LOG; print "Error with From-line"; exit 99;}

($vname, $nname, $PIN,$PASS)=$dbh-&gt;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  &lt;$TO&gt;   Sender was: $ENV{SENDER}\n";
close LOG;


    # Open The Mail Program
    open(MAIL,"|$mailprog -t");
    #open(MAIL,"&gt;&gt;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-&gt;disconnect;
print "Pin and Pass will be replied to $TO";
exit 0;

sub errormail {

    # Open The Mail Program
    open(MAIL,"|$mailprog -t");
    #open(MAIL,"&gt;&gt;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: &lt;IhreAdresse\@IhrProvider.de&gt;\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 &lt;anmeldedaten\@prorata.de&gt; \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-&gt;disconnect;
exit;
}



</pre></body></html>