svn commit: r49770 - head/ja_JP.eucJP/htdocs/ports

Tue Dec 27 13:10:11 UTC 2016

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);
 }
