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 63b0a9edf1
commit dbf935e98b
4 changed files with 72 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

16
sbin/install_newsletter.pl
View file

@ -34,9 +34,25 @@ renamespaceTemplates( $session );
addSpecialStateTable( $session );
addListNameColumn( $session );
addRegistrationSteps( $session );
addSentToIndex( $session );
finish($session);
#----------------------------------------------------------------------------
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";
}
#----------------------------------------------------------------------------
sub addListNameColumn {