--- cvsweb.cgi	2000/01/19 15:26:04	1.80
+++ cvsweb.cgi	2000/02/03 13:41:29
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -ws
+#!/usr/bin/perl -s
 #
 # cvsweb - a CGI interface to CVS trees.
 #
@@ -42,7 +42,8 @@
 #
 ###
 
-use strict;
+#use strict;
+require 'jcode.pl';
 
 use vars qw (
     $config $allow_version_select $verbose
@@ -1069,6 +1070,7 @@
 	print "<pre>";
     }
     while (<$reader>) {
+	&jcode'convert(*_, 'euc');
 	my @words = split;
 	# Adding one is for the (single) space which follows $words[0].
 	my $rest = substr ($_, length ($words[0]) + 1);
@@ -1172,6 +1174,7 @@
     # Parse CVS header
     my ($revision, $filename, $cvsheader);
     while(<$fh>) {
+	&jcode'convert(*_, 'euc');
 	last if (/^\*\*\*\*/);
 	$revision = $1 if (/^VERS: (.*)$/);
 	$filename = $1 if (/^Checking out (.*)$/);
@@ -1239,6 +1242,7 @@
     else {
 	print "<PRE>";
 	foreach (@content) {
+	    &jcode'convert(*_, 'euc');
 	    print htmlify($_);
 	}
 	print "</PRE>";
@@ -1372,6 +1376,7 @@
 	    $f2 = '---';
 	}
 	while (<$fh>) {
+	    &jcode'convert(*_, 'euc');
 	    if (m|^$f1 $cvsroot|o) {
 		s|$cvsroot/||o;
 		if ($sym1) {
@@ -1428,6 +1433,7 @@
     }
     $state = "start";
     while (<$fh>) {
+	&jcode'convert(*_, 'euc');
 	if ($state eq "start") {
 	    #Next file. Initialize file variables
 	    $rev = undef;
@@ -1583,6 +1589,7 @@
 	    || &fatal("500 Internal Error", "Failed to spawn rlog");
 
 	while (<$fh>) {
+	    &jcode'convert(*_, 'euc');
 	    print if ($verbose);
 	    if ($symnames) {
 		if (/^\s+([^:]+):\s+([\d\.]+)/) {
@@ -1615,6 +1622,7 @@
 # ----------------------------
 	logentry:
 	while (!/^=========/) {
+	    &jcode'convert(*_, 'euc');
 	    $_ = <$fh>;
 	    last logentry if (!defined($_));	# EOF
 	    print "R:", $_ if ($verbose);
@@ -1654,6 +1662,7 @@
 	    }
 	    line:
 	    while (<$fh>) {
+		&jcode'convert(*_, 'euc');
 		print "L:", $_ if ($verbose);
 		next line if (/^branches:\s/);
 		last line if (/^----------------------------$/ || /^=========/);
@@ -2121,6 +2130,7 @@
 
   # Read header to pick up read revision and date, if possible
   while (<$fh>) {
+      &jcode'convert(*_, 'euc');
       ($r1d,$r1r) = /\t(.*)\t(.*)$/ if (/^--- /);
       ($r2d,$r2r) = /\t(.*)\t(.*)$/ if (/^\+\+\+ /);
       last if (/^\+\+\+ /);
@@ -2162,6 +2172,7 @@
   # font and color for each row. anyone ...?
   ####
   while (<$fh>) {
+      &jcode'convert(*_, 'euc');
       $difftxt = $_;
       
       if ($difftxt =~ /^@@/) {