First of all, answering to on older thread:
http://www.mail-archive.com/nfsen-discuss@lists.sourceforge.net/msg02503.html
I had the same problem and solved it by:
--- cut ---
--- plugins/nfsen-events-mail/backend/Events_mail.pm 2008-09-04
17:18:23.000000000 +0200
+++ plugins/Events_mail.pm 2013-02-28 17:59:07.000000000 +0100
@@ -73,7 +74,7 @@
my $query = $mail->{query};
my @pairs = Events::key_value_pairs($query);
our $unix_time=NfSen::ISO2UNIX($opts->{timeslot});
- my $events = get_events($query);
+ my $events = Events::get_events($query);
foreach my $event (@$events) {
my $compartiment = new Safe;
@@ -96,20 +97,23 @@
$compartiment->share(qw($unix_time &lookup_address
&to_ISO8601));
my $action = $mail->{'action'};
- my @pairs = key_value_pairs($action);
+ my @pairs = Events::key_value_pairs($action);
my %updated_action;
while (scalar(@pairs)>1) {
my $key = shift(@pairs);
my $value = shift(@pairs);
$value=~s/\#([^\#]*)\#/$compartiment->reval($1)/eg;
- add_value(\%updated_action,$key,$value);
+ Events::add_value(\%updated_action,$key,$value);
}
- update_events(\%updated_action);
+ Events::update_events(\%updated_action);
}
return $ret;
}
@@ -135,7 +139,7 @@
my ($event) = @_;
my @mail_body = ();
- my @pairs = key_value_pairs($event);
+ my @pairs = Events::key_value_pairs($event);
while (scalar(@pairs)>1) {
my $key = shift(@pairs);
my $value = shift(@pairs);
--- cut ---
best regards,
Michael
------------------------------------------------------------------------------
Everyone hates slow websites. So do we.
Make your web apps faster with AppDynamics
Download AppDynamics Lite for free today:
http://p.sf.net/sfu/appdyn_d2d_feb
_______________________________________________
Nfsen-discuss mailing list
Nfsen-discuss@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/nfsen-discuss
