===================================================================
RCS file: /cvs/cvsweb/cvsweb.cgi,v
retrieving revision 1.1.1.23
retrieving revision 1.1.1.24
diff -u -p -r1.1.1.23 -r1.1.1.24
--- cvsweb/cvsweb.cgi 2001/03/22 19:52:43 1.1.1.23
+++ cvsweb/cvsweb.cgi 2001/03/27 17:24:25 1.1.1.24
@@ -43,7 +43,7 @@
# SUCH DAMAGE.
#
# $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 $
+# $Idaemons: /home/cvs/cvsweb/cvsweb.cgi,v 1.70 2001/03/27 17:20:46 knu Exp $
#
###
@@ -140,7 +140,7 @@ sub forbidden_module($);
delete $ENV{PATH};
$cvsweb_revision = '1.106' . '.' . (split(/ /,
- q$Idaemons: /home/cvs/cvsweb/cvsweb.cgi,v 1.68 2001/03/22 19:46:59 knu Exp $
+ q$Idaemons: /home/cvs/cvsweb/cvsweb.cgi,v 1.70 2001/03/27 17:20:46 knu Exp $
))[2];
use File::Basename;
@@ -751,7 +751,7 @@ if (-d $fullname) {
print " ", &link("Previous Directory", $url);
}
else {
- $url = urlencode($_) . "/$query";
+ $url = './' . urlencode($_) . "/$query";
print "";
if ($nofilelinks) {
print $diricon;
@@ -814,7 +814,7 @@ if (-d $fullname) {
}
elsif (s/,v$//) {
$fileurl = ($attic ? "Attic/" : "") . urlencode($_);
- $url = $fileurl . $query;
+ $url = './' . $fileurl . $query;
my $rev = '';
my $date = '';
my $log = '';
@@ -912,7 +912,7 @@ if (-d $fullname) {
&link("Download this directory in tarball",
# Mangle the filename so browsers show a reasonable
# filename to download.
- "$basefile.tar.gz$query".
+ "./$basefile.tar.gz$query".
($query ? "&" : "?")."tarball=1"),
"";
}
@@ -1226,7 +1226,7 @@ sub spacedHtmlText($;$) {
sub link($$) {
my($name, $url) = @_;
- $url =~ s/:/sprintf("%%%02x", ord($&))/eg;
+ $url =~ s/:/sprintf("%%%02x", ord($&))/eg if $url =~ /^[^a-z]/; # relative
sprintf '%s', hrefquote($url), $name;
}
@@ -1705,7 +1705,11 @@ sub cvswebMarkup($$$) {
print "";
}
else {
- print "<![CDATA[\n", <$filehandle>;
+ print "<PRE>";
+ while (<$filehandle>) {
+ print htmlquote($_);
+ }
+ print "</PRE>";
}
}
@@ -2758,7 +2762,7 @@ sub human_readable_diff($){
sub navigateHeader($$$$$) {
my ($swhere,$path,$filename,$rev,$title) = @_;
$swhere = "" if ($swhere eq $scriptwhere);
- $swhere = urlencode($filename) if ($swhere eq "");
+ $swhere = './', urlencode($filename) if ($swhere eq "");
print <<EOF;
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
@@ -2773,7 +2777,7 @@ $body_tag_for_src
EOF
print &link($backicon, "$swhere$query#rev$rev");
- print "</a> <b>Return to ", &link("$filename","$swhere$query#rev$rev")," CVS log";
+ print "<b>Return to ", &link($filename,"$swhere$query#rev$rev")," CVS log";
print "</b> $fileicon</td>";
print "<td align=right>$diricon <b>Up to ", &clickablePath($path, 1), "</b></td>";
@@ -2982,8 +2986,6 @@ sub download_url($$;$) {
$url .= "?rev=$revision";
$url .= '&content-type=' . urlencode($mimetype) if (defined($mimetype));
- $url =~ s/:/sprintf("%%%02x", ord($&))/eg;
-
$url;
}
@@ -2993,6 +2995,8 @@ sub download_link($$$;$) {
my ($url, $revision, $textlink, $mimetype) = @_;
my ($fullurl) = download_url($url, $revision, $mimetype);
+ $fullurl =~ s/:/sprintf("%%%02x", ord($&))/eg;
+
printf '<A HREF="%s"', hrefquote("$fullurl$barequery");
if ($open_extern_window && (!defined($mimetype) || $mimetype ne "text/x-cvsweb-markup")) {
@@ -3189,7 +3193,7 @@ sub link_tags($) {
my ($fileurl,$filename);
($filename = $where) =~ s/^.*\///;
- $fileurl = urlencode($filename);
+ $fileurl = './' . urlencode($filename);
foreach my $sym (split(", ", $tags)) {
$ret .= ",\n" if ($ret ne "");
]]></plaintext></span>