Код: Выделить всё
#!/usr/bin/perl -w
use strict;
use DBI;
my $database = "exim";
my $hostname = "localhost";
my $port = "3306";
my $user = "root";
my $password = "xxx";
my $dsn = "DBI:mysql:database=$database;host=$hostname;port=$port";
my $dbh = DBI->connect($dsn, $user, $password);
my $sth = $dbh->prepare("SELECT * FROM lists WHERE address = '$ARGV[0]'");
$sth->execute();
my $row = $sth->fetchrow_hashref();
if( $row->{'address'} ) {
unless( $row->{'isValid'} ) {
$dbh->do("UPDATE lists SET isValid = 1 WHERE id = '$row->{'id'}'");
}
exit 1;
} else {
$dbh->do("INSERT INTO lists(address,isValid) VALUES('$ARGV[0]',0)");
exit 0;
}
2. Как проанализировать ответ от скрипта (1 или 0) и принять решение - отправить ли пользователю сообщение с запросом повторной посылки письма или нет?