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

Unslow bounce report generation and add some extra info as a bonus!

Browse source
This commit is contained in:
Martin Kamerbeek 2010-11-12 18:02:50 +01:00
parent 0843bec5e0
commit d325e7a301
4 changed files with 68 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

12
sbin/install_newsletter.pl
View file

@ -35,6 +35,7 @@ addSpecialStateTable( $session );
addListNameColumn( $session );
addRegistrationSteps( $session );
addConfirmationTemplateColumn( $session );
addSentToIndex( $session );
finish($session);
@ -63,6 +64,17 @@ sub addConfirmationTemplateColumn {
'WUk-wEhGiF8dcEogrJfrfg',
]
);
sub addSentToIndex {
my $session = shift;
my $db = $session->db;
print "\tAdding index to column Mailing_email.sentTo...";
my @indexes = $db->buildArray('show indexes from Mailing_email where Column_name=?',['sentTo']);
if ( @indexes == 0 ) {
$db->write('alter table Mailing_email add index(sentTo)');
}
print "Done.\n";