Fix malformed URI and merge from English version (1.40 -> 1.41).

This commit is contained in:
Hiroki Sato 2001-07-14 16:41:46 +00:00
parent cf94a454e2
commit 3ca6387ed4
Notes: svn2git 2020-12-08 03:00:23 +00:00
svn path=/www/; revision=9902

View file

@ -4,9 +4,9 @@
#
# by John Fieber <jfieber@freebsd.org>
# Mon May 13 10:31:58 EST 1996
# $FreeBSD: www/ja/ports/portindex,v 1.23 2001/01/02 02:22:50 kuriyama Exp $
# $FreeBSD: www/ja/ports/portindex,v 1.24 2001/05/21 14:47:09 kuriyama Exp $
# The FreeBSD Japanese Documentation Project
# Original revision: 1.40
# Original revision: 1.41
############################################################
@ -21,7 +21,7 @@ do $config if -f $config;
if ($ENV{'MASTER_FTP_SERVER'}) {
$ftpserver = $ENV{'MASTER_FTP_SERVER'};
} else {
$ftpserver = 'ftp://ftp5.freebsd.org' if !$ftpserver;
$ftpserver = 'ftp://ftp.freebsd.org' if !$ftpserver;
}
$base = "" if !$base;
$baseHTTP = $base if !$baseHTTP;
@ -31,7 +31,7 @@ $packagesURL = "$ftpserver/pub/FreeBSD/ports/i386/packages-stable/All/"
if !$packagesURL;
# support tar on the fly or gzip'ed tar on the fly
$ftparchive = '';
$ftparchive = 'tar' if !defined $ftparchive;
$ftparchive = '.tar' if !defined $ftparchive;
# ports download sources script
$pds = 'http://www.freebsd.org/cgi/pds.cgi';
@ -170,7 +170,7 @@ sub main {
$ldesc =~ s/\/usr\//$baseHTTP/;
# The name description and maintainer
$data{$i} .= "<DT><B><A NAME=\"$name\"></A><A HREF=\"$loc.$ftparchive\">$name</A></B> ";
$data{$i} .= "<DT><B><A NAME=\"$name\"></A><A HREF=\"${loc}${ftparchive}\">$name</A></B> ";
$data{$i} .= "<DD>$desc<BR><A HREF=\"$ldesc\">¾Ü¤·¤¤ÀâÌÀ</A>";
if ($packages{"$name.tgz"}) {