remove cache
* remove cache, cache setup is not easy, todays servers do not really * need it anymore * add prototypes and fix parameter issues * suppress redefinition
This commit is contained in:
@@ -1,10 +1,10 @@
|
||||
#! /usr/bin/perl -w
|
||||
#!/usr/bin/perl
|
||||
|
||||
use warnings "all";
|
||||
use strict;
|
||||
use URI::Escape();
|
||||
use warnings;
|
||||
no warnings 'redefine';
|
||||
|
||||
#use Encode();
|
||||
use URI::Escape();
|
||||
use Data::Dumper;
|
||||
use MIME::Lite();
|
||||
|
||||
@@ -216,7 +216,8 @@ sub getMail {
|
||||
|
||||
$mail->{Data} .= "nur zur Erinnerung...\n\n";
|
||||
$mail->{Data} .= "am $event->{weekday_name} ist die naechste '$event->{series_name}'-Sendung.\n\n";
|
||||
$mail->{Data} .= "$event->{source_base_url}$event->{cache_base_url}/$config->{controllers}->{event}/$event->{event_id}.html\n\n";
|
||||
$mail->{Data} .=
|
||||
"$event->{source_base_url}$event->{cache_base_url}/$config->{controllers}->{event}/$event->{event_id}.html\n\n";
|
||||
$mail->{Data} .= "Gruss, $request->{user}\n";
|
||||
return $mail;
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user