===================================================================
RCS file: /cvs/cvsweb/cvsweb.cgi,v
retrieving revision 1.1.1.22
retrieving revision 1.1.1.23
diff -u -p -r1.1.1.22 -r1.1.1.23
--- cvsweb/cvsweb.cgi	2001/01/14 08:49:27	1.1.1.22
+++ cvsweb/cvsweb.cgi	2001/03/22 19:52:43	1.1.1.23
@@ -42,8 +42,8 @@
 # OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 # SUCH DAMAGE.
 #
-# $zId: cvsweb.cgi,v 1.105 2000/11/26 01:51:04 jumager Exp $
-# $Idaemons: /home/cvs/cvsweb/cvsweb.cgi,v 1.64 2001/01/13 07:48:09 knu Exp $
+# $zId: cvsweb.cgi,v 1.106 2001/03/10 01:16:27 hnordstrom Exp $
+# $Idaemons: /home/cvs/cvsweb/cvsweb.cgi,v 1.68 2001/03/22 19:46:59 knu Exp $
 #
 ###
 
@@ -139,9 +139,9 @@ sub forbidden_module($);
 ##### Start of Configuration Area ########
 delete $ENV{PATH};
 
-$cvsweb_revision = join('.', '1.105', (split(/ /,
- q$Idaemons: /home/cvs/cvsweb/cvsweb.cgi,v 1.64 2001/01/13 07:48:09 knu Exp $
-))[2]);
+$cvsweb_revision = '1.106' . '.' . (split(/ /,
+ q$Idaemons: /home/cvs/cvsweb/cvsweb.cgi,v 1.68 2001/03/22 19:46:59 knu Exp $
+))[2];
 
 use File::Basename;
 
@@ -309,9 +309,7 @@ if (-f $config) {
 } else {
    &fatal("500 Internal Error",
 	  'Configuration not found.  Set the variable <code>$config</code> '
-          . 'in cvsweb.cgi, or the environment variable '
-          . '<code>CVSWEB_CONFIG</code>, to your <b>cvsweb.conf</b> '
-          . 'configuration file first.');
+          . 'in cvsweb.cgi to your <b>cvsweb.conf</b> configuration file first.');
 }
 
 undef %input;
@@ -1228,6 +1226,8 @@ sub spacedHtmlText($;$) {
 sub link($$) {
 	my($name, $url) = @_;
 
+	$url =~ s/:/sprintf("%%%02x", ord($&))/eg;
+
 	sprintf '<A HREF="%s">%s</A>', hrefquote($url), $name;
 }
 
@@ -1305,6 +1305,7 @@ sub safeglob($) {
 				push(@results, "$dirname/" .$_);
 			}
 		}
+ 		closedir($dh);
 	}
 
 	@results;
@@ -1413,7 +1414,7 @@ sub doAnnotate($$) {
     # the public domain.
     # we could abandon the use of rlog, rcsdiff and co using
     # the cvsserver in a similiar way one day (..after rewrite)
-    $pid = open2($reader, $writer, "cvs", @cvs_options, "server")
+    $pid = open2($reader, $writer, $CMD{cvs}, @cvs_options, "server")
       || fatal ("500 Internal Error", "Fatal Error - unable to open cvs for annotation");
 
     # OK, first send the request to the server.  A simplified example is:
@@ -2640,8 +2641,8 @@ sub human_readable_diff($){
   print "<br>Tag: $sym2\n" if ($sym1);
   print "</th>\n";
 
-  my $fs = "<font face=\"$difffontface\" size=\"$difffontsize\">";
-  my $fe = "</font>";
+  my $fs = "<font face=\"$difffontface\" size=\"$difffontsize\"><tt>";
+  my $fe = "</tt></font>";
 
   my $leftRow = 0;
   my $rightRow = 0;
@@ -2980,6 +2981,8 @@ sub download_url($$;$) {
     }
     $url .= "?rev=$revision";
     $url .= '&content-type=' . urlencode($mimetype) if (defined($mimetype));
+
+    $url =~ s/:/sprintf("%%%02x", ord($&))/eg;
 
     $url;
 }