SPUG: Getting around dollar signs being removed
S Bullo
sweetsue at sweethomes.com
Mon Mar 18 11:50:47 CST 2002
It's rather large, I'll put in part of the pertinent portion:
my $query = "select blah, blah, blah";
$buffer .= "===> Executing Query: $query\n\n";
my $sth = $dbh->prepare($query);
my $rc = $sth->execute();
while(@row = $sth->fetchrow_array()) {
if (blah, blah, blah)
{
$row[7] =~ s|#| |g;
$row[8] =~ s|#| |g;
$row[10] =~ s| |_|g;
my $login = "$row[0]Action=Login$row[1]$row[2]$row[3]$row[4]";
my $sec_file_path = "../var/www/html/automail/members/data/$row[9]";
my $data = "../var/www/html/automail/members/data/$row[9]/$row[10].html";
my $action = "action= Send This Message
&subject=$row[7]&priority=3&message=$row[8]";
my $mailto = "$row[11]";
my $outfile = "index.html";
my $filename = "$sec_file_path/$outfile";
if (! -d "$sec_file_path") { system "mkdir -p $sec_file_path" }
if (! -d "$data") { system "touch $data" }
{ system "curl -s \"$login\"" }
{ system "curl -s -o $data -d \"$action\" $mailto" }
open (FILE,">>$filename") or die "Error opening $filename: $!";
{ print FILE "<a href='$row[10].html'>Report on $date for
'$row[10]'</a><br>"; }
close (FILE);
$email = "$row[12]";
$subject = "Your $row[10] Mailing Information";
$message = "Your ad has been sent to $row[10]. For further details, please
log into:
URL HERE
If you have any questions please reply back to this email.
Thank You,
Onesite Market";
%mail = ( To => $email,
>From => 'support at url.com',
Subject => $subject,
Message => $message
);
sendmail(%mail) or die $Mail::Sendmail::error;
print "OK. Log says:\n", $Mail::Sendmail::log;
}
I realize some of this coding can (and will) be done better - just trying to
hammer out the workings first. $row[8] is where the body of the message is
placed. It's at this point that just some outside safelist programs are
stripping out the $ and the character just after (i.e. $49.95 becomes 9.95,
$9.95 become .95).
TIA!
Susanne Bullo
Technician - One Site Marketing
-----Original Message-----
From: Tim Maher [mailto:tim at consultix-inc.com]
Sent: Monday, March 18, 2002 9:40 AM
To: S Bullo
Cc: spug-list at pm.org
Subject: Re: SPUG: Getting around dollar signs being removed
On Mon, Mar 18, 2002 at 09:35:08AM -0800, S Bullo wrote:
> Not at all - this is a program being created for a client to autosend
email
> to safelists only. It is not spam - I've never been in the business of
> sending spam.
>
> Susanne Bullo
> Technician - One Site Marketing
That's nice to hear. Now show us the program that you want us to help you
with.
======================================================
| Tim Maher, Ph.D. tim at timmaher.org |
| SPUG Founder & Leader spug at seattleperl.org |
| Seattle Perl Users Group www.seattleperl.org |
======================================================
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
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