os/doc
3
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

- Merge the following from the English version:

Browse source 
r39545 -> r47265	head/ja_JP.eucJP/htdocs/ports/Makefile
	r28473 -> r47265	head/ja_JP.eucJP/htdocs/ports/portindex
This commit is contained in:
Ryusuke SUZUKI 2016-12-27 13:10:09 +00:00
parent bb42da821c
commit 2b11d13251
Notes: svn2git 2020-12-08 03:00:23 +00:00 
svn path=/head/; revision=49770
1 changed files with 12 additions and 26 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

38
ja_JP.eucJP/htdocs/ports/portindex
View file

@ -6,7 +6,7 @@
# Mon May 13 10:31:58 EST 1996
# $FreeBSD$
# The FreeBSD Japanese Documentation Project
# Original revision: 1.57
# Original revision: r47265
############################################################
@ -36,24 +36,14 @@ if ($ENV{'MASTER_FTP_SERVER'}) {
} else {
$ftpserver = 'ftp://ftp.FreeBSD.org' if !$ftpserver;
}
$baseHTTP = $base if !$baseHTTP;
my $baseFTP = "$ftpserver/pub/FreeBSD/ports/ports";
my $baseCVSWEB = 'http://www.FreeBSD.org/cgi/cvsweb.cgi/';
$urlcgi = 'http://www.FreeBSD.org/cgi/url.cgi' if !$urlcgi;
my $baseSVNWEB = 'https://svnweb.FreeBSD.org/ports/head/';
$packagesURL = "$ftpserver/pub/FreeBSD/ports/i386/packages-stable/All/"
if !$packagesURL;
# support tar on the fly or gzip'ed tar on the fly
my $ftparchive = '';
$ftparchive = '.tar' if !defined $ftparchive;
# ports download sources script
my $pds = 'http://www.FreeBSD.org/cgi/pds.cgi';
# better layout and link to the sources
if ($urlcgi) {
$baseHTTP = $urlcgi . '?' . $baseHTTP;
}
my %packages = ();
my %category_description = ();
my @category_groups = ();
@ -75,7 +65,7 @@ sub header {
print $fh <<EOF;
<?xml version="1.0" encoding="euc-jp"?>
<!DOCTYPE html PUBLIC "-//FreeBSD//DTD XHTML 1.0 Transitional-Based Extension//EN"
"http://www.FreeBSD.org/XML/doc/share/xml/xhtml10-freebsd.dtd" [
"http://www.FreeBSD.org/XML/share/xml/xhtml10-freebsd.dtd" [
<!ENTITY base '..'>
<!ENTITY % navinclude.ports "INCLUDE">
<!ENTITY % ports.ent SYSTEM "ports.ent">
@ -219,9 +209,6 @@ sub main {
$catkey{$name} = $cat[0];
my $sourcepath = $loc;
$sourcepath =~ s%/usr/%%;
# desc translation
($lloc = $loc) =~ s@^/usr/ports/@@;
$desc = $descLANG{$lloc}
@ -231,8 +218,9 @@ sub main {
$stats{$i}++;
# figure out the FTP url
$loc =~ s/\/usr\//$baseCVSWEB/;
$ldesc =~ s/\/usr\//$baseHTTP/;
$loc =~ s%/usr/ports/%$baseSVNWEB%;
$ldesc =~ s%/usr/ports/%$baseSVNWEB%;
$ldesc .= '?revision=HEAD';
# The name description and maintainer
$name =~ s/,.*//g;
@ -246,10 +234,10 @@ sub main {
$data{$i} .= qq{ | <a href="$packagesURL$name.tgz">¥Ñ¥Ã¥±¡¼¥¸</a>};
}
$data{$i} .= qq{ | <a href="$pds?$sourcepath">¥½¡¼¥¹</a>};
$data{$i} .= qq{ | <a href="$loc/?view=log">変更点</a>};
if ($www ne "") {
$data{$i} .= qq{ | <a href="$www">Main Web Site</a>};
$data{$i} .= qq{ | <a href="$www">メインウェブサイト</a>};
}
my $ownerurl = $owner;
@ -294,7 +282,7 @@ sub main {
# Add an entry to the master index
# workaround for XML syntax, `--' is not allowed in comments
# workaround XML syntax, `--' is not allowed in comments
my $sname = $name;
$sname =~ s/--/-=/g;
$master[$portnumber] =
@ -326,6 +314,7 @@ EOF
if ($category_description{$key}{desc}) {
print $moutf " -- " . $category_description{$key}{desc};
}
# Someone forgot to add a category to the description file
# or there is a typo in the category field.
else {
@ -335,7 +324,6 @@ EOF
}
print $moutf "</li>\n";
# Create the category file
$outf->open(">$key.xml");
header($outf, "FreeBSD Ports: \u$key");
@ -373,7 +361,7 @@ EOF
print $moutf "<ul>\n";
foreach my $key (sort(keys(%stats))) {
print $moutf
"<li><a href=\"$key.html\">\u$key</a> <em>($stats{$key})</em>\n";
"<li><a href=\"$key.html\">\u$key</a> <em>($stats{$key})</em>";
if ($category_description{$key}{desc}) {
print $moutf " -- " . $category_description{$key}{desc};
}
@ -396,11 +384,9 @@ EOF
$mindex->close;
# Create statistics.ent
$statistics->open(">statistics.ent");
print $statistics "<!ENTITY ports.count '$portnumber'>\n";
$statistics->close;
close(INDEX);
}