* RECORDS: generation of previews if recording name contain some special character

CHANNELS: Store full frequency
Fix some typo

1 files changed, 7 insertions, 7 deletions

diff --git a/lib/XXV/MODULES/TELNET.pm b/lib/XXV/MODULES/TELNET.pm
index d12fbeb..90fcfe1 100644
--- a/lib/XXV/MODULES/TELNET.pm
+++ b/lib/XXV/MODULES/TELNET.pm
@@ -108,14 +108,14 @@ 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}};
 
     # read the DB Handle
     $self->{dbh} = delete $attr{'-dbh'};
 
     # The Initprocess
-    $self->init or return error('Problem to initialize module');
+    $self->init or return error('Problem to initialize modul!');
 
 	return $self;
 }
@@ -137,7 +137,7 @@ sub init {
 		LocalPort	=> $obj->{Port},
     LocalAddr => $obj->{Interface},
 		Reuse		=> 1
-    ) or return error("Can't create Socket: $!");
+    ) or return error("Couldn't create socket: $!");
 
     # install an initial watcher
     Event->io(
@@ -151,7 +151,7 @@ sub init {
 
                 # accept client
                 my $client=$socket->accept;
-                panic "Can't connect telnet to new client.\n" and return unless $client;
+                panic "Couldn't connect to new telnet client." and return unless $client;
                 $client->autoflush;
 
                 my $console = XXV::OUTPUT::Console->new(
@@ -232,8 +232,8 @@ sub init {
 sub handleInput {
 # ------------------
     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!');
     my $line    = shift || return;
     my $user    = shift || $console->{USER};
 
@@ -256,7 +256,7 @@ sub handleInput {
 sub usage {
 # ------------------
     my $obj = shift || return error('No object defined!');
-    return main::getModule('HTTPD')->usage(@_);
+    return main::getModule('CONFIG')->usage(@_);
 }
 
 1;