--- cvsweb.cgi-ooo	Sun Feb  3 20:59:34 2002
+++ cvsweb.cgi	Sun Feb  3 21:31:44 2002
@@ -45,7 +45,8 @@
 ###
 require 5.000;
 
-use strict;
+#use strict;
+require 'jcode.pl';
 
 use vars qw (
     $config $allow_version_select $verbose
@@ -1151,6 +1152,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);
@@ -1271,6 +1273,7 @@
     my ($revision, $filename, $cvsheader);
     $filename = "";
     while(<$fh>) {
+	&jcode'convert(*_, 'euc');
 	last if (/^\*\*\*\*/);
 	$revision = $1 if (/^VERS: (.*)$/);
 	if (/^Checking out (.*)$/) {
@@ -1344,6 +1347,7 @@
     else {
 	print "<PRE>";
 	foreach (@content) {
+	    &jcode'convert(*_, 'euc');
 	    print spacedHtmlText($_);
 	}
 	print "</PRE>";
@@ -1481,6 +1485,7 @@
 	    $f2 = '---';
 	}
 	while (<$fh>) {
+	    &jcode'convert(*_, 'euc');
 	    if (m|^$f1 $cvsroot|o) {
 		s|$cvsroot/||o;
 		if ($sym1) {
@@ -1541,6 +1546,7 @@
     }
     $state = "start";
     while (<$fh>) {
+	&jcode'convert(*_, 'euc');
 	if ($state eq "start") {
 	    #Next file. Initialize file variables
 	    $rev = undef;
@@ -1701,6 +1707,7 @@
 		}
 	}
 	while (<$fh>) {
+	    &jcode'convert(*_, 'euc');
 	    print if ($verbose);
 	    if ($symnames) {
 		if (/^\s+([^:]+):\s+([\d\.]+)/) {
@@ -1733,6 +1740,7 @@
 # ----------------------------
 	logentry:
 	while (!/^=========/) {
+	    &jcode'convert(*_, 'euc');
 	    $_ = <$fh>;
 	    last logentry if (!defined($_));	# EOF
 	    print "R:", $_ if ($verbose);
@@ -1772,6 +1780,7 @@
 	    }
 	    line:
 	    while (<$fh>) {
+		&jcode'convert(*_, 'euc');
 		print "L:", $_ if ($verbose);
 		next line if (/^branches:\s/);
 		last line if (/^----------------------------$/ || /^=========/);
@@ -2255,6 +2264,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 (/^\+\+\+ /);
@@ -2296,6 +2306,7 @@
   # font and color for each row. anyone ...?
   ####
   while (<$fh>) {
+      &jcode'convert(*_, 'euc');
       $difftxt = $_;
       
       if ($difftxt =~ /^@@/) {