Compare commits
2 commits
master
...
bounce_sco
| Author | SHA1 | Date | |
|---|---|---|---|
|
5418008419 | ||
|
|
dbf935e98b |
20 changed files with 197 additions and 595 deletions
|
|
@ -1,3 +1,3 @@
|
|||
Mail::DeliveryStatus::BounceParser (v 1.525)
|
||||
Class::InsideOut (v 1.10)
|
||||
Mail::DeliveryStatus::BounceParser
|
||||
Class::InsideOut
|
||||
|
||||
|
|
|
|||
|
|
@ -34,13 +34,6 @@ sub definition {
|
|||
tab => 'display',
|
||||
defaultValue => 1,
|
||||
},
|
||||
useHoneypot => {
|
||||
fieldType => 'yesNo',
|
||||
label => $i18n->get('useHoneypot label'),
|
||||
hoverHelp => $i18n->get('useHoneypot description'),
|
||||
tab => 'security',
|
||||
defaultValue => 1,
|
||||
},
|
||||
);
|
||||
|
||||
push @{ $definition }, {
|
||||
|
|
@ -59,16 +52,12 @@ sub definition {
|
|||
sub getIssues {
|
||||
my $self = shift;
|
||||
|
||||
# Caching of instanciated assets is not for speed, but is requied since prepareView is called on them, and we
|
||||
# need them again in that state in getViewVars.
|
||||
unless ( $self->{ _issues } ) {
|
||||
$self->{ _issues } = $self->getLineage( [ 'children' ], {
|
||||
my $issues = $self->getLineage( [ 'children' ], {
|
||||
returnObjects => 1,
|
||||
orderByClause => 'lineage desc',
|
||||
} );
|
||||
}
|
||||
|
||||
return $self->{ _issues };
|
||||
return $issues;
|
||||
}
|
||||
|
||||
#----------------------------------------------------------------------------
|
||||
|
|
@ -99,8 +88,7 @@ sub getAssetContent {
|
|||
my $self = shift;
|
||||
my $asset = shift;
|
||||
|
||||
# Do not call prepareView on $asset here but rather do this in our own prepareView to prevent head tags being
|
||||
# written to body.
|
||||
$asset->prepareView;
|
||||
my $content = $asset->view;
|
||||
|
||||
return $content;
|
||||
|
|
@ -118,11 +106,6 @@ sub prepareView {
|
|||
|
||||
$self->{ _viewTemplate } = $template;
|
||||
|
||||
# Call prepareview on issues here, to prevent head tags ending up in the body.
|
||||
foreach my $issue ( @{ $self->getIssues } ) {
|
||||
$issue->prepareView;
|
||||
}
|
||||
|
||||
return;
|
||||
}
|
||||
|
||||
|
|
@ -144,9 +127,9 @@ sub getViewVars {
|
|||
my $issueVar = $issue->get;
|
||||
$issueVar->{ url } = $issue->getUrl;
|
||||
|
||||
my $isRecent = defined $displayIssueId
|
||||
? $issue->getId eq $displayIssueId
|
||||
: $recentCount < $maxRecent
|
||||
my $isRecent =
|
||||
( !$displayIssueId && $recentCount < $maxRecent )
|
||||
|| ( $issue->getId eq $displayIssueId )
|
||||
;
|
||||
|
||||
if ( $isRecent ) {
|
||||
|
|
@ -182,3 +165,4 @@ sub view {
|
|||
}
|
||||
|
||||
1;
|
||||
|
||||
|
|
|
|||
|
|
@ -120,8 +120,6 @@ sub processContentAsUser {
|
|||
|| $self->get('mailStyleTemplateId')
|
||||
|| $self->get('styleTemplateId');
|
||||
|
||||
$session->stow->set( 'mailing_rendering' => 1 );
|
||||
|
||||
# Generate email body for this user
|
||||
my $content = $session->style->process(
|
||||
$self->generateEmailContent( $issueId, $configuration ),
|
||||
|
|
@ -131,13 +129,10 @@ sub processContentAsUser {
|
|||
# Process macros
|
||||
WebGUI::Macro::process( $session, \$content );
|
||||
|
||||
$session->stow->delete( 'mailing_rendering' );
|
||||
|
||||
# Become ourselves again.
|
||||
$session->user( { userId => $currentUser->getId } );
|
||||
$var->switchAdminOn if $adminOn;
|
||||
|
||||
|
||||
return $content;
|
||||
}
|
||||
|
||||
|
|
|
|||
|
|
@ -12,7 +12,6 @@ use WebGUI::Mail::Send;
|
|||
use WebGUI::Group;
|
||||
use WebGUI::Asset;
|
||||
use WebGUI::Form;
|
||||
use WebGUI::Form::Honeypot;
|
||||
use WebGUI::User::SpecialState;
|
||||
use WebGUI::International;
|
||||
use Tie::IxHash;
|
||||
|
|
@ -88,13 +87,6 @@ sub definition {
|
|||
namespace => 'Subscriber/NoMutationEmail',
|
||||
tab => 'subscription',
|
||||
},
|
||||
confirmMutationTemplateId => {
|
||||
fieldType => 'template',
|
||||
defaultValue => 'WUk-wEhGiF8dcEogrJfrfg',
|
||||
label => $i18n->get( 'confirm mutation template' ),
|
||||
namespace => 'Subscriber/MutationConfirmation',
|
||||
tab => 'subscription',
|
||||
}
|
||||
);
|
||||
|
||||
push( @{ $definition }, {
|
||||
|
|
@ -193,44 +185,6 @@ sub isSubscribed {
|
|||
}
|
||||
|
||||
#----------------------------------------------------------------------------
|
||||
=head2 appendSubscriptionFormVars
|
||||
|
||||
=head3 honeyPot
|
||||
Part of the form vars are the honeyPot variables. This is a form plugin that
|
||||
is used in NewsletterCollection.pm to activate the use of a honeypot or not,
|
||||
in this module, AssetAspect/Subscriber.pm, to check the honeypot and to
|
||||
display the form values and in i18n.
|
||||
|
||||
There are the following form vars:
|
||||
|
||||
=head4 subscriptionForm_emailBox
|
||||
This renders both the emailbox, subscribe/unsubscribe radio buttons and the
|
||||
honeypot form inputs:
|
||||
<input id="email_formId" name="email" value="" size="30" maxlength="255" type="text">
|
||||
<fieldset style="border:none;margin:0;padding:0">
|
||||
<label>
|
||||
<input name="action" value="subscribe" id="action1" type="radio">Inschrijven
|
||||
</label>
|
||||
<label>
|
||||
<input name="action" value="unsubscribe" id="action2" type="radio">Uitschrijven
|
||||
</label>
|
||||
</fieldset>
|
||||
<input name="hp_timestamp" value="1540249684" type="hidden">
|
||||
<input id="d28a72b5e1a47804be42367afaf56b4d_hp" class="honeypot" name="hp_surname" value="" size="30" maxlength="255" type="text">
|
||||
|
||||
You can easily make the honeypot input field invisible with some css for
|
||||
class honeypot.
|
||||
|
||||
=head4 form_honeypot
|
||||
Renders these fields:
|
||||
<input name="hp_timestamp" value="1540249684" type="hidden">
|
||||
<input id="d28a72b5e1a47804be42367afaf56b4d_hp" class="honeypot" name="hp_surname" value="" size="30" maxlength="255" type="text">
|
||||
|
||||
=head4 form_honeypot_id
|
||||
Gives you the id for the honeypot input. This makes it easy to create a label:
|
||||
|
||||
|
||||
=cut
|
||||
sub appendSubscriptionFormVars {
|
||||
my $self = shift;
|
||||
my $var = shift || {};
|
||||
|
|
@ -242,37 +196,12 @@ sub appendSubscriptionFormVars {
|
|||
WebGUI::Form::formHeader( $session, { action => $self->getUrl } )
|
||||
. WebGUI::Form::hidden( $session, { name => 'func', value => 'processSubscription' } )
|
||||
;
|
||||
my $formFooter = WebGUI::Form::formFooter( $session );
|
||||
my $subscribeButton =
|
||||
$formHeader
|
||||
. WebGUI::Form::hidden( $session, { name => 'action', value => 'subscribe' } )
|
||||
. WebGUI::Form::submit( $session, { value => $i18n->get('subscribe') } )
|
||||
. $formFooter
|
||||
;
|
||||
sprintf '<button type="submit" name="action" value="subscribe">%s</button>', $i18n->get('subscribe');
|
||||
my $unsubscribeButton =
|
||||
$formHeader
|
||||
. WebGUI::Form::hidden( $session, { name => 'action', value => 'unsubscribe' } )
|
||||
. WebGUI::Form::submit( $session, { value => $i18n->get('unsubscribe') } )
|
||||
. $formFooter
|
||||
;
|
||||
# honeypot is connected to the emailbox, that is displayed on anonymous subscription
|
||||
# and only if set to useHoneyPot in definition/display
|
||||
my $honeypot = WebGUI::Form::Honeypot->new( $self->session, { name => 'hp' } );
|
||||
my $honeypot_form = $self->get('useHoneypot') ? $honeypot->toHtml : '';
|
||||
my $emailBox =
|
||||
$formHeader
|
||||
. WebGUI::Form::email( $session, { name => 'email', value => '' } )
|
||||
. WebGUI::Form::radioList( $session, {
|
||||
name => 'action',
|
||||
options => {
|
||||
subscribe => $i18n->get('subscribe'),
|
||||
unsubscribe => $i18n->get('unsubscribe'),
|
||||
}
|
||||
} )
|
||||
. $honeypot_form
|
||||
. WebGUI::Form::submit( $session )
|
||||
. $formFooter
|
||||
;
|
||||
sprintf '<button type="submit" name="action" value="unsubscribe">%s</button>', $i18n->get('unsubscribe');
|
||||
my $emailBox = WebGUI::Form::email( $session, { name => 'email', value => '' } );
|
||||
my $formFooter = WebGUI::Form::formFooter( $session );
|
||||
|
||||
# Compose default subscription form for current user
|
||||
my $form = '';
|
||||
|
|
@ -281,21 +210,19 @@ sub appendSubscriptionFormVars {
|
|||
$form .= $unsubscribeButton if $self->canUnsubscribe;
|
||||
}
|
||||
elsif ( $self->get('allowAnonymousSubscription') ) {
|
||||
$form = $emailBox;
|
||||
$form = $emailBox . $subscribeButton . $unsubscribeButton;
|
||||
}
|
||||
|
||||
# Setup tmpl_vars
|
||||
$var->{ subscriptionForm_form } = $form if $form;
|
||||
$var->{ subscriptionForm_form } = "$formHeader $form $formFooter" if $form;
|
||||
$var->{ subscriptionForm_header } = $formHeader;
|
||||
$var->{ subscriptionForm_footer } = $formFooter;
|
||||
$var->{ subscriptionForm_subscribeButton } = $subscribeButton;
|
||||
$var->{ subscriptionForm_unsubscribeButton } = $unsubscribeButton;
|
||||
$var->{ subscriptionForm_emailBox } = $emailBox;
|
||||
$var->{ subscrittionForm_emailBox } = $emailBox;
|
||||
$var->{ user_canSubscribe } = $self->canSubscribe;
|
||||
$var->{ user_canUnsubscribe } = $self->canUnsubscribe;
|
||||
$var->{ user_isRegistered } = $session->user->isRegistered;
|
||||
$var->{ form_honeypot } = $honeypot->toHtml;
|
||||
$var->{ form_honeypot_id } = $honeypot->get('id');
|
||||
|
||||
return $var;
|
||||
}
|
||||
|
|
@ -395,13 +322,7 @@ sub sendSubscriptionConfirmation {
|
|||
my $action = shift || 'subscribe';
|
||||
my $session = $self->session;
|
||||
my $i18n = WebGUI::International->new( $session, 'AssetAspect_Subscriber' );
|
||||
=pod
|
||||
my $honeypot = $session->form->honeypot( 'hp' );
|
||||
if ( $self->get('useHoneypot') && $honeypot ) {
|
||||
$session->log->warn( "Honeypot triggered: $honeypot" );
|
||||
return;
|
||||
}
|
||||
=cut
|
||||
|
||||
my $var = $self->getEmailVars( $user );
|
||||
my $url = $session->url->getSiteURL . $self->getUrl( "func=confirmMutation;code=$code" );
|
||||
|
||||
|
|
@ -440,13 +361,7 @@ sub sendNoMutationEmail {
|
|||
my $action = shift || 'subscribe';
|
||||
my $session = $self->session;
|
||||
my $i18n = WebGUI::International->new( $session, 'AssetAspect_Subscriber' );
|
||||
=pod
|
||||
my $honeypot = $session->form->honeypot( 'hp' );
|
||||
if ( $self->get('useHoneypot') && $honeypot ) {
|
||||
$session->log->warn( "Honeypot triggered: $honeypot" );
|
||||
return;
|
||||
}
|
||||
=cut
|
||||
|
||||
my $var = $self->getEmailVars( $user );
|
||||
$var->{ actionIsSubscribe } = $action eq 'subscribe';
|
||||
|
||||
|
|
@ -612,30 +527,21 @@ sub www_confirmMutation {
|
|||
]
|
||||
);
|
||||
|
||||
my $var = {
|
||||
message => $i18n->get( 'wrong code' ),
|
||||
returnUrl => $self->getUrl,
|
||||
isSuccess => 0,
|
||||
"is$type" => 1,
|
||||
};
|
||||
if ( $userId ) {
|
||||
$self->logConfirmation( $code );
|
||||
|
||||
if ( $type eq 'subscribe' ) {
|
||||
$self->getSubscriptionGroup->addUsers( [ $userId ] );
|
||||
|
||||
$var->{ message } = sprintf $i18n->get( 'subscription successful'), $self->getUrl;
|
||||
$var->{ isSuccess } = 1;
|
||||
return $self->processStyle( sprintf $i18n->get( 'subscription successful'), $self->getUrl );
|
||||
}
|
||||
elsif ( $type eq 'unsubscribe' ) {
|
||||
$self->getSubscriptionGroup->deleteUsers( [ $userId ] );
|
||||
|
||||
$var->{ message } = sprintf $i18n->get( 'unsubscription successful' ), $self->getUrl;
|
||||
$var->{ isSuccess } = 1;
|
||||
return $self->processStyle( sprintf $i18n->get( 'unsubscription successful' ), $self->getUrl );
|
||||
}
|
||||
}
|
||||
|
||||
return $self->processStyle( $self->processTemplate( $var, $self->get('confirmMutationTemplateId') ) );
|
||||
return $self->processStyle( $i18n->get( 'wrong code' ) );
|
||||
|
||||
}
|
||||
|
||||
#----------------------------------------------------------------------------
|
||||
|
|
@ -682,12 +588,6 @@ sub www_processSubscription {
|
|||
my $action = $form->get( 'action' );
|
||||
return unless $action eq 'subscribe' || $action eq 'unsubscribe';
|
||||
|
||||
my $honeypot = $session->form->honeypot( 'hp' );
|
||||
if ( $self->get('useHoneypot') && $honeypot ) {
|
||||
$session->log->warn( "Honeypot triggered: $honeypot" );
|
||||
return;
|
||||
}
|
||||
|
||||
if ( $session->user->isRegistered ) {
|
||||
if ( $action eq 'subscribe' && $self->canSubscribe ) {
|
||||
$self->subscribe;
|
||||
|
|
@ -742,3 +642,4 @@ sub www_unsubscribe {
|
|||
}
|
||||
|
||||
1;
|
||||
|
||||
|
|
|
|||
|
|
@ -421,7 +421,7 @@ sub www_edit {
|
|||
|
||||
return $session->privilege->insufficient unless $self->admin->canManage;
|
||||
|
||||
my $f = $self->getEditForm;
|
||||
my $f = WebGUI::HTMLForm->new( $session );
|
||||
$f->hidden(
|
||||
name => 'newsletter',
|
||||
value => 'mailing',
|
||||
|
|
@ -435,16 +435,6 @@ sub www_edit {
|
|||
value => $self->getId,
|
||||
);
|
||||
|
||||
return $self->renderInConsole( $f->print, $i18n->get('configure mailing') );
|
||||
}
|
||||
|
||||
#----------------------------------------------------------------------------
|
||||
sub getEditForm {
|
||||
my $self = shift;
|
||||
my $session = $self->session;
|
||||
my $i18n = WebGUI::International->new( $session, 'MailingManager' );
|
||||
my $f = WebGUI::HTMLForm->new( $session );
|
||||
|
||||
my %fields = %{ $self->getAsset->getMailingProperties( $self ) };
|
||||
my $configuration = $self->get('configuration') || {};
|
||||
while ( my( $name, $properties ) = each %fields ) {
|
||||
|
|
@ -473,7 +463,7 @@ sub getEditForm {
|
|||
extras => qq{onclick="window.location='$cancelUrl'" class="backwardButton"},
|
||||
);
|
||||
|
||||
return $f;
|
||||
return $self->renderInConsole( $f->print, $i18n->get('configure mailing') );
|
||||
}
|
||||
|
||||
#----------------------------------------------------------------------------
|
||||
|
|
|
|||
|
|
@ -96,7 +96,6 @@ sub www_createMailing {
|
|||
my $self = shift;
|
||||
my $session = $self->session;
|
||||
my $form = $session->form;
|
||||
my $i18n = WebGUI::International->new( $session, 'MailingManager' );
|
||||
|
||||
return $session->privilege->insufficient unless $self->canManage;
|
||||
|
||||
|
|
@ -124,64 +123,7 @@ sub www_createMailing {
|
|||
state => 'idle',
|
||||
} );
|
||||
|
||||
my $f = $mailing->getEditForm;
|
||||
$f->hidden(
|
||||
name => 'newsletter',
|
||||
value => 'manage',
|
||||
);
|
||||
$f->hidden(
|
||||
name => 'func',
|
||||
value => 'createMailingSave',
|
||||
);
|
||||
$f->hidden(
|
||||
name => 'assetId',
|
||||
value => $assetId,
|
||||
);
|
||||
$f->hidden(
|
||||
name => 'issueId',
|
||||
value => $issueId,
|
||||
);
|
||||
|
||||
my $output = $mailing->renderInConsole( $f->print, $i18n->get('configure mailing') );
|
||||
$mailing->delete;
|
||||
|
||||
return $output;
|
||||
}
|
||||
|
||||
#----------------------------------------------------------------------------
|
||||
sub www_createMailingSave {
|
||||
my $self = shift;
|
||||
my $session = $self->session;
|
||||
my $form = $session->form;
|
||||
my $i18n = WebGUI::International->new( $session, 'MailingManager' );
|
||||
|
||||
return $session->privilege->insufficient unless $self->canManage;
|
||||
|
||||
my $assetId = $form->guid( 'assetId' );
|
||||
my $issueId = $form->guid( 'issueId' );
|
||||
|
||||
# Sanity check: does assetId exist?
|
||||
my $asset = WebGUI::Asset->newByDynamicClass( $session, $assetId )
|
||||
|| return "Error: Asset [$assetId] could not be instanciated";
|
||||
|
||||
# Sanity check: is asset mailable?
|
||||
unless ( $asset->isa( 'WebGUI::AssetAspect::Mailable' ) ) {
|
||||
return "Error: Asset [$assetId] is not Mailable";
|
||||
}
|
||||
|
||||
# Sanity check: does issue exist?
|
||||
my $issue = WebGUI::Asset->newByDynamicClass( $session, $issueId )
|
||||
|| return "Error: issue [$issueId] for asset [$assetId] could not be instanciated.";
|
||||
|
||||
# All ok, create mailing.
|
||||
require WebGUI::Mailing;
|
||||
my $mailing = WebGUI::Mailing->create( $session, {
|
||||
assetId => $assetId,
|
||||
issueId => $issueId,
|
||||
state => 'idle',
|
||||
} );
|
||||
|
||||
return $mailing->www_editSave;
|
||||
return $mailing->www_edit;
|
||||
}
|
||||
|
||||
#----------------------------------------------------------------------------
|
||||
|
|
|
|||
|
|
@ -86,77 +86,21 @@ EOSQL
|
|||
|
||||
my $sth = $db->read( $sql, [ $windowSize, $windowSize - 1 ] );
|
||||
|
||||
my $output = '<div class="yui-skin-sam"><div id="tableWrapper"><table id="bounceScoreTable"><thead><tr><th>'
|
||||
my $output = '<table><tr><th>'
|
||||
. join( '</th><th>',
|
||||
$i18n->get('email'),
|
||||
$i18n->get('bounce score'),
|
||||
$i18n->get('bounce reason'),
|
||||
$i18n->get('bounce message')
|
||||
)
|
||||
. '</th></tr></thead><tbody>';
|
||||
. '</th></tr>';
|
||||
while ( my $values = $sth->arrayRef ) {
|
||||
$output .= '<tr><td>'. join( '</td><td>', @$values ) . '</td></tr>';
|
||||
}
|
||||
$output .= '</tbody></table></div></div>';
|
||||
|
||||
$self->addBounceScoreTableJS;
|
||||
$output .= '</table>';
|
||||
|
||||
return WebGUI::Mailing::Admin->new( $session )->getAdminConsole->render( $output, $i18n->get( 'bounce scores' ) );
|
||||
}
|
||||
|
||||
sub addBounceScoreTableJS {
|
||||
my $self = shift;
|
||||
my ($style, $url) = $self->session->quick( qw{ style url } );
|
||||
my $i18n = WebGUI::International->new( $self->session, 'MailingManager' );
|
||||
|
||||
my $emailLabel = $i18n->get('email');
|
||||
my $scoreLabel = $i18n->get('bounce score');
|
||||
my $reasonLabel = $i18n->get('bounce reason');
|
||||
my $messageLabel= $i18n->get('bounce message');
|
||||
|
||||
my $js = <<EOJS;
|
||||
<script type="text/javascript">
|
||||
//<!--
|
||||
YAHOO.util.Event.onDOMReady( function () {
|
||||
var columnDefs = [
|
||||
{ key : "email", label : "$emailLabel", sortable : true },
|
||||
{ key : "bounceScore", label : "$scoreLabel", sortable : true },
|
||||
{ key : "bounceReason", label : "$reasonLabel", sortable : true },
|
||||
{ key : "bounceMessage", label : "$messageLabel", sortable : true }
|
||||
];
|
||||
|
||||
var ds = new YAHOO.util.DataSource( YAHOO.util.Dom.get('bounceScoreTable') );
|
||||
ds.responseType = YAHOO.util.DataSource.TYPE_HTMLTABLE;
|
||||
ds.responseSchema = {
|
||||
fields: [
|
||||
{ key : 'email' },
|
||||
{ key : 'bounceScore', parser : 'number' },
|
||||
{ key : 'bounceReason' },
|
||||
{ key : 'bounceMessage' }
|
||||
]
|
||||
};
|
||||
|
||||
var dt = new YAHOO.widget.DataTable( 'tableWrapper', columnDefs, ds, {
|
||||
sortedBy : {
|
||||
key : 'bounceScore',
|
||||
dir : 'desc'
|
||||
}
|
||||
} );
|
||||
} );
|
||||
//-->
|
||||
</script>
|
||||
EOJS
|
||||
|
||||
$style->setLink( $url->extras('yui/build/datatable/assets/skins/sam/datatable.css'), { type => 'text/css', rel => 'stylesheet' } );
|
||||
$style->setScript( $url->extras('yui/build/yahoo-dom-event/yahoo-dom-event.js'), { type => 'text/javascript' } );
|
||||
$style->setScript( $url->extras('yui/build/element/element-min.js'), { type => 'text/javascript' } );
|
||||
$style->setScript( $url->extras('yui/build/datasource/datasource-min.js'), { type => 'text/javascript' } );
|
||||
$style->setScript( $url->extras('yui/build/datatable/datatable-min.js'), { type => 'text/javascript' } );
|
||||
$style->setRawHeadTags( $js );
|
||||
|
||||
return;
|
||||
}
|
||||
|
||||
|
||||
1;
|
||||
|
||||
|
|
|
|||
|
|
@ -130,7 +130,8 @@ sub absolutifyURIs {
|
|||
|
||||
foreach my $link ( @{ $root->extract_links } ) {
|
||||
my ($uri, $element, $attr, $tag) = @{ $link };
|
||||
if ( $uri !~ m{ ^ (?: [a-z]+:// | \# | mailto: ) }xmsi ) {
|
||||
|
||||
if ( $uri !~ m{ ^ [a-z]+:// }xmsi ) {
|
||||
my $new =
|
||||
( $uri =~ m{ ^ / }xmsi ) # Is url absolute?
|
||||
? $siteUrl . $uri
|
||||
|
|
|
|||
|
|
@ -15,15 +15,12 @@ sub getAvailableMailings {
|
|||
my $self = shift;
|
||||
my $session = $self->session;
|
||||
|
||||
my $mailingIds = $self->get( 'includeMailings' );
|
||||
my $availableMailings = WebGUI::Asset->getRoot( $session )->getLineage( ['descendants'], {
|
||||
returnObjects => 1,
|
||||
isa => 'WebGUI::Asset::Wobject::NewsletterCollection',
|
||||
} );
|
||||
|
||||
my @mailings =
|
||||
grep { defined $_ }
|
||||
map { WebGUI::Asset->newByDynamicClass( $session, $_ ) }
|
||||
ref $mailingIds eq 'ARRAY' ? @{ $mailingIds } : $mailingIds
|
||||
;
|
||||
|
||||
return \@mailings;
|
||||
return $availableMailings;
|
||||
}
|
||||
|
||||
#-------------------------------------------------------------------
|
||||
|
|
@ -52,32 +49,22 @@ sub apply {
|
|||
return;
|
||||
}
|
||||
|
||||
#-------------------------------------------------------------------
|
||||
sub crud_definition {
|
||||
my $class = shift;
|
||||
my $session = shift;
|
||||
my $definition = $class->SUPER::crud_definition( $session );
|
||||
my $i18n = WebGUI::International->new( $session, 'RegistrationStep_MailingSubscribe' );
|
||||
|
||||
tie my %mailings, 'Tie::IxHash', (
|
||||
map { $_->getId => $_->getTitle }
|
||||
@{
|
||||
WebGUI::Asset->getRoot( $session )->getLineage( ['descendants'], {
|
||||
returnObjects => 1,
|
||||
isa => 'WebGUI::Asset::Wobject::NewsletterCollection',
|
||||
} )
|
||||
}
|
||||
);
|
||||
|
||||
$definition->{ dynamic }->{ includeMailings } = {
|
||||
fieldType => 'checkList',
|
||||
label => $i18n->get('Include newsletters'),
|
||||
options => \%mailings,
|
||||
vertical => 1,
|
||||
};
|
||||
|
||||
return $definition;
|
||||
}
|
||||
##-------------------------------------------------------------------
|
||||
#sub crud_definition {
|
||||
# my $class = shift;
|
||||
# my $session = shift;
|
||||
# my $definition = $class->SUPER::crud_definition( $session );
|
||||
# my $i18n = WebGUI::International->new( $session, 'Registration_Step_Homepage' );
|
||||
#
|
||||
#
|
||||
# $definition->{ dynamic }->{ urlStorageField } = {
|
||||
# fieldType => 'selectBox',
|
||||
# label => 'Store homepage url in field',
|
||||
# options => \%profileFields,
|
||||
# };
|
||||
#
|
||||
# return $definition;
|
||||
#}
|
||||
|
||||
#-------------------------------------------------------------------
|
||||
sub getSummaryTemplateVars {
|
||||
|
|
@ -132,7 +119,7 @@ sub getViewVars {
|
|||
}
|
||||
else {
|
||||
# The step hasn't been done yet.
|
||||
@subscribeMailings = map { $_->getId } grep { $_->isSubscribed( $user ) } @{ $availableMailings };
|
||||
@subscribeMailings = grep { $_->isSubscribed( $user ) } @{ $availableMailings };
|
||||
}
|
||||
|
||||
# Create lookup table
|
||||
|
|
@ -184,7 +171,10 @@ sub updateFromFormPost {
|
|||
my $self = shift;
|
||||
my $session = $self->session;
|
||||
|
||||
return $self->SUPER::updateFromFormPost;
|
||||
$self->SUPER::updateFromFormPost;
|
||||
|
||||
# $self->update( {
|
||||
# } );
|
||||
}
|
||||
|
||||
#-------------------------------------------------------------------
|
||||
|
|
|
|||
|
|
@ -54,17 +54,14 @@ our $I18N = {
|
|||
},
|
||||
|
||||
'subscription successful' => {
|
||||
message => 'Uw inschrijving is geslaagd.',
|
||||
message => 'Uw inschrijving is geslaagd. <a href="%s">Terug naar de site</a>',
|
||||
},
|
||||
'unsubscription successful' => {
|
||||
message => 'Uw uitschrijving is geslaagd.',
|
||||
message => 'Uw uitschrijving is geslaagd. <a href="%s">Terug naar de site</a>',
|
||||
},
|
||||
'wrong code' => {
|
||||
message => 'De verificatiecode in de link is onbekend, al gebruikt of verlopen. Als u zich wilt in- of uitschrijven probeer dit dan opnieuw of neem contact op met de websitebeheerders.',
|
||||
},
|
||||
'confirm mutation template' => {
|
||||
message => 'Mutatie bevestigings template',
|
||||
},
|
||||
};
|
||||
|
||||
1;
|
||||
|
|
|
|||
|
|
@ -6,26 +6,14 @@ our $I18N = {
|
|||
assetName => {
|
||||
message => 'Nieuwsbrief collectie',
|
||||
},
|
||||
'subscribe' => {
|
||||
message => 'inschrijven',
|
||||
},
|
||||
'unsubscribe' => {
|
||||
message => 'uitschrijven',
|
||||
},
|
||||
'template' => {
|
||||
message => 'Sjabloon',
|
||||
},
|
||||
'number of recent issues' => {
|
||||
message => 'Aantal recente nieuwsbrieven',
|
||||
},
|
||||
'useHoneypot label' => {
|
||||
message => q|Gebruik honeypot|,
|
||||
lastUpdated => 0,
|
||||
},
|
||||
'useHoneypot description' => {
|
||||
message => q|Gebruik honeypot om spam te voorkomen.|,
|
||||
lastUpdated => 0,
|
||||
message => 'Aantal recente uitgaven',
|
||||
},
|
||||
|
||||
};
|
||||
|
||||
1;
|
||||
|
||||
|
|
|
|||
|
|
@ -4,13 +4,10 @@ use strict;
|
|||
|
||||
our $I18N = {
|
||||
'Subscribe to mailings' => {
|
||||
message => 'Ontvang deze nieuwsbrief',
|
||||
message => 'Abonneren op nieuwsbrieven',
|
||||
},
|
||||
'Subscribe to this mailing' => {
|
||||
message => 'Ontvang deze nieuwsbrief',
|
||||
},
|
||||
'Include newsletters' => {
|
||||
message => 'Selecteerbare nieuwsbrieven',
|
||||
message => 'Abonneer op deze nieuwsbrief',
|
||||
},
|
||||
};
|
||||
|
||||
|
|
|
|||
|
|
@ -34,6 +34,7 @@ our $I18N = {
|
|||
message => 'Subscription',
|
||||
},
|
||||
|
||||
|
||||
'subscribe' => {
|
||||
message => 'Subscribe',
|
||||
},
|
||||
|
|
@ -53,18 +54,15 @@ our $I18N = {
|
|||
},
|
||||
|
||||
'subscription successful' => {
|
||||
message => 'You are succesfully subscribed.',
|
||||
message => 'You are succesfully subscribed. <a href="%s">Back to site</a>',
|
||||
},
|
||||
'unsubscription successful' => {
|
||||
message => 'You are succesfully unsubscribed.',
|
||||
message => 'You are succesfully unsubscribed. <a href="%s">Back to site</a>',
|
||||
},
|
||||
'wrong code' => {
|
||||
message => 'The verification code you supplied is either unknown, already used or expired. Please try again to (un)subscribe or contact the site administrators.',
|
||||
},
|
||||
|
||||
'confirm mutation template' => {
|
||||
message => 'Mutation confirmation template',
|
||||
},
|
||||
};
|
||||
|
||||
1;
|
||||
|
|
|
|||
|
|
@ -18,14 +18,7 @@ our $I18N = {
|
|||
'number of recent issues' => {
|
||||
message => 'Number of recent issues',
|
||||
},
|
||||
'useHoneypot label' => {
|
||||
message => q|Use honeypot|,
|
||||
lastUpdated => 0,
|
||||
},
|
||||
'useHoneypot description' => {
|
||||
message => q|Use honeypot to verify humanity.|,
|
||||
lastUpdated => 0,
|
||||
},
|
||||
|
||||
};
|
||||
|
||||
1;
|
||||
|
|
|
|||
|
|
@ -9,9 +9,6 @@ our $I18N = {
|
|||
'Subscribe to this mailing' => {
|
||||
message => 'Subscribe to this mailing',
|
||||
},
|
||||
'Include newsletters' => {
|
||||
message => 'Include newsletters',
|
||||
},
|
||||
};
|
||||
|
||||
1;
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
#!/usr/bin/env perl
|
||||
|
||||
$|++; # disable output buffering
|
||||
our ($webguiRoot, $configFile, $state, $emailFile, $groupId, $existingUsersGroupId );
|
||||
our ($webguiRoot, $configFile, $state, $emailFile, $groupId );
|
||||
|
||||
BEGIN {
|
||||
$webguiRoot = "..";
|
||||
|
|
@ -15,14 +15,10 @@ use WebGUI::Session;
|
|||
use WebGUI::User;
|
||||
use WebGUI::User::SpecialState;
|
||||
|
||||
# Set default value
|
||||
$existingUsersGroupId = '';
|
||||
|
||||
# Get parameters here, including $help
|
||||
GetOptions(
|
||||
'configFile=s' => \$configFile,
|
||||
'groupId=s' => \$groupId,
|
||||
'existingUsersGroupId=s' => \$existingUsersGroupId,
|
||||
'state=s' => \$state,
|
||||
'emailFile=s' => \$emailFile,
|
||||
);
|
||||
|
|
@ -44,24 +40,18 @@ while ( my $email = <$fh> ) {
|
|||
my $user = WebGUI::User->newByEmail( $session, $email );
|
||||
if ( $user ) {
|
||||
print "\tEmail already has account. Skipping.\n";
|
||||
if ( $existingUsersGroupId ) {
|
||||
print "\tAdding user to group $existingUsersGroupId\n";
|
||||
$user->addToGroups( [ $existingUsersGroupId ] );
|
||||
}
|
||||
else {
|
||||
print "\tAdding user to group $groupId\n";
|
||||
$user->addToGroups( [ $groupId ] );
|
||||
}
|
||||
}
|
||||
else {
|
||||
print "\tEmail has no account, creating special state $state.\n";
|
||||
$user = WebGUI::User::SpecialState->create( $session );
|
||||
$user->update( { email => $email } );
|
||||
$user->addSpecialState( $state );
|
||||
print "\tAdding user to group $groupId\n";
|
||||
$user->addToGroups( [ $groupId ] );
|
||||
}
|
||||
|
||||
print "\tAdding user to group $groupId\n";
|
||||
|
||||
$user->addToGroups( [ $groupId ] );
|
||||
|
||||
}
|
||||
print "Done\n\n";
|
||||
|
||||
|
|
@ -130,22 +120,6 @@ The WebGUI config file to use. Only the file name needs to be specified,
|
|||
since it will be looked up inside WebGUI's configuration directory.
|
||||
This parameter is required.
|
||||
|
||||
=item B<--groupId>
|
||||
|
||||
Add users to this group. If no existingUsersGroupId is given, all users, both new and existing users, are added to this group. If the --existingUsersGroupId is given, new users are added to this group, existing users are added to the existingUsersGroupId.
|
||||
|
||||
=item B<--existingUsersGroupId>
|
||||
|
||||
Add existing users to this group.
|
||||
|
||||
=item B<--state>
|
||||
|
||||
Set the so called specialState for this user. For all users disabeled accounts are created. SpecialState accounts can be transformed into regular accounts using the webgui_registration content handler. The special states are crm or Subscriber, for a user added via the crm or a newsletter subscription respectively.
|
||||
|
||||
=item B<--emailFile>
|
||||
|
||||
A text file with an emailadress on every line.
|
||||
|
||||
=item B<--help>
|
||||
|
||||
Shows a short summary and usage
|
||||
|
|
@ -158,7 +132,7 @@ Shows this document
|
|||
|
||||
=head1 AUTHOR
|
||||
|
||||
Copyright 2010-2011 United Knowledge B.V.
|
||||
Copyright 2001-2009 Plain Black Corporation.
|
||||
|
||||
=cut
|
||||
|
||||
|
|
|
|||
|
|
@ -34,77 +34,9 @@ renamespaceTemplates( $session );
|
|||
addSpecialStateTable( $session );
|
||||
addListNameColumn( $session );
|
||||
addRegistrationSteps( $session );
|
||||
addConfirmationTemplateColumn( $session );
|
||||
addSentToIndex( $session );
|
||||
addUseHoneypotColumn( $session );
|
||||
addDefaultsToNotNullColumns( $session );
|
||||
|
||||
finish($session);
|
||||
#-------------------------------------------------------------------------------
|
||||
sub addDefaultsToNotNullColumns {
|
||||
my $session = shift;
|
||||
my $db = $session->db;
|
||||
|
||||
print "\tAdding defaults to not null columns...";
|
||||
|
||||
$db->write('ALTER TABLE `assetAspectMailable` ALTER COLUMN `assetId` SET DEFAULT "";');
|
||||
$db->write('ALTER TABLE `assetAspectMailable` ALTER COLUMN `revisionDate` SET DEFAULT 0;');
|
||||
$db->write('ALTER TABLE `assetAspectMailable` ALTER COLUMN `mailStyleTemplateId` SET DEFAULT "";');
|
||||
|
||||
$db->write('ALTER TABLE `assetAspectSubscriber` ALTER COLUMN `assetId` SET DEFAULT "";');
|
||||
$db->write('ALTER TABLE `assetAspectSubscriber` ALTER COLUMN `revisionDate` SET DEFAULT 0;');
|
||||
$db->write('ALTER TABLE `assetAspectSubscriber` ALTER COLUMN `subscriptionEnabled` SET DEFAULT 0;');
|
||||
$db->write('ALTER TABLE `assetAspectSubscriber` ALTER COLUMN `revisionDate` SET DEFAULT 0;');
|
||||
$db->write('ALTER TABLE `assetAspectSubscriber` ALTER COLUMN `revisionDate` SET DEFAULT 0;');
|
||||
|
||||
$db->write('ALTER TABLE `assetAspectSubscriber_log` ALTER COLUMN `assetId` SET DEFAULT "";');
|
||||
$db->write('ALTER TABLE `assetAspectSubscriber_log` ALTER COLUMN `requestIp` SET DEFAULT "";');
|
||||
$db->write('ALTER TABLE `assetAspectSubscriber_log` ALTER COLUMN `userId` SET DEFAULT "";');
|
||||
$db->write('ALTER TABLE `assetAspectSubscriber_log` ALTER COLUMN `email` SET DEFAULT "";');
|
||||
$db->write('ALTER TABLE `assetAspectSubscriber_log` ALTER COLUMN `type` SET DEFAULT "";');
|
||||
$db->write('ALTER TABLE `assetAspectSubscriber_log` ALTER COLUMN `anonymous` SET DEFAULT 0;');
|
||||
|
||||
$db->write('ALTER TABLE `Mailing` ALTER COLUMN `mailingId` SET DEFAULT "";');
|
||||
$db->write('ALTER TABLE `Mailing` ALTER COLUMN `configuration` SET DEFAULT "";');
|
||||
$db->write('ALTER TABLE `Mailing` ALTER COLUMN `assetId` SET DEFAULT "";');
|
||||
$db->write('ALTER TABLE `Mailing` ALTER COLUMN `sendDate` SET DEFAULT 0;');
|
||||
$db->write('ALTER TABLE `Mailing` ALTER COLUMN `issueId` SET DEFAULT "";');
|
||||
|
||||
$db->write('ALTER TABLE `Mailing_email` ALTER COLUMN `mailId` SET DEFAULT "";');
|
||||
|
||||
print "Done.\n";
|
||||
}
|
||||
|
||||
|
||||
#-------------------------------------------------------------------------------
|
||||
sub addConfirmationTemplateColumn {
|
||||
my $session = shift;
|
||||
my $db = $session->db;
|
||||
|
||||
print "\tAdding column for mutation confirmation template...";
|
||||
|
||||
my $hasColumn = $db->quickScalar( 'show columns from assetAspectSubscriber where Field = ?', [
|
||||
'confirmMutationTemplateId',
|
||||
] );
|
||||
|
||||
unless ( $hasColumn ) {
|
||||
$db->write(
|
||||
'alter table assetAspectSubscriber add column confirmMutationTemplateId char(22) binary not null default ?',
|
||||
[
|
||||
'WUk-wEhGiF8dcEogrJfrfg',
|
||||
]
|
||||
);
|
||||
|
||||
$db->write(
|
||||
'update assetAspectSubscriber set confirmMutationTemplateId=? where confirmMutationTemplateId is null',
|
||||
[
|
||||
'WUk-wEhGiF8dcEogrJfrfg',
|
||||
]
|
||||
);
|
||||
}
|
||||
|
||||
print "Done.\n";
|
||||
}
|
||||
|
||||
#----------------------------------------------------------------------------
|
||||
sub addSentToIndex {
|
||||
|
|
@ -144,9 +76,9 @@ sub installMailableAspectTable {
|
|||
|
||||
$session->db->write(<<EOSQL);
|
||||
create table if not exists assetAspectMailable (
|
||||
assetId char(22) binary not null default '',
|
||||
revisionDate bigint(20) not null default 0,
|
||||
mailStyleTemplateId char(22) binary not null default '',
|
||||
assetId char(22) binary not null,
|
||||
revisionDate bigint(20) not null,
|
||||
mailStyleTemplateId char(22) binary not null,
|
||||
primary key( assetId, revisionDate )
|
||||
);
|
||||
EOSQL
|
||||
|
|
@ -161,8 +93,8 @@ sub installSubscriberAspectTable {
|
|||
|
||||
$session->db->write(<<EOSQL);
|
||||
create table if not exists assetAspectSubscriber (
|
||||
assetId char(22) binary not null default '',
|
||||
revisionDate bigint(20) not null default 0,
|
||||
assetId char(22) binary not null,
|
||||
revisionDate bigint(20) not null,
|
||||
subscriptionGroupId char(22) binary,
|
||||
subscriptionEnabled tinyint(1) not null default 0,
|
||||
alwaysConfirmSubscription tinyint(1) not null default 0,
|
||||
|
|
@ -178,16 +110,16 @@ EOSQL
|
|||
|
||||
$session->db->write(<<EOSQL2);
|
||||
create table if not exists assetAspectSubscriber_log (
|
||||
assetId char(22) binary not null default '',
|
||||
requestIp char(15) not null default '',
|
||||
requestDate bigint(20) not null default 0,
|
||||
assetId char(22) binary not null,
|
||||
requestIp char(15) not null,
|
||||
requestDate bigint(20) not null,
|
||||
confirmationIp char(15),
|
||||
confirmationDate bigint(20),
|
||||
userId char(22) binary not null default '',
|
||||
email varchar(255) not null default '',
|
||||
type char(30) not null default '',
|
||||
anonymous tinyint(1) not null default 0,
|
||||
confirmed tinyint(1) not null default 0,
|
||||
userId char(22) binary not null,
|
||||
email varchar(255) not null,
|
||||
type char(30) not null,
|
||||
anonymous tinyint(1) not null,
|
||||
confirmed tinyint(1) default 0,
|
||||
code char(22) default null
|
||||
);
|
||||
EOSQL2
|
||||
|
|
@ -202,9 +134,8 @@ sub installNewsletterCollection {
|
|||
|
||||
$session->db->write(<<EOSQL);
|
||||
create table if not exists NewsletterCollection (
|
||||
assetId char(22) binary not null default '',
|
||||
revisionDate bigint(20) not null default 0,
|
||||
useHoneypot tinyint(1) not null default 0,
|
||||
assetId char(22) binary not null,
|
||||
revisionDate bigint(20) not null,
|
||||
primary key( assetId, revisionDate )
|
||||
);
|
||||
EOSQL
|
||||
|
|
@ -367,8 +298,8 @@ sub addSpecialStateTable {
|
|||
|
||||
$session->db->write( <<EOSQL );
|
||||
create table if not exists users_specialState (
|
||||
userId char(22) binary not null default '',
|
||||
specialState char(30) not null default '',
|
||||
userId char(22) binary not null,
|
||||
specialState char(30) not null,
|
||||
primary key ( userId, specialState )
|
||||
)
|
||||
EOSQL
|
||||
|
|
@ -390,27 +321,7 @@ sub addRegistrationSteps {
|
|||
print "Done.\n";
|
||||
|
||||
}
|
||||
#----------------------------------------------------------------------------
|
||||
sub addUseHoneypotColumn {
|
||||
my $session = shift;
|
||||
|
||||
my $db = $session->db;
|
||||
|
||||
print "\tAdding useHoneypot column...";
|
||||
|
||||
my @columns = $db->buildArray( 'show columns from NewsletterCollection' );
|
||||
|
||||
if ( ! grep { $_ eq 'useHoneypot' } @columns ) {
|
||||
$db->write( 'alter table NewsletterCollection add column useHoneypot tinyint(1) default 0' );
|
||||
$db->write( 'update NewsletterCollection set useHoneypot = 0 where useHoneypot is null' );
|
||||
|
||||
print "Done\n";
|
||||
|
||||
}
|
||||
else {
|
||||
print "Skipping\n";
|
||||
}
|
||||
}
|
||||
#----------------------------------------------------------------------------
|
||||
sub start {
|
||||
my $webguiRoot = shift;
|
||||
|
|
|
|||
|
|
@ -1,10 +1,9 @@
|
|||
#!/usr/bin/perl
|
||||
#!/data/wre/prereqs/bin/perl
|
||||
|
||||
BEGIN {
|
||||
unshift @INC, qw(
|
||||
/data/custom/webgui_newsletter/lib
|
||||
/data/WebGUI/lib
|
||||
/data/custom/customlib_honeypot/lib
|
||||
);
|
||||
}
|
||||
|
||||
|
|
@ -100,3 +99,4 @@ sub closeSession {
|
|||
|
||||
$session->close;
|
||||
}
|
||||
|
||||
|
|
|
|||
BIN
sbin/packages/root_import_personalnewsletter.wgpkg
Normal file
BIN
sbin/packages/root_import_personalnewsletter.wgpkg
Normal file
Binary file not shown.
Binary file not shown.
Loading…
Add table
Add a link
Reference in a new issue