Hi
I'm having a problem with
CGI::Application,
HTML::Template and array references. I've got the following code in a sub:
sub get_newsletters {
# ----------------------------------------------------------------
#
my $self = shift;
my $dbh = $self->param('dbh');
use Net::POP3;
my $pop = Net::POP3->new('mail.foo.bar', Timeout => 60);
my $username = "foo";
my $password = "bar";
my (@messages);
if ($pop->login($username, $password) > 0) {
my $msgnums = $pop->list; # hashref of msgnum => size
foreach my $msgnum (keys %$msgnums) {
my %row;
my $msg = $pop->get($msgnum);
$row{id} = $msgnum;
$row{email} = @$msg;
warn "print $row{id} - @$msg";
# $pop->delete($msgnum);
push (@messages,\%row);
}
}
$pop->quit;
my $tmpl_path = "view_emails.shtml";
my $tmpl = $self->load_tmpl($tmpl_path, die_on_bad_params => 0);
$tmpl->param (
messages => \@messages,
);
$self->_set_username_in_tmpl(\$tmpl);
return $tmpl->output;
}
And the following in a HTML template file:
<TMPL_LOOP NAME="messages">
<p><TMPL_VAR NAME=id></p>
<p><TMPL_VAR NAME=email></p>
</TMPL_LOOP>
I keep getting the following error message:
[Tue Mar 16 12:11:04 2004] index.pl: Error executing run mode 'get_new
+sletters': HTML::Template->output() : fatal error in loop output : HT
+ML::Template::param() : attempt to set parameter 'email' with an arra
+y ref - parameter is not a TMPL_LOOP! at /usr/local/share/perl/5.8.2/
+HTML/Template.pm line 2905
I'm consfused by this error. I've tried changing @$msg to $msg and the same error appears. I stuck in that warn in the code, and the warn prints the message to stdout perfectly. But for some reason, HTML::Templates chokes.
Any ideas?
- wil