UnitedKnowledge/webgui_newsletter
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Internationalized system messages.

Browse source
This commit is contained in:
Martin Kamerbeek 2010-05-31 16:22:22 +02:00
parent bcb265e188
commit 2490e166d3
15 changed files with 422 additions and 79 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lib/WebGUI/Mailing/Bounce.pm
View file

@ -5,6 +5,7 @@ use warnings;
use WebGUI::Mailing::Admin;
#----------------------------------------------------------------------------
sub bounceScoreOk {
my $self = shift;
my $address = shift;
@ -16,6 +17,7 @@ sub bounceScoreOk {
return $self->getBounceScore( $address ) < $threshold;
}
#----------------------------------------------------------------------------
sub getBounceScore {
my $self = shift;
my $address = shift;
@ -38,6 +40,7 @@ sub getBounceScore {
return $score;
}
#----------------------------------------------------------------------------
sub new {
my $class = shift;
my $session = shift;
@ -45,24 +48,26 @@ sub new {
bless { _session => $session }, $class;
}
#----------------------------------------------------------------------------
sub session {
return (shift)->{ _session };
}
#----------------------------------------------------------------------------
sub www_bounceReport {
my $self = shift;
my $session = $self->session;
my $i18n = WebGUI::International->new( $session, 'MailingManager' );
my $sth = $session->db->read( 'select distinct sentTo from WGMailing_queue where sentTo is not null' );
my $output = '<table><tr><th>Email</th><th>Bounce score</th></tr>';
my $output = '<table><tr><th>'.$i18n->get('email').'</th><th>'.$i18n->get('bounce score').'</th></tr>';
while ( my ($email) = $sth->array ) {
my $score = $self->getBounceScore( $email );
$output .= "<tr><td>$email</td><td>$score</td></tr>";
}
$output .= '</table>';
return WebGUI::Mailing::Admin->new( $session )->getAdminConsole->render( $output, 'Bounce score overview' );
return WebGUI::Mailing::Admin->new( $session )->getAdminConsole->render( $output, $i18n->get( 'bounce scores' ) );
}
1;