Menu
▾
▴
[TWiki-Dev] CVS: twiki/bin testenv,1.12,1.13
|
From: Peter T. <pet...@us...> - 2002-03-29 16:44:49
|
Update of /cvsroot/twiki/twiki/bin
In directory usw-pr-cvs1:/tmp/cvs-serv26399
Modified Files:
testenv
Log Message:
HTML fix; cosmetics
Index: testenv
===================================================================
RCS file: /cvsroot/twiki/twiki/bin/testenv,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -r1.12 -r1.13
*** testenv 29 Mar 2002 15:59:38 -0000 1.12
--- testenv 29 Mar 2002 16:44:46 -0000 1.13
***************
*** 34,38 ****
# Check whether basic CGI modules exist (some broken installations of
# Perl don't have this, even though they ars standard modules), and warn user
! my @basicMods = qw(CGI CGI::Carp);
my $modMissing = 0;
my $mod;
--- 34,38 ----
# Check whether basic CGI modules exist (some broken installations of
# Perl don't have this, even though they ars standard modules), and warn user
! my @basicMods = qw( CGI CGI::Carp );
my $modMissing = 0;
my $mod;
***************
*** 57,61 ****
print join "<br />\n", @INC;
print "</tt></p>\n";
! print "<body>\n";
exit;
}
--- 57,61 ----
print join "<br />\n", @INC;
print "</tt></p>\n";
! print "</body>\n</html>\n";
exit;
}
***************
*** 67,76 ****
! &main;
!
!
!
! sub main() {
my $perlverRequired = 5.00503; # Oldest supported version of Perl
--- 67,74 ----
+ &main();
! sub main
! {
my $perlverRequired = 5.00503; # Oldest supported version of Perl
***************
*** 239,247 ****
}
! print "<tr><th align=\"right\">PATH_INFO:</th><td>$thePathInfo</td></tr>\n";
print "<tr><th></th><td><b><font color=\"green\">Note:</font></b>";
print "For a URL such as '$theUrl/foo/bar', ";
print "the correct PATH_INFO is '/foo/bar', without any prefixed path ";
! print "components. Click <a href=\"$theUrl/foo/bar\">here</a> to test.";
print "</td></tr>\n";
print "<tr><th align=\"right\">mod_perl:</th><td>$USE_MOD_PERL for this script (mod_perl $LOAD_MOD_PERL)</td></tr>\n";
--- 237,245 ----
}
! print "<tr><th align=\"right\">PATH_INFO:<a name=\"PATH_INFO\"></th><td>$thePathInfo</td></tr>\n";
print "<tr><th></th><td><b><font color=\"green\">Note:</font></b>";
print "For a URL such as '$theUrl/foo/bar', ";
print "the correct PATH_INFO is '/foo/bar', without any prefixed path ";
! print "components. <a href=\"$theUrl/foo/bar#PATH_INFO\">Test</a> this.";
print "</td></tr>\n";
print "<tr><th align=\"right\">mod_perl:</th><td>$USE_MOD_PERL for this script (mod_perl $LOAD_MOD_PERL)</td></tr>\n";
|