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