Mailing List Archive

Although I can send email from this machine, I cannot
via HTML::Embperl::Mail.
The first file included below calls
card-notification.epl with the intention
of emailing it. embperl.log also included.


------ send-card.epl -----

[.- use Angryman::Database; use Data::Dumper;

$udat{card_ready_for_db}=1; # fake field needed to
created $udat{_session_id}
$fdat{session_id}=$udat{_session_id};
-]

[#
Data::Dumper->Dump([\%fdat,\%udat],['fdat','udat']);
#]

[.-
*::answers=
DBIx::Recordset->Insert
({
%Angryman::Database::DBIx::Connect,
'!Table' => 'greeting_cards',
%fdat
});

-]

[.- use HTML::Embperl::Mail;
$ENV{EMBPERL_MAILDEBUG}=1;
HTML::Embperl::Mail::Execute({inputfile =>
'card-notification.epl', fdat => \%fdat,
to=>'princepawn@yahoo.com', subject => 'embperl
test'}) -]

---------- card-notification.epl ----------

Hello, [+ $fdat{to_name} +].
you have received a card from [+ $fdat{from_name} +].

To see your card,

[* $escmode=2; *]

<a
href="http://stage.angryman.com/cgi-bin/angrycards/gen-card.epl?session_id=[+
$fdat{session_id} +]>click here!</a>

------------ emperl.log -----------------
[6172]MEM: Reload
/home/angryman/www/cgi-bin/angrycards/send-card.epl in
HTML::Embperl::DOC::_24
[6172]REQ: Embperl 1.3b3 starting... Thu Jun 8
13:43:55 2000

[6172]REQ: No Safe Eval All Opcode allowed mode =
mod_perl (3)
[6172]REQ: Package = HTML::Embperl::DOC::_24
[6172]TAB: get TabRow = 0, Used = 129
[6172]Formdata... length = 313
[6172]FORM: preview=Preview Card
[6172]FORM: title=You've got me? Who's got you?
[6172]FORM: to_name=aaa
[6172]FORM: message=dsa asd asf dsf s fasdf asdf adsf
adsf asf asfs
[6172]FORM: to_email=zzz
[6172]FORM: id=954185294.563363
[6172]FORM: from_name=errr
[6172]FORM: submit=Select
[6172]FORM: question=Does the IRS have too much power?
[6172]FORM: from_email=ggg
[6172]FORM: img=/m/i/2000/4/25/youve1.gif
[6172]FORM: submit=I Like It
[6172]Using APACHE for output...
[6172]Reading
/home/angryman/www/cgi-bin/angrycards/send-card.epl as
input using PerlIO ...
[6172]SRC: Line 1: [- use Angryman::Database; use
Data::Dumper;
[6172]EVAL< use Angryman::Database; use Data::Dumper;

$udat{card_ready_for_db}=1; # fake field needed to
created $udat{_session_id}
$fdat{session_id}=$udat{_session_id};

[6172]EVAL> 6d8f089f55927dde
[6172]TAB: nResult = 0
[6172]SRC: Line 7: [#
Data::Dumper->Dump([\%fdat,\%udat],['fdat','udat']);
#]
[6172]SRC: Line 9: [-
[6172]EVAL<
*::answers=
DBIx::Recordset->Insert
({
%Angryman::Database::DBIx::Connect,
'!Table' => 'greeting_cards',
%fdat
});


DB: Successfull connect to
DBI:mysql:sdb:192.168.201.103 (id=1207, numOpen = 5)
DB: use cached meta data for greeting_cards
DB: New Recordset driver=mysql placeholders
supported
DB: do 'INSERT INTO greeting_cards
(title,to_name,message,to_email,id,session_id,from_name,question,from_email)
VALUES (?,?,?,?,?,?,?,?,?)' bind_values=<You've got
me? Who's got you? aaa dsa asd asf dsf s fasdf asdf
adsf adsf asf asfs zzz 954185294.563363
6d8f089f55927dde errr Does the IRS have too much
power? ggg> bind_types=<12 12 12 12 12 12 12 12 12>
DB: do returned 1
DB: FLUSH Recordset id = 1206
DBIx::Recordset=HASH(0x8974854)
DB: Call DBI finish (id=1206, Last = SELECT * FROM
greeting_cards WHERE ( (session_id = ?)) )
DB: Row::DESTROY
DB: ::CurrRow::DESTROY
DB: FLUSH Recordset id = 1206
DBIx::Recordset=HASH(0x8974854)
DB: Call DBI disconnect (id=1206, numOpen = 4)
DB: Disconnect (id=1206, numOpen = 4)
DB: DESTROY (id=1206, numOpen = 4)
[6172]EVAL> <undefined>
[6172]TAB: nResult = 0
[6172]SRC: Line 20: [- use HTML::Embperl::Mail;
[6172]EVAL< use HTML::Embperl::Mail;
$ENV{EMBPERL_MAILDEBUG}=1;
HTML::Embperl::Mail::Execute({inputfile =>
'card-notification.epl', fdat => \%fdat,
to=>'princepawn@yahoo.com', subject => 'embperl
test'})
[6172]MEM: Reload card-notification.epl in
HTML::Embperl::DOC::_25
[6172]REQ: No Safe Eval All Opcode allowed mode =
mod_perl (3)
[6172]REQ: Package = HTML::Embperl::DOC::_25
[6172]TAB: get TabRow = 0, Used = 130
[6172]Using APACHE for output...
[6172]Reading card-notification.epl as input using
PerlIO ...
[6172]EVAL<
$___b=$_[0] -> ProcessBlock (0,107,1);
goto "b$___b";
b1:;
$escmode=2;
$___b=$_[0] -> ProcessBlock (126,119,2);
goto "b$___b";
b2:;

b0:

[6172]SRC: Line 1: [+ $fdat{to_name} +].
[6172]EVAL< $fdat{to_name}
[6172]EVAL> aaa
[6172]TAB: nResult = 0
[6172]SRC: Line 2: [+ $fdat{from_name} +].
[6172]EVAL< $fdat{from_name}
[6172]EVAL> errr
[6172]TAB: nResult = 0
[6172]TAB: set EscMode = 2, Used = 528
[6172]SRC: Line 9: [+ $fdat{session_id} +]>click
here!</a>
[6172]EVAL< $fdat{session_id}
[6172]EVAL> 6d8f089f55927dde
[6172]TAB: nResult = 0
[6172]EVAL> <undefined>
[6172]TAB: nResult = 0
[6172]PERF: input = card-notification.epl
[6172]PERF: Time: 0 ms Evals: 3 Cache Hits: 0 (0%)
[6172]Sub-Request finished. Thu Jun 8 13:43:55 2000
. Entry-SVs: 53452 -OBJs: 158 Exit-SVs: 53487 -OBJs:
158
[6172]EVAL> 1
[6172]TAB: nResult = 0
[6172]PERF: input =
/home/angryman/www/cgi-bin/angrycards/send-card.epl
[6172]PERF: Time: 100 ms Evals: 3 Cache Hits: 0 (0%)
[6172]Request finished. Thu Jun 8 13:43:56 2000
. Entry-SVs: 53265 -OBJs: 159 Exit-SVs: 58097 -OBJs:
155
[6172]MEM: Free buffer for card-notification.epl in
HTML::Embperl::DOC::_25
[6172]MEM: Free buffer for
/home/angryman/www/cgi-bin/angrycards/send-card.epl in
HTML::Embperl::DOC::_24


=====
Terrence Brannon
90 St. Mark's Place
Apt. 2E North
Staten Island, NY 10301
914-755-4360

__________________________________________________
Do You Yahoo!?
Yahoo! Photos -- now, 100 FREE prints!
http://photos.yahoo.com