Hello , I have a user DB , My perl script on my redhat box scans a drive for
users files , and I want to email, the user to remind them they have a file
that they havent used in months
my problem when the script comes accrosed a new user I want them to be
added to the DB and send me an email stating so , so I can look up their
email address and provide it. My script querys the DB to see if there is a
record , But I am not getting the right negitive response , to run my if
statement.
My DB :
+-++--+
| owner | email | comm |
+-++--+
| t0642k8 | [EMAIL PROTECTED] | |
+-++--+
1 row in set (0.08 sec)
mysql
my code: please note I trimed it up
#
## ##
## select distinct owner phase ##
## ##
#
my $database = shared;
my $data_source = DBI:mysql:$database;
my $username = root;
my $password = elaine;
$dbh = DBI -connect($data_source, $username, $password) or die cant
connect to
$data_source : my $dbh- errstr\n;
#Select Owner
my $sth= $dbh- prepare(select distinct owner from files);
$sth- execute or die unable to execute query ;
my $array_ref = $sth-fetchall_arrayref();
open(LOG, /var/www/html/bad/users.txt);
foreach $row(@$array_ref) {
#
## dump total bad users to text file
#
my ($user_n) = @$row;
print LOG $user_n\n;
#add to users DB
$dbh1 =DBI -connect($data_source, $username, $password) or die cant
connect to
$data_source : my $dbh- errstr\n;
my $sth1 = $dbh1 - prepare(select owner from users where owner =
'$user_n');
$sth1 - execute or die unable to execute query ;
# $sth1 - finish;
# $dbh1-disconnect;
my $array_ref = $sth1 - fetchall_arrayref();
foreach $row(@$array_ref){
my($owner) = @$row;
if($owner eq ){ ### try NULL next
print Entered bracket \n;
$dbh4 =DBI -connect($data_source, $username, $password) or die cant
connect to
$data_source : my $dbh- errstr\n;
my $sth2 = $dbh4 - prepare(insert into users(owner)values('$user_n'));
$sth2 - execute or die unable to execute query ;
}
}
$sth - finished;
-
Before posting, please check:
http://www.mysql.com/manual.php (the manual)
http://lists.mysql.com/ (the list archive)
To request this thread, e-mail [EMAIL PROTECTED]
To unsubscribe, e-mail mysql-unsubscribe-##L=##[EMAIL PROTECTED]
Trouble unsubscribing? Try: http://lists.mysql.com/php/unsubscribe.php