back/newsletter/mail_filter.pl

#!/usr/bin/perl -w
#
# 2002-03-19 Dobrica Pavlinusic <dpavlin@pliva.hr>
#
# scans e-mail and update PLIVA d.d. newsletter subscribers database
# accordingly

use strict;
use DBI;


my $admin = 'newsletter-errors@pliva.hr';

my $email;

my $in="";

while(<>) {
        $in.=$_;
        chomp;
        chomp;
        if (/confirmation\s+(\S+@\S+)/) {
                $email = $1;
                last;
        }
}

if (! $email) {
        open(MAIL,"| /usr/lib/sendmail -t") || die "sendmail: $!";
        print MAIL "To: PLIVA Newsletter admin <$admin>
From: PLIVA Newsletter mail filter <newsletter-request\@pliva.hr>
Subject: newsletter request unknown mail

We just received following e-mail which should be newsletter request,
but is not recognised by out mail filter:

$in
";
        close(MAIL);
        exit;
}


my $dbh = DBI->connect("DBI:Pg:dbname=corp","dpavlin","") || die $DBI::errstr;

my $sql = "select email,confirmed from news_sub where email = '$email'";
my $sth = $dbh->prepare($sql) || die $dbh->errstr();
$sth->execute() || die $sth->errstr();

if (my ($email,$confirmed) = $sth->fetchrow_array() ) {
        if (! $confirmed) {
                $dbh->do("update news_sub set confirmed=true where email='$email'");
        } else {
                $dbh->do("delete from news_sub where email='$email'");
        }
}
1	#!/usr/bin/perl -w
2	#
3	# 2002-03-19 Dobrica Pavlinusic <dpavlin@pliva.hr>
4	#
5	# scans e-mail and update PLIVA d.d. newsletter subscribers database
6	# accordingly
7
8	use strict;
9	use DBI;
10
11
12	my $admin = 'newsletter-errors@pliva.hr';
13
14	my $email;
15
16	my $in="";
17
18	while(<>) {
19	$in.=$_;
20	chomp;
21	chomp;
22	if (/confirmation\s+(\S+@\S+)/) {
23	$email = $1;
24	last;
25	}
26	}
27
28	if (! $email) {
29	open(MAIL,"\| /usr/lib/sendmail -t") \|\| die "sendmail: $!";
30	print MAIL "To: PLIVA Newsletter admin <$admin>
31	From: PLIVA Newsletter mail filter <newsletter-request\@pliva.hr>
32	Subject: newsletter request unknown mail
33
34	We just received following e-mail which should be newsletter request,
35	but is not recognised by out mail filter:
36
37	$in
38	";
39	close(MAIL);
40	exit;
41	}
42
43
44	my $dbh = DBI->connect("DBI:Pg:dbname=corp","dpavlin","") \|\| die $DBI::errstr;
45
46	my $sql = "select email,confirmed from news_sub where email = '$email'";
47	my $sth = $dbh->prepare($sql) \|\| die $dbh->errstr();
48	$sth->execute() \|\| die $sth->errstr();
49
50	if (my ($email,$confirmed) = $sth->fetchrow_array() ) {
51	if (! $confirmed) {
52	$dbh->do("update news_sub set confirmed=true where email='$email'");
53	} else {
54	$dbh->do("delete from news_sub where email='$email'");
55	}
56	}