SPUG: Posting a question for someone with e-mail bounce problems

Susanne Bullo sweetsue at sweethomes.com
Fri Jan 11 17:47:52 CST 2002


Ok, thanks to you all I am using LWP::UserAgent and have it almost working
:)  Here's the error I see when I try testing it:

Can't locate object method "method" via package
"http://www.howto-workathome.com/cgi-bin/safelist/members.cgi?action=Send
This Message&username=rocksolid&password=onesite&subject=This is a fifth
test&message=www.sweethomes.com www.sweethome
s.com www.sweethomes.com www.sweethomes.com www.sweethomes.com
www.sweethomes.com www.sweethomes.com www.sweethomes.com www.sweethomes.com
www.sweethomes.com " at /usr/lib/perl5/site_perl/5.005/LWP/UserAgent.pm line
163.
Issuing rollback() for database handle being DESTROY'd without explicit
disconnect().

Here is what I have for my code (don't laugh, it's my first official
conglomeration for a script):

#!/usr/bin/perl
use Time::Local;
use POSIX qw(mktime);
use DBI;
use LWP::UserAgent;

&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";
}

my $buffer = '';
my $buffer2 = '';
my $buffer3 = '';
my $buffer4 = '';
my $buffer5 = '';
my $host     = 'localhost';
my $database = 'safelist';
my $username = 'admin';
my $password = 'srb6653';


my $dbh = DBI->connect("DBI:mysql:$database", $username, $password) || die
"Failed DBI connect(): $!\n";

my $query = "SELECT safelists.email_to, safelists.username,
safelists.password, email_txt.email_subject, email_txt.email_text,
safelists.uid, members.email from safelists, schedule, email_txt, members
where email_txt.id = schedule.SUN and schedule.system_name =
safelists.system_name and members.id = safelists.uid and
email_txt.email_subject != ''";
$buffer .= "===> Executing Query: $query\n\n";
my $sth = $dbh->prepare($query);
my $rc  = $sth->execute();

while
(my($email_to,$username,$password,$email_subject,$email_text,$system_name,$u
id,$email) = $sth->fetchrow_array) {

$ua = new LWP::UserAgent;

my $url = "http://$email_to?action=Send This
Message&username=$username&password=$password&subject=$email_subject&message
=$email_text";
my $file_path = './members/data/$username.$date.$time.txt';
$ua->request($url, $file_path);

my $query2 = "SELECT safelists.uid, schedule.system_name from safelists,
schedule where schedule.system_name = safelists.system_name and schedule.SUN
!= '0'";
$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, id)
values ('$uid', '$system_name', '$datestamp at $timestamp', '')";
$buffer3 .= "===> Executing Query: $query3\n\n";
my $sth = $dbh->prepare($query3);
my $rc = $sth->execute();

}
}

$dbh->disconnect;
0;


Susanne Bullo - Sweet Homes
<http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=903921&PA=227740>
DirectTV DSL <http://www.ezinfocenter.com/4216180/dsl>
Get Paid to Read Email! <http://www.ezinfocenter.com/4216180/mm>



 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
     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://zipcon.net/spug/





More information about the spug-list mailing list