svn commit: r49770 - head/ja_JP.eucJP/htdocs/ports
Ryusuke SUZUKI <[email protected]>
| Newsgroups | gmane.os.freebsd.devel.cvs.doc |
|---|---|
| Message-ID | <[email protected]> |
Author: ryusuke
Date: Tue Dec 27 13:10:09 2016
New Revision: 49770
URL: https://svnweb.freebsd.org/changeset/doc/49770
Log:
- Merge the following from the English version:
r39545 -> r47265 head/ja_JP.eucJP/htdocs/ports/Makefile
r28473 -> r47265 head/ja_JP.eucJP/htdocs/ports/portindex
Modified:
head/ja_JP.eucJP/htdocs/ports/portindex
Modified: head/ja_JP.eucJP/htdocs/ports/portindex
==============================================================================
--- head/ja_JP.eucJP/htdocs/ports/portindex Mon Dec 26 20:50:25 2016 (r49769)
+++ head/ja_JP.eucJP/htdocs/ports/portindex Tue Dec 27 13:10:09 2016 (r49770)
@@ -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);
}
_______________________________________________
[email protected] mailing list
https://lists.freebsd.org/mailman/listinfo/svn-doc-all
To unsubscribe, send any mail to "[email protected]"