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