--- /var/www/cgi-bin/twiki/bin/testenv.orig   Mon Oct 15 10:50:41 2001
+++ /var/www/cgi-bin/twiki/bin/testenv   Mon Oct 15 15:44:43 2001
@@ -59,6 +59,60 @@
 }
 print "</table>\n";
 
+
+print "<h3>Test of <tt>Perl</tt> Configuration:</h3>\n";
+print "<table>\n";
+
+my $perl_version = $];
+my $required_version = 5.005;
+my $perl_exe = $^X;
+
+print "<tr><th align=\"right\">Perl Version:</th><td>$perl_version</td></tr>\n";
+print "<tr><th></th><td><b><font color=\"green\">Note:</font></b> ";
+print "This is the version of perl which will run the TWiki scripts.";
+print "</td></tr>\n";
+if( $perl_version < $required_version ) {
+    print "<tr><th></th><td><b><font color=\"red\">Warning:</font></b> ";
+    print "This number is too low.  It must be grater then $required_version.\n";
+    print "</td></tr>\n";
+}
+
+print "<tr><th align=\"right\">Perl Executable:</th><td>$perl_exe</td></tr>\n";
+print "<tr><th></th><td><b><font color=\"green\">Note:</font></b> ";
+print "This is the perl executable which will run the TWiki scripts.";
+print "</td></tr>\n";
+
+my @required_libs = ( 
+       'CGI::Carp', 
+       'Digest::SHA1',
+       'File::Copy', 
+       'MIME::Base64',
+       'Net::SMTP', 
+       );
+
+foreach $lib (@required_libs) {
+
+    # check that each of the required perl libraries can be loaded and
+    # print its version number.
+
+    eval "use $lib";
+    print "<tr><th align=\"right\">Perl Library:</th><td>$lib</td></tr>\n";
+    print "<tr><th></th><td>\n";
+    if ($@) {
+   print "<b><font color=\"red\">Warning:</font></b> ";
+   print "The perl libarary: '$lib' could not be loaded..\n";
+    } else {
+   my $lib_version = $ {"$ {lib}::VERSION"};
+   print "<b><font color=\"green\">Note:</font></b> ";
+   print "The perl library: $lib is installed.   \$${lib}::VERSION = ".
+       $lib_version;
+    }
+    print "</td></tr>\n";
+}
+
+print "</table>\n";
+
+
 print "<h3>Test of <tt>TWiki.cfg</tt> Configuration:</h3>\n";
 
 # read the TWiki configuration
@@ -169,8 +223,27 @@
     print "<tr><th></th><td><b><font color=\"red\">Warning:</font></b> ";
     print "RCS program <tt>$rcsDir/ci</tt> not found. Check the path.";
     print "</td></tr>\n";
+} else {
+    $rcs_version = `rcs -V`;
+    $rcs_version= (split(/\s+/, $rcs_version))[2];
+    $required_rcs_version = 5.7;
+    
+    print "<tr><th align=\"right\">RCS Version:</th><td>$rcs_version</td></tr>\n";
+    print "<tr><th></th><td><b><font color=\"green\">Note:</font></b> ";
+    print "This is the version of RCS which will be used.";
+    print "</td></tr>\n";
+    
+    if( $rcs_version < $required_rcs_version ) {
+   print "<tr><th></th><td><b><font color=\"red\">Warning:</font></b> ";
+   print "RCS program is too old, Must have a version number at least: ";
+   print "'$required_rcs_version'. Uprgrade to a newer version.";
+   print "</td></tr>\n";
+    }
+
 }
+
 # FIXME check that diff command is in path, required by ci
+
 
 print "<tr><th align=\"right\">\$lsCmd:</th><td>$lsCmd</td></tr>\n";
 print "<tr><th></th><td><b><font color=\"green\">Note:</font></b> ";