diff options
| author | Andreas Brachold <vdr07@deltab.de> | 2007-09-15 12:44:26 +0000 |
|---|---|---|
| committer | Andreas Brachold <vdr07@deltab.de> | 2007-09-15 12:44:26 +0000 |
| commit | d37dd0897cb0968eea008e9700ded68d15a7fd93 (patch) | |
| tree | 3fe2e0212710ffe453d838aa9237c385cc0d7e0e /lib/XXV/MODULES/REPORT.pm | |
| parent | b3afe1bf2625101e8db9400d15f272c2e454b1b5 (diff) | |
| download | xxv-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.pm | 12 |
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 |
