SPUG: Anyone savvy in this?
Susanne Bullo
sweetsue at sweethomes.com
Tue Jan 29 17:07:40 CST 2002
Well, the email is going out like:
Sign up for Retire Quickly with me.
<br />
http://...
It should show without the <br />
The coding I have is as follows:
#!/usr/bin/perl
use Time::Local;
use POSIX qw(mktime);
use DBI;
use LWP::UserAgent;
use HTTP::Request;
use HTTP::Response;
use File::Path;
&get_date;
sub get_date {
@days = ('Sunday','Monday','Tuesday','Wednesday',
'Thursday','Friday','Saturday');
@months = ('January','February','March','April','May','June','July',
'August','September','October','November','December');
($sec,$min,$hour,$mday,$mon,$year,$wday) =
(localtime(time))[0,1,2,3,4,5,6];
$time = sprintf("%02d:%02d",$hour,$min);
if ($year < 50){
$year += 2000;
}
else {
$year += 1900;
}
$date = "$days[$wday], $months[$mon] $mday, $year at $time";
$mon2 = $mon + 1;
$date2 = "$mon2/$mday/$year";
$date3 = "$mon2.$mday.$year";
}
my $buffer = '';
my $buffer2 = '';
my $buffer3 = '';
my $host = 'localhost';
my $database = 'safelist';
my $uname = 'admin';
my $password = 'srb6653';
my $ua = new LWP::UserAgent();
my $dbh = DBI->connect("DBI:mysql:$database", $uname, $password) || die
"Failed DBI connect(): $!\n";
my $query = "select slmain.email_to, safelists.username, safelists.password,
email_txt.email_subject, email_txt.email_text, members.username,
schedule.system_name from schedule, members, slmain, email_txt, safelists
where schedule.WED != '' and schedule.WED != 'N' and schedule.WED != '0' and
schedule.uid = members.id and schedule.system_name = slmain.system_name and
schedule.WED = email_txt.id and schedule.system_name = safelists.system_name
and schedule.uid = safelists.uid and members.username != 'demo'";
$buffer .= "===> Executing Query: $query\n\n";
my $sth = $dbh->prepare($query);
my $rc = $sth->execute();
while(@row = $sth->fetchrow_array()) {
my $url =
"http://$row[0]&username=$row[1]&password=$row[2]&subject=$row[3]&message=$r
ow[4]";
$row[4] =~ s/\\//g;
my $req = HTTP::Request->new(GET=>$url);
my $datadir = "members/data/$row[5]/$row[6]";
my $file_path = "members/data/$row[5]/$row[6]/$date3";
if (! -d "$datadir") { system "mkdir -p $datadir" }
my $resp = $ua->request($req, $file_path);
my $sec_file_path = "members/data/$row[5]";
my $outfile = "index.html";
my $filename = "$sec_file_path/$outfile";
open (FILE,">>$filename") or die "Error opening $filename: $!";
{ print FILE "<a href='$row[6]/$date3'>Report on $date3 for
'$row[6]'</a><br>"; }
}
close (FILE);
my $query2 = "SELECT email_txt.uid, schedule.system_name from schedule,
email_txt, members where schedule.WED IS NOT NULL and schedule.WED != 'N'
and schedule.WED != '0' and schedule.WED = email_txt.id and members.id =
email_txt.uid and members.username != 'demo'";
$buffer2 .= "===> Executing Query: $query2\n\n";
my $sth = $dbh->prepare($query2);
my $rc = $sth->execute();
while (my($uid,$system_name) = $sth->fetchrow_array) {
my $datestamp = $date2;
my $timestamp = $time;
my $query3 = "INSERT into reports (uid, system_name, last_success_run)
values ('$uid', '$system_name', '$datestamp at $timestamp')";
$buffer3 .= "===> Executing Query: $query3\n\n";
my $sth = $dbh->prepare($query3);
my $rc = $sth->execute();
}
undef $sth;
$dbh->disconnect;
0;
Susanne Bullo - Sweet Homes
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
POST TO: spug-list at pm.org PROBLEMS: owner-spug-list at pm.org
Subscriptions; Email to majordomo at pm.org: ACTION LIST EMAIL
Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address
For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest
Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org
More information about the spug-list
mailing list