Date: Tue, 27 Dec 2016 13:10:10 +0000 (UTC) From: Ryusuke SUZUKI <ryusuke@FreeBSD.org> To: doc-committers@freebsd.org, svn-doc-all@freebsd.org, svn-doc-head@freebsd.org Subject: svn commit: r49770 - head/ja_JP.eucJP/htdocs/ports Message-ID: <201612271310.uBRDAAZ7097065@repo.freebsd.org>
next in thread | raw e-mail | index | archive | help
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); }
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?201612271310.uBRDAAZ7097065>