Merge from knu-cvsweb 1.106.1.68.
2001-03-23 Akinori MUSHA <knu@iDaemons.org> * cvsweb.cgi: Encode colons in file names properly. FreeBSD PR: 25963 Submitted by: Marc van Woerkom <3d@FreeBSD.org> * cvsweb.cgi: MFZ: 1.106. Do closedir() properly. 2001-02-01 Akinori MUSHA <knu@iDaemons.org> * cvsweb.cgi: Use a fixed-width font in the colored diff view. Requested by: Julian Elischer <julian@elischer.org> 2001-01-29 Akinori MUSHA <knu@iDaemons.org> * cvsweb.cgi: Remove an obsolete notice: CVSWEB_CONFIG is disused. One leftover substitution: "cvs" -> $CMD{cvs}
This commit is contained in:
parent
5de57831e6
commit
2b1e770324
Notes:
svn2git
2020-12-08 03:00:23 +00:00
svn path=/www/; revision=9046
2 changed files with 19 additions and 16 deletions
|
@ -42,9 +42,9 @@
|
|||
# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
|
||||
# SUCH DAMAGE.
|
||||
#
|
||||
# $Id: cvsweb.cgi,v 1.68 2001-01-14 08:59:59 knu Exp $
|
||||
# $Idaemons: /home/cvs/cvsweb/cvsweb.cgi,v 1.64 2001/01/13 07:48:09 knu Exp $
|
||||
# $FreeBSD: www/en/cgi/cvsweb.cgi,v 1.67 2001/01/12 04:26:10 knu Exp $
|
||||
# $Id: cvsweb.cgi,v 1.69 2001-03-22 19:55:43 knu Exp $
|
||||
# $Idaemons: /home/cvs/cvsweb/cvsweb.cgi,v 1.68 2001/03/22 19:46:59 knu Exp $
|
||||
# $FreeBSD: www/en/cgi/cvsweb.cgi,v 1.68 2001/01/14 08:59:59 knu Exp $
|
||||
#
|
||||
###
|
||||
|
||||
|
@ -140,9 +140,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;
|
||||
|
||||
|
@ -234,7 +234,7 @@ $LOG_REVSEPARATOR = q/^-{28}$/;
|
|||
##### End of configuration variables #####
|
||||
|
||||
$cgi_style::hsty_base = 'http://www.FreeBSD.org';
|
||||
$_ = q$FreeBSD: www/en/cgi/cvsweb.cgi,v 1.67 2001/01/12 04:26:10 knu Exp $;
|
||||
$_ = q$FreeBSD: www/en/cgi/cvsweb.cgi,v 1.68 2001/01/14 08:59:59 knu Exp $;
|
||||
@_ = split;
|
||||
$cgi_style::hsty_date = "@_[3,4]";
|
||||
|
||||
|
@ -323,9 +323,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;
|
||||
|
@ -1242,6 +1240,8 @@ sub spacedHtmlText($;$) {
|
|||
sub link($$) {
|
||||
my($name, $url) = @_;
|
||||
|
||||
$url =~ s/:/sprintf("%%%02x", ord($&))/eg;
|
||||
|
||||
sprintf '<A HREF="%s">%s</A>', hrefquote($url), $name;
|
||||
}
|
||||
|
||||
|
@ -1319,6 +1319,7 @@ sub safeglob($) {
|
|||
push(@results, "$dirname/" .$_);
|
||||
}
|
||||
}
|
||||
closedir($dh);
|
||||
}
|
||||
|
||||
@results;
|
||||
|
@ -1427,7 +1428,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:
|
||||
|
@ -2654,8 +2655,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;
|
||||
|
@ -2995,6 +2996,8 @@ sub download_url($$;$) {
|
|||
$url .= "?rev=$revision";
|
||||
$url .= '&content-type=' . urlencode($mimetype) if (defined($mimetype));
|
||||
|
||||
$url =~ s/:/sprintf("%%%02x", ord($&))/eg;
|
||||
|
||||
$url;
|
||||
}
|
||||
|
||||
|
|
|
@ -6,9 +6,9 @@
|
|||
# 1999 H. Nordstrom <hno@hem.passagen.se>
|
||||
# 2000-2001 A. MUSHA <knu@FreeBSD.org>
|
||||
# based on work by Bill Fenner <fenner@FreeBSD.org>
|
||||
# $Id: cvsweb.conf,v 1.17 2001-01-14 09:03:25 knu Exp $
|
||||
# $Idaemons: /home/cvs/cvsweb/cvsweb.conf,v 1.22 2001/01/13 07:48:09 knu Exp $
|
||||
# $FreeBSD: www/en/cgi/cvsweb.conf,v 1.16 2001/01/14 08:59:59 knu Exp $
|
||||
# $Id: cvsweb.conf,v 1.18 2001-03-22 19:55:46 knu Exp $
|
||||
# $Idaemons: /home/cvs/cvsweb/cvsweb.conf,v 1.23 2001/01/14 09:04:04 knu Exp $
|
||||
# $FreeBSD: www/en/cgi/cvsweb.conf,v 1.17 2001/01/14 09:03:25 knu Exp $
|
||||
#
|
||||
###
|
||||
|
||||
|
|
Loading…
Reference in a new issue