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;
}
####
##
##
[Tue Mar 16 12:11:04 2004] index.pl: Error executing run mode 'get_newsletters': HTML::Template->output() : fatal error in loop output : HTML::Template::param() : attempt to set parameter 'email' with an array ref - parameter is not a TMPL_LOOP! at /usr/local/share/perl/5.8.2/HTML/Template.pm line 2905