ezmlm-web
/
ezmlm-web
3
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

improved parsing of subscription log files

This commit is contained in:
lars 2007-09-21 01:39:26 +00:00
parent 69f270bd54
commit 7e208f7c1a
4 changed files with 23 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
TODO
View File

@ -1,7 +1,3 @@
add translators to "contribute"
check the content of the Log file for automatic subscription
Infos fuer Massen-Hosting:
http://www.fbis.ch/index-de.php?page=14&frameset=4
@ -9,3 +5,8 @@ add "only for plain text mails" to the TrailerText string
check version history of Mail::Ezmlm
main page title should be a link to the domain/list selection
-> text configurable?
listname (incl. domain name) below the main title?

25
ezmlm-web.cgi
View File

@ -1304,7 +1304,8 @@ sub set_pagedata_subscription_log {
my ($listname) = @_;
my ($log_file, @event, $i, $datetext, $epoch_seconds, $note, $address);
my ($log_file, $i, $line);
my ($datetext, $epoch_seconds, $action, $action_details, $address);
$log_file = "$LIST_DIR/" . $q->param('list') . "/Log";
# break if there is no log_file
@ -1319,18 +1320,22 @@ sub set_pagedata_subscription_log {
$i = 0;
while (<LOG_FILE>) {
chomp;
@event = split;
if ($#event eq 2) {
$epoch_seconds = $event[0];
$line = $_;
# a line of the log file could look like the following:
# 748392136 +manual foo@bar.org Foo Bar <foo@bar.org>
$line =~ m/^(\d+) ([+-])(\w*) ([^ ]*) ?(.*)$/;
if (defined($5)) {
$epoch_seconds = $1;
$action = $2;
$action_details = $3;
$address = $5 ? $5 : $4;
$datetext = localtime($epoch_seconds);
$note = $event[1];
$address = $event[2];
# the date in gmt format - this should be sufficient
$pagedata->setValue("Data.List.SubscribeLog.$i.date", $datetext);
# the first letter of 'note' should be +/-
$pagedata->setValue("Data.List.SubscribeLog.$i.action", substr($note,0,1));
# manual/auto/mod - TODO: verify "auto"
$pagedata->setValue("Data.List.SubscribeLog.$i.details", substr($note,1));
# the the action should be +/-
$pagedata->setValue("Data.List.SubscribeLog.$i.action", $action);
# manual/auto/mod/probe - TODO: verify "auto"
$pagedata->setValue("Data.List.SubscribeLog.$i.details", $action_details);
$pagedata->setValue("Data.List.SubscribeLog.$i.address", $address);
$i++;
}

1
lang/en.hdf
View File

@ -290,6 +290,7 @@ Lang {
add = added
mod = moderated
manual = manual
probe = delivery failed
auto = automatical
unknown = unknown
}

2
template/show_subscription_log.cs
View File

@ -27,6 +27,8 @@
var:html_escape(Lang.Misc.SubscribeActions.manual) ?><?cs
elif:Data.List.SubscribeLog[x].details == 'mod' ?><?cs
var:html_escape(Lang.Misc.SubscribeActions.mod) ?><?cs
elif:Data.List.SubscribeLog[x].details == 'probe' ?><?cs
var:html_escape(Lang.Misc.SubscribeActions.probe) ?><?cs
elif:Data.List.SubscribeLog[x].details == '' ?><?cs
var:html_escape(Lang.Misc.SubscribeActions.auto) ?><?cs
else ?><?cs var:html_escape(Lang.Misc.SubscribeActions.unknown)