[LON-CAPA-cvs] cvs: loncom /build/system_dependencies perltest.pl

harris41 lon-capa-cvs@mail.lon-capa.org
Sun, 08 Sep 2002 15:53:26 -0000


harris41		Sun Sep  8 11:53:26 2002 EDT

  Modified files:              
    /loncom/build/system_dependencies	perltest.pl 
  Log:
  BUG 734 FIXED.  I mean, how cool is that?  XHTML valid output.
  
  
Index: loncom/build/system_dependencies/perltest.pl
diff -u loncom/build/system_dependencies/perltest.pl:1.7 loncom/build/system_dependencies/perltest.pl:1.8
--- loncom/build/system_dependencies/perltest.pl:1.7	Wed Aug 14 12:54:35 2002
+++ loncom/build/system_dependencies/perltest.pl	Sun Sep  8 11:53:26 2002
@@ -2,7 +2,7 @@
 
 # perltest.pl - script to test the status of perl modules on a LON-CAPA system
 #
-# $Id: perltest.pl,v 1.7 2002/08/14 16:54:35 harris41 Exp $
+# $Id: perltest.pl,v 1.8 2002/09/08 15:53:26 harris41 Exp $
 #
 ###
 
@@ -164,7 +164,7 @@
 =cut
 
 # =================================== Process version information of this file.
-my $VERSION = sprintf("%d.%02d", q$Revision: 1.7 $ =~ /(\d+)\.(\d+)/);
+my $VERSION = sprintf("%d.%02d", q$Revision: 1.8 $ =~ /(\d+)\.(\d+)/);
 
 # ========================== Determine the mode that this script should run in.
 my $mode;
@@ -187,11 +187,14 @@
     print(<<END);
 Content-type: text/html
 
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
+ "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
 <html>
 <head>
+<meta http-equiv="Content-Type" content="text/html; charset=utf-8"></meta>
 <title>CPAN perl status report; $hostname; $date</title>
 </head>
-<body bgcolor="#ffffff">
+<body bgcolor="white">
 <h1>CPAN perl status report</h1>
 <pre>
 END