summaryrefslogtreecommitdiff
path: root/lib/XXV/MODULES/REPORT.pm
diff options
context:
space:
mode:
authorAndreas Brachold <vdr07@deltab.de>2007-09-15 12:44:26 +0000
committerAndreas Brachold <vdr07@deltab.de>2007-09-15 12:44:26 +0000
commitd37dd0897cb0968eea008e9700ded68d15a7fd93 (patch)
tree3fe2e0212710ffe453d838aa9237c385cc0d7e0e /lib/XXV/MODULES/REPORT.pm
parentb3afe1bf2625101e8db9400d15f272c2e454b1b5 (diff)
downloadxxv-d37dd0897cb0968eea008e9700ded68d15a7fd93.tar.gz
xxv-d37dd0897cb0968eea008e9700ded68d15a7fd93.tar.bz2
* RECORDS: generation of previews if recording name contain some special character
CHANNELS: Store full frequency Fix some typo
Diffstat (limited to 'lib/XXV/MODULES/REPORT.pm')
-rw-r--r--lib/XXV/MODULES/REPORT.pm12
1 files changed, 6 insertions, 6 deletions
diff --git a/lib/XXV/MODULES/REPORT.pm b/lib/XXV/MODULES/REPORT.pm
index 55e57fa..232693e 100644
--- a/lib/XXV/MODULES/REPORT.pm
+++ b/lib/XXV/MODULES/REPORT.pm
@@ -85,7 +85,7 @@ sub new {
# Try to use the Requirments
map {
eval "use $_";
- return panic("\nCan not load Module: $_\nPlease install this module on your System:\nperl -MCPAN -e 'install $_'") if($@);
+ return panic("\nCouldn't load modul: $_\nPlease install this modul on your system:\nperl -MCPAN -e 'install $_'") if($@);
} keys %{$self->{MOD}->{Prereq}};
$self->{LastReportTime} = time;
@@ -101,7 +101,7 @@ sub new {
);
# The Initprocess
- my $erg = $self->init or return error('Problem to initialize module');
+ my $erg = $self->init or return error('Problem to initialize modul!');
# Initiat after load modules ...
main::after(sub{
@@ -193,7 +193,7 @@ sub report {
sub news {
# ------------------
my $obj = shift || return error('No object defined!');
- my $title = shift || return error ('No title!' );
+ my $title = shift || return error('No title defined!');
my $text = shift || '';
my $cmd = shift || '';
my $id = shift || '';
@@ -201,7 +201,7 @@ sub news {
# convert Levelname to integer
my $lev = $obj->scala($levname)
- || return error('Problem to analyze Level!');
+ || return error('Problem to analyze level!');
my $url = sprintf("http://%s:%s/", $obj->{host}, main::getModule('HTTPD')->{Port});
$url = sprintf("%s?cmd=%s&data=%s", $url, $cmd, $id)
@@ -238,8 +238,8 @@ sub news {
sub request {
# ------------------
my $obj = shift || return error('No object defined!');
- my $watcher = shift || return error ('No Watcher!' );
- my $console = shift || return error ('No Console!' );
+ my $watcher = shift || return error('No watcher defined!');
+ my $console = shift || return error('No console defined!');
# To this time you can set on
# cmd=request&data=rss&ver=2 or
# cmd=request&data=mail