* Update installation list with required modules

* Remove unused/doubled provided external perl moduls

5 files changed, 10 insertions, 12 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') {
diff --git a/lib/XXV/OUTPUT/Console.pm b/lib/XXV/OUTPUT/Console.pm
index a450227..dca6ee5 100644
--- a/lib/XXV/OUTPUT/Console.pm
+++ b/lib/XXV/OUTPUT/Console.pm
@@ -4,13 +4,11 @@ BEGIN{
     $ENV{PERL_RL} = 'Perl'
 };
 
-use Locale::gettext;
-use Term::ReadLine;
-
 use strict;
 
+use Locale::gettext;
+use Term::ReadLine;
 use Tools;
-use Pod::Text;
 use vars qw($AUTOLOAD);
 
 # This module method must exist for XXV
@@ -21,8 +19,9 @@ sub module {
     my $args = {
         Name => 'Telnet',
         Prereq => {
-            'XML::Simple' => 'Easy API to maintain XML (esp config files)',
+            'Pod::Text' => 'Convert POD data to formatted ASCII text ',
             'Text::ASCIITable' => 'Create a nice formatted table using ASCII characters.',
+#           'Term::ReadLine' => 'Perl interface to various readline packages.',
             'Term::ReadLine::Perl' => 'a quick implementation of the minimal interface to Readline',
         },
         Description => gettext('This receives and sends ASCII messages'),
diff --git a/lib/XXV/OUTPUT/Html.pm b/lib/XXV/OUTPUT/Html.pm
index fc7cdba..32b946c 100644
--- a/lib/XXV/OUTPUT/Html.pm
+++ b/lib/XXV/OUTPUT/Html.pm
@@ -2,16 +2,13 @@ package XXV::OUTPUT::Html;
 
 use strict;
 
-#use Template;
 use vars qw($AUTOLOAD);
 use Locale::gettext;
 use Tools;
 use XXV::OUTPUT::HTML::WAIT;
 use File::Path;
 use File::Basename;
-use Pod::Html;
 use Fcntl;
-#use Thread;
 
 $SIG{CHLD} = 'IGNORE';
 
@@ -23,6 +20,9 @@ sub module {
     my $args = {
         Name => 'Html',
         Prereq => {
+            'Pod::Html'  => 'Module to convert pod files to HTML ',
+#           'Template'  => 'Front-end module to the Template Toolkit',
+#           'Compress::Zlib'  => 'Interface to zlib compression library',
             'HTML::TextToHTML' => 'convert plain text file to HTML. ',
         },
         Description => gettext('This receives and sends HTML messages.'),
diff --git a/lib/XXV/OUTPUT/Wml.pm b/lib/XXV/OUTPUT/Wml.pm
index 2e6e417..7349ab5 100644
--- a/lib/XXV/OUTPUT/Wml.pm
+++ b/lib/XXV/OUTPUT/Wml.pm
@@ -16,7 +16,7 @@ sub module {
     my $args = {
         Name => 'Wml',
         Prereq => {
-            'Template'  => 'Front-end module to the Template Toolkit ',
+            'Template'  => 'Front-end module to the Template Toolkit',
         },
         Description => gettext('This receives and sends WAP messages.'),
         Version => (split(/ /, '$Revision$'))[1],