#!/usr/local/bin/perl -w
# $Id: zahlungsaufforderung,v 1.2 2001/11/26 18:51:26 tesh Exp $

$limit = 1000;

use lib '/home/tante/TANTE/tet-nt';
use tante_db;

open_db();

$result = do_query("select vorname,nachname,nickname,email, -guthaben/100.0 as Euro, -guthaben*0.0195583 as DM, last_contact from kunden where guthaben < -$limit order by guthaben");

print STDERR "Sende Mails an Kunden mit mehr als ". ($limit/100.0) ." Euro SOLL...\n";
print "PATH=\$PATH:/usr/lib\n";

while(($vorname, $nachname, $nickname, $email, $euro, $dm, $last_contact) = $result->fetchrow) {

print STDERR  "* $vorname $nachname <$email> ($nickname):\n";
printf STDERR "  Schulden: %.2f Euro (%.2f DM) SOLL\n", $euro, $dm;
print STDERR  "  Letzter Kontakt: $last_contact\n";

if ($email eq "") {
	print STDERR "  Warnung: keine Mailadresse bekannt, keine Mail gesendet!\n";
	next;
}

print "sendmail $email << EOM
From: Tante Emma <tante\@wjpserver.cs.uni-sb.de>
To: $vorname $nachname <$email>
Subject: Dein Tante Emma-Guthaben

Hallo $vorname,

dein Tante Emma-Konto würde es freuen, wenn du etwas einzahlen würdest.
Dein Kontostand ist im Moment
";
printf "          %.2f Euro (%.2f DM) SOLL\n", $euro, $dm;
print "Bitte komm in den nächsten Tagen mal vorbei.
Du findest uns im Bau 45, Raum 319, Telefon 302-4129.

Danke, das Tante Emma-Team.

(Diese Mail wurde automatisch verschickt.)
EOM

sleep 1

";

}