SPUG: Getting around dollar signs being removed

[S Bullo]

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