diff options
| author | Andreas Brachold <vdr07@deltab.de> | 2007-11-11 06:55:13 +0000 |
|---|---|---|
| committer | Andreas Brachold <vdr07@deltab.de> | 2007-11-11 06:55:13 +0000 |
| commit | 3282be229999dc36c197b264d63063a18d136331 (patch) | |
| tree | 98a42db29d955b39e7bed1b599fdcc56c3a29de9 /lib/XXV/MODULES | |
| parent | cfdd733c17cfa4f1a43b827a656e9e53cc2524ac (diff) | |
| download | xxv-3282be229999dc36c197b264d63063a18d136331.tar.gz xxv-3282be229999dc36c197b264d63063a18d136331.tar.bz2 | |
* Update installation list with required modules
* Remove unused/doubled provided external perl moduls
Diffstat (limited to 'lib/XXV/MODULES')
| -rw-r--r-- | lib/XXV/MODULES/CONFIG.pm | 2 | ||||
| -rw-r--r-- | lib/XXV/MODULES/TELNET.pm | 3 |
2 files changed, 2 insertions, 3 deletions
diff --git a/lib/XXV/MODULES/CONFIG.pm b/lib/XXV/MODULES/CONFIG.pm index c2289dc..213cd6d 100644 --- a/lib/XXV/MODULES/CONFIG.pm +++ b/lib/XXV/MODULES/CONFIG.pm @@ -13,7 +13,7 @@ sub module { my $args = { Name => 'CONFIG', Prereq => { - # 'Perl::Module' => 'Description', + 'Module::Reload' => 'Reload %INC files when updated on disk ', }, Description => gettext('This module edits, writes and saves the configuration.'), Version => (split(/ /, '$Revision$'))[1], diff --git a/lib/XXV/MODULES/TELNET.pm b/lib/XXV/MODULES/TELNET.pm index 90fcfe1..7e8572c 100644 --- a/lib/XXV/MODULES/TELNET.pm +++ b/lib/XXV/MODULES/TELNET.pm @@ -15,7 +15,6 @@ sub module { Name => 'TELNET', Prereq => { 'IO::Socket::INET' => 'Object interface for AF_INET domain sockets ', - 'Module::Reload' => 'Reload %INC files when updated on disk ', }, Description => gettext('This module is a multisession telnet server.'), Version => (split(/ /, '$Revision$'))[1], @@ -196,7 +195,7 @@ sub init { ); # welcome - $client->print(sprintf(gettext("Welcome to xxv system version: %s.\r\nThis is session %s.\r\n"),$obj->{MOD}->{Version},$channel)); + $client->print(sprintf(gettext("Welcome to xxv system version: %s.\r\nThis is session %s.\r\n"),main::getVersion(),$channel)); my $userMod = main::getModule('USER'); unless(exists $console->{USER} or $userMod->{active} ne 'y') { |