head	1.36;
access;
symbols
	HRS_XML_CLEANUP:1.32
	HRS_XML_CLEANUP_PRE:1.31
	EMILYBOYD_REDESIGN:1.31
	PRE_REDESIGN:1.30
	XML_XSL_XP:1.25.0.2
	XML_XSL_XP_BP:1.25
	JA_WWW_1_0:1.1.1.1
	doc-jp:1.1.1;
locks; strict;
comment	@# @;


1.36
date	2011.06.26.00.43.28;	author ryusuke;	state Exp;
branches;
next	1.35;

1.35
date	2011.03.21.11.01.41;	author ryusuke;	state Exp;
branches;
next	1.34;

1.34
date	2010.12.23.12.01.39;	author ryusuke;	state Exp;
branches;
next	1.33;

1.33
date	2008.08.25.12.39.17;	author jkois;	state Exp;
branches;
next	1.32;

1.32
date	2006.08.19.21.24.43;	author hrs;	state Exp;
branches;
next	1.31;

1.31
date	2005.10.04.16.21.48;	author hrs;	state Exp;
branches;
next	1.30;

1.30
date	2004.01.10.18.37.59;	author rushani;	state Exp;
branches;
next	1.29;

1.29
date	2003.09.25.17.10.22;	author rushani;	state Exp;
branches;
next	1.28;

1.28
date	2002.03.17.05.10.13;	author kuriyama;	state Exp;
branches;
next	1.27;

1.27
date	2002.03.04.13.07.32;	author hanai;	state Exp;
branches;
next	1.26;

1.26
date	2001.11.19.15.35.49;	author hrs;	state Exp;
branches;
next	1.25;

1.25
date	2001.07.14.16.41.46;	author hrs;	state Exp;
branches;
next	1.24;

1.24
date	2001.05.21.14.47.09;	author kuriyama;	state Exp;
branches;
next	1.23;

1.23
date	2001.01.02.02.22.50;	author kuriyama;	state Exp;
branches;
next	1.22;

1.22
date	2001.01.01.18.41.42;	author hrs;	state Exp;
branches;
next	1.21;

1.21
date	2000.12.31.11.08.42;	author hrs;	state Exp;
branches;
next	1.20;

1.20
date	2000.10.02.07.54.40;	author kuriyama;	state Exp;
branches;
next	1.19;

1.19
date	2000.04.24.02.13.38;	author kuriyama;	state Exp;
branches;
next	1.18;

1.18
date	2000.01.10.11.08.47;	author motoyuki;	state Exp;
branches;
next	1.17;

1.17
date	99.11.14.00.54.39;	author kuriyama;	state Exp;
branches;
next	1.16;

1.16
date	99.10.02.01.19.39;	author kuriyama;	state Exp;
branches;
next	1.15;

1.15
date	99.09.06.07.03.22;	author peter;	state Exp;
branches;
next	1.14;

1.14
date	99.05.06.15.15.20;	author motoyuki;	state Exp;
branches;
next	1.13;

1.13
date	99.03.09.15.13.47;	author motoyuki;	state Exp;
branches;
next	1.12;

1.12
date	98.10.01.16.54.37;	author motoyuki;	state Exp;
branches;
next	1.11;

1.11
date	98.09.30.16.35.17;	author wosch;	state Exp;
branches;
next	1.10;

1.10
date	98.09.21.15.40.08;	author motoyuki;	state Exp;
branches;
next	1.9;

1.9
date	98.09.20.10.54.41;	author wosch;	state Exp;
branches;
next	1.8;

1.8
date	98.08.26.15.01.06;	author motoyuki;	state Exp;
branches;
next	1.7;

1.7
date	98.08.12.13.06.48;	author hanai;	state Exp;
branches;
next	1.6;

1.6
date	98.08.06.14.37.13;	author wosch;	state Exp;
branches;
next	1.5;

1.5
date	98.04.25.16.41.06;	author kuriyama;	state Exp;
branches;
next	1.4;

1.4
date	98.02.12.02.32.52;	author hanai;	state Exp;
branches;
next	1.3;

1.3
date	97.12.26.17.05.23;	author max;	state Exp;
branches;
next	1.2;

1.2
date	97.12.07.15.44.08;	author max;	state Exp;
branches;
next	1.1;

1.1
date	97.11.23.22.23.06;	author max;	state Exp;
branches
	1.1.1.1;
next	;

1.1.1.1
date	97.11.23.22.23.06;	author max;	state Exp;
branches;
next	;


desc
@@


1.36
log
@Merge the following from the English version:

	1.45 -> 1.50	www/ja/ports/Makefile
	(new) -> 1.3	www/ja/ports/index.sgml
	(new) -> 1.3	www/ja/ports/installing.sgml
	1.55 -> 1.57	www/ja/ports/portindex
	(new) -> 1.1	www/ja/ports/ports.ent
	(new) -> 1.4	www/ja/ports/references.sgml
	(new) -> 1.3	www/ja/ports/searching.sgml
	(new) -> 1.2	www/ja/ports/updateing.sgml
@
text
@#!/usr/bin/perl

# convert a ports INDEX file to SGML files
#
# by John Fieber <jfieber@@FreeBSD.org>
# Mon May 13 10:31:58 EST 1996
# $FreeBSD: www/ja/ports/portindex,v 1.35 2011/03/21 11:01:41 ryusuke Exp $
# The FreeBSD Japanese Documentation Project
# Original revision: 1.57

############################################################

use strict;
use POSIX;
use IO::File;

my $base = "";
my $baseHTTP = "";
my $urlcgi = "";
my $packagesURL = "";
my $today = getdate();
my %p = ();

# Load local config file. You can override in portindex.conf
# the variables for the default web and the ftp server. This
# make it easy to maintain a local web mirror and let the
# URL point to yourself and not to the standard FreeBSD FTP server.

my $config = $0 . '.' . 'conf';
do $config if -f $config;

# This is the base of where we ftp stuff from
my $ftpserver;
if ($ENV{'MASTER_FTP_SERVER'}) {
    $ftpserver = $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;
$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 = ();
my %category_groups = ();
packages_exist('packages.exists');
category_description(($ARGV[1] || '.') . '/categories' );
category_groups(($ARGV[1] || '.') . '/categories.descriptions' );
main();

sub getdate {
#    return ": $year ǯ $mon  $mday ";
    return POSIX::strftime("ǽ: %d-%B-%Y",localtime);
}

sub header {
    my $fh = shift;
    my $htext = shift;
    #local($fh, $htext) = @@_;
    print $fh <<EOF;
<!DOCTYPE html PUBLIC "-//FreeBSD//DTD HTML 4.01 Transitional-Based Extension//EN" [
<!ENTITY base CDATA '..'>
<!ENTITY date  "<em>$today</em>">
<!ENTITY title '$htext'>
<!ENTITY % navinclude.ports "INCLUDE">
<!ENTITY % ports.ent SYSTEM "ports.ent">
%ports.ent;
<!ENTITY email 'ports'>
%statistics.ent;
]>
<html>&header;

&searchform;

<hr>

EOF
}

sub footer {
    my $fh = shift;
    my $ftext = shift;
    #local ($fh, $ftext) = @@_;
print $fh <<EOF;

$ftext
&footer;
</BODY>
</HTML>
EOF
}

sub packages_exist {
    my $file=shift;
    my %p;
    #local($file, *p) = @@_;

    open(P, $file) || do {
       warn "open $file: $!\n";
       warn "Cannot create packages links\n";
       return 1;
    };

    while(<P>) {
	chop;
	$packages{$_} = 1;
    }
    close P;
}

sub category_description {
    my $file = shift;

    open(P, $file) || do {
	warn "open $file: $!\n";
	warn "Cannot find category description\n";
	return 1;
    };

    while(<P>) {
	# ignore comments
	next if /^\s*#/;
	if (/^\s*([^,]+),\s*"([^"]+)",\s*([A-Z]+)/) {
	    $category_description{$1}{desc}=$2;
	    $category_description{$1}{group}=$3;
	}
    }
    close P;
}

sub category_groups {
    my $file = shift;

    open(P, $file) || do {
	warn "open $file: $!\n";
	warn "Cannot find category groups\n";
	return 1;
    };

    while(<P>) {
	# ignore comments
	next if /^\s*#/;
	if (/^\s*([^,]+),\s*(.+)/) {
	    $category_groups{$1}=$2;
	    push(@@category_groups,$1);
	}
    }
    close P;
}

sub main {
    my @@master=();
    my %stats;
    my %catkey;
    my %data;
    my %descLANG;
    my $portnumber = 0;

    my $sep = "<B>:</B>";

    my $moutf = new IO::File;
    my $outf = new IO::File;
    my $mindex = new IO::File;
    my $statistics = new IO::File;
    my $lloc;

    # 'COMMENT' translation database
    if (open(COMF, "comments.ja")) {
	while (<COMF>) {
	    ($a, $b) = split('\|');
	    next if !defined($b);
	    chop($b);
	    $b =~ s/&/&amp;/g;
	    $b =~ s/</&lt;/g;
	    $b =~ s/>/&gt;/g;
	    $descLANG{$a} = $b;
	}
    }

    open(INDEX, $ARGV[0]);
    $portnumber = "0";
    while (<INDEX>) {
	chop;
	s/&/&amp;/g;
    	s/</&lt;/g;
    	s/>/&gt;/g;

    	# Read a record
	my ($name, $loc, $prefix, $desc, $ldesc, $owner, $cats, 
	    $bdep, $rdep, $www) = split('\|');

	# Check for double hyphens in the name (--).
	$name =~ s/--/-/g;

    	# Split the categories into an array
	my @@cat = split("[ \t]+", $cats);

    	$catkey{$name} = $cat[0];

	my $sourcepath = $loc;
	$sourcepath =~ s%/usr/%%;

	# desc translation
	($lloc = $loc) =~ s@@^/usr/ports/@@@@;
	$desc = $descLANG{$lloc}
	    if ($descLANG{$lloc} ne '');

	foreach my $i (sort(@@cat)) {
	    $stats{$i}++;

	    # figure out the FTP url
	    $loc =~ s/\/usr\//$baseCVSWEB/;
	    $ldesc =~ s/\/usr\//$baseHTTP/;

	    # The name description and maintainer
	    $data{$i} .= "<DT><B><A NAME=\"$name\"></A><A HREF=\"${loc}${ftparchive}\">$name</A></B> ";

	    $data{$i} .= "<DD>$desc<BR><A HREF=\"$ldesc\">ܤ</A>";
	    if ($packages{"$name.tbz"}) { 
		$data{$i} .= qq{ | <a href="$packagesURL$name.tbz">ѥå</a>};
	    } elsif ($packages{"$name.tgz"}) {
		$data{$i} .= qq{ | <a href="$packagesURL$name.tgz">ѥå</a>};
	    }

	    $data{$i} .= qq{ | <A HREF="$pds?$sourcepath"></A>};

	    if ($www ne "") {
		$data{$i} .= qq{ | <a href="$www">Main Web Site</a>};
	    }

	    my $ownerurl = $owner;
	    $ownerurl =~ s/&lt;/</g;
	    $ownerurl =~ s/&gt;/>/g;
	    $data{$i} .= 
		"<BR><I>ݼô:</I> <A HREF=\"mailto:$ownerurl\">$owner</A>";

	    # If there are any dependencies, list them
	    if ($bdep ne "" || $rdep ne "") {
		$data{$i} .= "<BR><I>ɬפʤ:</I> ";
		my @@dep = split(/ /, "$bdep $rdep");
		my $last = '';
		foreach my $j (sort @@dep) {
		    next if $j eq $last;
		    $last = $j;
		    $data{$i} .= " <A HREF=\"##$j##.html#$j\">$j</A>,";
		}
		# remove the trailing comma
		chop $data{$i};
	    }

	    # If the port is listed in more than one category, throw
	    # in some cross references
	    if ($#cat > 0) {
		$data{$i} .= "<BR><EM>ˤޤޤƤޤ:</EM> ";
		foreach my $j (@@cat) {
		    if ($j ne $i) {
			if ($j eq $cat[0]) {
			    $data{$i} .= " <STRONG><A HREF=\"$j.html#$name\">\u$j</A></STRONG>,";
			}
			else {
			    $data{$i} .= " <A HREF=\"$j.html#$name\">\u$j</A>,";
			}
		    }
		}
		# remove the trailing comma
		chop($data{$i});
	    }
	    $data{$i} .= "<P></P></DD>\n"
	}

    	# Add an entry to the master index

	# workaround for SGML bug, `--' is not allowed in comments
	my $sname = $name;
	$sname =~ s/--/-=/g;
    	$master[$portnumber] = 
    	    "<!-- $sname --><STRONG><A HREF=\"$cat[0].html#$name\">$name</A></STRONG> " .
    	    " -- <EM>$desc</EM><BR>\n";
	$portnumber++;
    }

    # create categories-grouped.sgml and <category>.sgml

    $moutf->open(">categories-grouped.sgml");
    header($moutf, "FreeBSD Ports -- 롼פˤʬ");

    print $moutf <<EOF;
<A NAME=\"top\"></A>
EOF

    if ($portnumber eq '0') {
      print $moutf "<P>none found</P>\n";
    } else {
    foreach my $cg (@@category_groups) {
	print $moutf "<H3>",$category_groups{$cg},"</H3>\n";
	print $moutf "<UL>\n";
	foreach my $key (sort(keys(%stats))) {
	    next if ($category_description{$key}{group} ne $cg);
	    # For the master file...
	    print $moutf 
		"<LI><A HREF=\"$key.html\">\u$key</A> <em>($stats{$key})</em>";
	    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 {
		warn "No description found for category: ``$key''!\n";
		warn "Please fix me or send an E-Mail to doc\@@FreeBSD.org\a\n";
		sleep(3);
	    }
	    print $moutf "</LI>\n";


	    # Create the category file
	    $outf->open(">$key.sgml");
	    header($outf, "FreeBSD Ports: \u$key");
	    if ($category_description{$key}{desc}) {
		print $outf "<h3>", $category_description{$key}{desc}, "</h3>\n";
	    }
	    print $outf "<DL>\n";
	    my $d = join("\n", sort(split(/\n/, $data{$key})));
	    $d =~ s/##([^#]*)##/$catkey{$1}/g;
	    print $outf $d;
	    print $outf "</DL>\n";
	    footer($outf, "<p></p><A HREF=\"#top\">top</A>" .
		" -- <A HREF=\"master-index.html\">Index</A>");
	    $outf->close;
	}
	print $moutf "</UL>\n";
    }
    }

    footer($moutf, "");
    $moutf->close;

    # create categories-alpha.sgml

    $moutf->open(">categories-alpha.sgml");
    header($moutf, "FreeBSD Ports -- ե٥åȽ");

    print $moutf <<EOF;
<A NAME=\"top\"></A>
EOF

    if ($portnumber eq '0') {
      print $moutf "<P>none found</P>\n";
    } else {
      print $moutf "<UL>\n";
      foreach my $key (sort(keys(%stats))) {
	print $moutf
	  "<LI><A HREF=\"$key.html\">\u$key</A> <em>($stats{$key})</em>";
	if ($category_description{$key}{desc}) {
	  print $moutf " -- " . $category_description{$key}{desc};
	print $moutf "</LI>\n";
	}
      }
      print $moutf "</UL>\n";
    }

    footer($moutf, "");
    $moutf->close;

    # Create master-index.sgml

    $mindex->open(">master-index.sgml");
    header($mindex, "FreeBSD Ports Collection ");
    print $mindex "<P>\n";
    print $mindex sort @@master;
    print $mindex "</P>";
    footer($mindex, "<A HREF=\"#top\">top</A>");
    $mindex->close;

    # Create statistics.ent

    $statistics->open(">statistics.ent");

    # doesn't seem to work:
    # print $statistics "<!ENTITY date '<em>$today</em>'>\n";

    my $ptgzsize = `cat ports.size 2>/dev/null` || "";
    if ($ptgzsize =~ /^\d+$/) {
       $ptgzsize = sprintf("%.0f", $ptgzsize/(1024*1024));
       print $statistics "<!ENTITY ports.size '褽 $ptgzsize ᥬХ'>\n";
    } else {
       warn "Unknown size for ports.tar.gz\n";
       print $statistics "<!ENTITY ports.size 'several tens of megabytes'>\n";
    }
    print $statistics "<!ENTITY ports.count '$portnumber'>\n";

    $statistics->close;
    close(INDEX);
}
@


1.35
log
@o Merge the following from the English version:

	1.53 -> 1.55	www/ja/ports/portindex

o Related change
 (determine the size of ports.tar.gz automagically):

	www/ja/ports/Makefile
@
text
@d3 1
a3 1
# convert a ports INDEX file to HTML
d7 1
a7 1
# $FreeBSD: www/ja/ports/portindex,v 1.34 2010/12/23 12:01:39 ryusuke Exp $
d9 1
a9 1
# Original revision: 1.55
a79 1
<!ENTITY blurb  SYSTEM "ports.inc">
d81 2
d84 1
d87 5
d179 1
d297 1
a297 6
    my $ptgzsize = `cat ports.size 2>/dev/null` || "";
    if ($ptgzsize =~ /^\d+$/) {
       $ptgzsize = sprintf("%.0f", $ptgzsize/(1024*1024));
    } else {
       warn "Unknown size for ports.tar.gz\n";
    }
d299 2
a300 1
    $moutf->open(">index.sgml");
a301 3
    header($moutf, "FreeBSD Ports");
#   print $moutf "<!--#include virtual=\"./ports.inc\" -->\n";
    print $moutf "&blurb;";
d303 1
a303 12
<HR>
<H3>ߤξ</H3>
<P>FreeBSD Ports Collection ˤϡ $portnumber Ĥ ports 󶡤Ƥޤ<BR>
<A HREF=\"$baseFTP/ports.tar.gz\">$portnumber Ĥ٤Ƥ ports  tar ǤޤȤ gzip </A>
EOF
     print $moutf "(褽 $ptgzsize ᥬХ)" if ($ptgzsize =~ /^\d+$/);
     print $moutf <<EOF;
ɤ뤫
<A HREF=\"master-index.html\">٤Ƥ ports 򥢥ե٥åȽ¤٤</A> 򸫤뤫
ʲʬफ餿ɤäƤ
<A NAME=\"categories\"></A>
</P>
d341 1
a341 1
	    footer($outf, "<p></p><A HREF=\"index.html#categories\">Port Categories</A>" .
d352 29
a380 1
    # Create the master index file
d386 21
a406 1
    footer($mindex, "<A HREF=\"index.html#categories\">Port ʬ</A>");
@


1.34
log
@o Merge the following from the English version:

	1.24 -> 1.28	www/ja/ports/categories

Submitted by:	 Hiroki Kobayashi <solidsneak _at_ hyper dot cx>
References:	[doc-jp-work 1562, 1579, 1580]

o Merge the following from the English version:

	(new) -> 1.2	www/ja/ports/categories.descriptions
	1.49 -> 1.53	www/ja/ports/portindex
@
text
@d7 1
a7 1
# $FreeBSD: www/ja/ports/portindex,v 1.33 2008/08/25 12:39:17 jkois Exp $
d9 1
a9 1
# Original revision: 1.53
d131 1
a131 1
	if (/^\s*([^,]+),\s*"([^"]+)",([A-Z]+)/) {
d152 1
a152 1
	    $category_groups{$1}=$2 if (/^\s*([^,]+),\s*(.+)/);
d289 7
d305 5
a309 1
<A HREF=\"$baseFTP/ports.tar.gz\">$portnumber Ĥ٤Ƥ ports  tar ǤޤȤ gzip </A> (褽 30 ᥬХ) ɤ뤫
@


1.33
log
@PR: www/123846

Fix the Japanese ports pages.
@
text
@d5 1
a5 1
# by John Fieber <jfieber@@freebsd.org>
d7 1
a7 1
# $FreeBSD: www/ja/ports/portindex,v 1.32 2006/08/19 21:24:43 hrs Exp $
d9 1
a9 1
# Original revision: 1.49
d13 11
d28 2
a29 1
$config = $0 . '.' . 'conf';
d33 1
a38 1
$base = "" if !$base;
d40 1
a40 1
$baseFTP = "$ftpserver/pub/FreeBSD/ports/ports";
d46 1
a46 1
$ftparchive = '';
d50 1
a50 1
$pds = 'http://www.FreeBSD.org/cgi/pds.cgi';
d57 8
a64 5
$today = &getdate;

&packages_exist('packages.exists', *packages);
&category_description(($ARGV[1] || '.') . '/categories', *category_description);
&main;
d67 2
a68 7
#    @@months = ("January", "February", "March", "April", "May","June",
#	       "July", "August", "September", "October", "November", "December");
    ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
    $year += 1900;
#    return "Last modified: $mday-$months[$mon]-$year";
    $mon++;
    return "ǽ: $year ǯ $mon  $mday ";
d72 14
a85 10
    local ($fh, $htext) = @@_;
    print $fh "<!DOCTYPE html PUBLIC \"-//FreeBSD//DTD HTML 4.01 Transitional-Based Extension//EN\" [\n";
    print $fh "<!ENTITY base CDATA '..'>\n";
    print $fh "<!ENTITY date  \"<em>$today</em>\">\n";
    print $fh "<!ENTITY title '$htext'>\n";
    print $fh "<!ENTITY blurb  SYSTEM \"ports.inc\">\n";
    print $fh "<!ENTITY % navinclude.ports \"INCLUDE\">\n";
    print $fh "<!ENTITY email 'ports'>\n";
    print $fh "]>\n";
    print $fh "<html>&header;\n";
d89 10
a98 4
    local ($fh, $ftext) = @@_;
    print $fh "\n$ftext\n";
    print $fh "&footer;\n";
    print $fh "</BODY>\n</HTML>\n";
d102 3
a104 1
    local($file, *p) = @@_;
d113 2
a114 2
       chop;
       $p{$_} = 1;
a116 1
    return 0;
d120 1
a120 1
    local($file, *p) = @@_;
a127 1
    local($category, $description);
d131 7
d139 16
a154 2
	($category, $description) = /^\s*"([^"]+)",\s*"([^"]+)/;
        $p{$category} = $description;
a156 1
    return 0;
d160 13
a172 2

    $sep = "<B>:</B>";
d188 1
d196 1
a196 1
	($name, $loc, $prefix, $desc, $ldesc, $owner, $cats, 
d203 1
a203 1
	@@cat = split("[ \t]+", $cats);
d207 1
a207 1
	local($sourcepath) = $loc;
d215 1
a215 2
	foreach $i (@@cat) {

d218 1
a218 1
    	    # figure out the FTP url
d222 1
a222 1
    	    # The name description and maintainer
d238 3
a240 3
    	    $ownerurl = $owner;
    	    $ownerurl =~ s/&lt;/</g;
    	    $owenrurl =~ s/&gt;/>/g;
d244 6
a249 6
    	    # If there are any dependencies, list them
    	    if ($bdep ne "" || $rdep ne "") {
    	    	$data{$i} .= "<BR><I>ɬפʤ:</I> ";
    	    	@@dep = split(/ /, "$bdep $rdep");
		local($last) = '';
		foreach $j (sort @@dep) {
d252 12
a263 12
     	    	    $data{$i} .= " <A HREF=\"##$j##.html#$j\">$j</A>,";
    	    	}
    	    	# remove the trailing comma
    	    	chop $data{$i};
    	    }

    	    # If the port is listed in more than one category, throw
    	    # in some cross references
    	    if ($#cat > 0) {
    	    	$data{$i} .= "<BR><EM>ˤޤޤƤޤ:</EM> ";
    	    	foreach $j (@@cat) {
    	    	    if ($j ne $i) {
d270 6
a275 6
    	    	    }
    	    	}
    	    	# remove the trailing comma
    	    	chop($data{$i});
    	    }
    	    $data{$i} .= "<P></P></DD>\n"
d281 1
a281 1
	local($sname) = $name; 
d289 38
a326 1
    open(MOUTF, ">index.sgml");
a327 15
    &header(MOUTF, "FreeBSD Ports");
#    print MOUTF "<!--#include virtual=\"./ports.inc\" -->\n";
    print MOUTF "&blurb;";
    print MOUTF "<hr><P>FreeBSD Ports Collection ˤϡ $portnumber Ĥ ports 󶡤Ƥޤ<br> <A HREF=\"$baseFTP/ports.tar.gz\">$portnumber Ĥ٤Ƥ ports  tar ǤޤȤ gzip </A> (褽 21 ᥬХ) ɤ뤫ʲʬफ餿ɤäƤ\n";

    print MOUTF "<UL>\n";

    @@foos = sort(keys %stats);
    foreach $key  (@@foos) {
	# For the master file...
	print MOUTF 
	    "<LI><A HREF=\"$key.html\">\u$key</A> <em>($stats{$key})</em>";
	if ($category_description{$key}) {
	    print MOUTF " -- " . $category_description{$key};
	}
d329 14
a342 14
        # Someone forgot to add a category to the description file
        # or there is a typo in the category field.
#       else {
#           warn "No description found for category: ``$key''!\n";
#           warn "Please fix me or send an E-Mail to doc\@@FreeBSD.org\a\n";
#           sleep(3);
#       }
	print MOUTF "</LI>\n";

	# Create the category file
	open(OUTF, ">$key.sgml");
	&header(OUTF, "FreeBSD Ports: \u$key");
	if ($category_description{$key}) {
	    print OUTF "<h3>", $category_description{$key}, "</h3>\n";
d344 3
a346 8
	print OUTF "<DL>\n";
	$d = join("\n", sort(split(/\n/, $data{$key})));
    	$d =~ s/##([^#]*)##/$catkey{$1}/g;
	print OUTF $d;
	print OUTF "</DL>\n";
	&footer(OUTF, "<p></p><A HREF=\"index.html\">Port ʬ</A>" .
	    " -- <A HREF=\"master-index.html\"></A>");
	close(OUTF);
d348 2
a349 6
    }
    print MOUTF "</UL>\n";
    print MOUTF 
    	"<UL><LI><A HREF=\"master-index.html\">$portnumber Ĥ ports Ƥ򥢥ե٥åȽ¤٤</A></LI></UL>\n";
    &footer(MOUTF, "");
    close(MOUTF);
d352 6
a357 8
    open(MINDEX, ">master-index.sgml");
    &header(MINDEX, "FreeBSD Ports Collection ");
    print MINDEX "<P>\n";
    print MINDEX sort @@master;
    print MINDEX "</P>";
    &footer(MINDEX, "<A HREF=\"index.html\">Port ʬ</A>");
    close(MINDEX);

@


1.32
log
@www cleanup mega commit:

 - Move includes.nav*.sgml to share/sgml/navibar.ent and
   <lang>/share/sgml/navibar.l10n.ent.

 - Move includes.sgml and includes.xsl to
   share/sgml/common.ent, share/sgml/header.ent, <lang>/share/sgml/l10n.ent,
   and <lang>/share/sgml/header.l10n.ent.

 - Move most of XSLT libraries to share/sgml/*.xsl and
   <lang>/share/sgml/*.xsl.

 - Move news.xml and other *.xml files for the similar purpose
   to share/sgml/*.xml and <lang>/share/sgml/*.xml.

 - Switch to use a custom DTD for HTML document.  Now we use
   "-//FreeBSD//DTD HTML 4.01 Transitional-Based Extension", which is
   HTML 4.01 + some entities previously pulled via
   "<!ENTITY % includes SYSTEM "includes.sgml"> %includes;" line.
   The location of entity file will be resolved by using catalog file.

 - Add DOCTYPE declearation to XML documents.  This makes the followings
   possible:

   * Use of &foo; entities for SGML in an XML file instead of defining
     {$foo} as the same content.

   * &symbolic; entities for Latin characters.

 - Duplicated information between SGML and XML, or English and
   translated doc, has been removed as much as possible.
@
text
@d7 1
a7 1
# $FreeBSD: www/ja/ports/portindex,v 1.31 2005/10/04 16:21:48 hrs Exp $
d29 1
@


1.31
log
@Merge new redesign to Japanese translation.

Submitted by:	Emily Boyd (emilyboyd at emilyboyd dot com)
Sponsored by:	Google Summer of Code 2005
@
text
@d7 1
a7 1
# $FreeBSD: www/ja/ports/portindex,v 1.30 2004/01/10 18:37:59 rushani Exp $
d62 1
a62 1
    print $fh "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\" [\n";
a63 1
    print $fh "<!ENTITY enbase CDATA '../..'>";
d67 1
a67 2
    print $fh "<!ENTITY % navincludes SYSTEM \"../includes.navdownload.sgml\"> %navincludes;\n";
    print $fh "<!ENTITY % includes SYSTEM \"../includes.sgml\">\n";
a68 1
    print $fh "%includes;\n";
@


1.30
log
@Merge the following from the English version:

   1.12  -> 1.14    copyright/freebsd-license.sgml
   1.9   -> 1.10    copyright/trademarks.sgml
   1.9   -> 1.10    docproj/Makefile
   1.30  -> 1.38    internal/Makefile
   1.47  -> 1.48    internal/machines.sgml
   1.13  -> 1.14    java/dists/13.sgml
   1.6   -> 1.7     java/dists/14.sgml
   1.18  -> 1.20    java/index.sgml
   1.37  -> 1.38    java/newsflash.sgml
   1.48  -> 1.49    ports/portindex
   1.7   -> 1.14    projects/Makefile
   1.33  -> 1.36    projects/newbies.sgml
   1.153 -> 1.154   projects/projects.sgml
   1.92  -> 1.93    search/search.sgml
   1.68  -> 1.69    search/web.atoz
   1.8   -> 1.9     security/Makefile
   1.148 -> 1.149   security/security.sgml
   1.31  -> 1.35    send-pr.sgml
@
text
@d7 1
a7 1
# $FreeBSD: www/ja/ports/portindex,v 1.29 2003/09/25 17:10:22 rushani Exp $
d62 1
a62 1
    print $fh "<!DOCTYPE html PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\" [\n";
d68 1
@


1.29
log
@Merge the following from the English version:

   1.43  -> 1.48  ports/portindex
@
text
@d7 1
a7 1
# $FreeBSD: www/ja/ports/portindex,v 1.28 2002/03/17 05:10:13 kuriyama Exp $
d9 1
a9 1
# Original revision: 1.48
d244 1
a244 1
    print MOUTF "<hr><P>FreeBSD Ports Collection ˤϡ $portnumber Ĥ ports 󶡤Ƥޤ<br> <A HREF=\"$baseFTP/ports.tar.gz\">$portnumber Ĥ٤Ƥ ports  tar ǤޤȤ gzip </A> (褽 19 ᥬХ) ɤ뤫ʲʬफ餿ɤäƤ\n";
@


1.28
log
@MFen (HTML 4.01 transition).
@
text
@d7 1
a7 1
# $FreeBSD: www/ja/ports/portindex,v 1.27 2002/03/04 13:07:32 hanai Exp $
d9 1
a9 1
# Original revision: 1.43
d28 1
a28 1
$baseFTP = "$ftpserver/pub/FreeBSD/branches/-current/";
d169 1
a169 1
	    $loc =~ s/\/usr\//$baseFTP/;
d176 3
a178 1
	    if ($packages{"$name.tgz"}) { 
d244 1
a244 1
    print MOUTF "<hr><P>FreeBSD Ports Collection ˤϡ $portnumber Ĥ ports 󶡤Ƥޤ<br> <A HREF=\"$baseFTP/ports.tar.gz\">$portnumber Ĥ٤Ƥ ports  tar ǤޤȤ gzip </A> (褽 15 ᥬХ) ɤ뤫ʲʬफ餿ɤäƤ\n";
@


1.27
log
@use japanese chars for punctuation and quote.

submitted by: rio@@tokyoalley.net
@
text
@d7 1
a7 1
# $FreeBSD: www/ja/ports/portindex,v 1.26 2001/11/19 15:35:49 hrs Exp $
d9 1
a9 1
# Original revision: 1.42
d62 1
a62 1
    print $fh "<!DOCTYPE html PUBLIC \"-//W3C//DTD HTML 3.2//EN\" [\n";
@


1.26
log
@Merge the following from the English version:

	1.23  -> 1.25 	mailto.sgml
	1.44  -> 1.45 	publish.sgml
	1.41  -> 1.42 	y2kbug.sgml
	1.29  -> 1.30 	news/Makefile
	1.29  -> 1.31 	news/news.sgml
	1.2   -> 1.3  	news/newsflash.xsl
	1.33  -> 1.34 	ports/Makefile
	1.16  -> 1.17 	ports/categories
	1.41  -> 1.42 	ports/portindex
	1.72  -> 1.74 	search/search.sgml
@
text
@d7 1
a7 1
# $FreeBSD: www/ja/ports/portindex,v 1.25 2001/07/14 16:41:46 hrs Exp $
d242 1
a242 1
    print MOUTF "<hr><P>FreeBSD Ports Collection ˤ,  $portnumber Ĥ ports 󶡤Ƥޤ. <br> <A HREF=\"$baseFTP/ports.tar.gz\">$portnumber Ĥ٤Ƥ ports  tar ǤޤȤ gzip </A> (褽 15 ᥬХ) ɤ뤫, ʲʬफ餿ɤäƤ.\n";
@


1.25
log
@Fix malformed URI and merge from English version (1.40 -> 1.41).
@
text
@d7 1
a7 1
# $FreeBSD: www/ja/ports/portindex,v 1.24 2001/05/21 14:47:09 kuriyama Exp $
d9 1
a9 1
# Original revision: 1.41
d24 1
a24 1
    $ftpserver = 'ftp://ftp.freebsd.org' if !$ftpserver;
d29 1
a29 1
$urlcgi = 'http://www.freebsd.org/cgi/url.cgi' if !$urlcgi;
d37 1
a37 1
$pds = 'http://www.freebsd.org/cgi/pds.cgi';
d63 1
a63 1
    print $fh "<!ENTITY base CDATA '..'>";
d66 1
a66 1
    print $fh "<!ENTITY title '$htext'>";
d69 1
a69 1
    print $fh "<!ENTITY email 'ports'>";
d242 1
a242 1
    print MOUTF "<hr><P>FreeBSD Ports Collection ˤ,  $portnumber Ĥ ports 󶡤Ƥޤ. <br> <A HREF=\"$baseFTP/ports.tar.gz\">Ƥ $portnumber Ĥ ports  tar ǤޤȤ gzip </A> (褽 10 ᥬХ) ɤ뤫, ʲʬफ餿ɤäƤ:\n";
@


1.24
log
@Merge the changes in the English version (1.34 -> 1.40).
@
text
@d7 1
a7 1
# $FreeBSD: www/ja/ports/portindex,v 1.23 2001/01/02 02:22:50 kuriyama Exp $
d9 1
a9 1
# Original revision: 1.40
d24 1
a24 1
    $ftpserver = 'ftp://ftp5.freebsd.org' if !$ftpserver;
d34 1
a34 1
$ftparchive = 'tar' if !defined $ftparchive;
d173 1
a173 1
	    $data{$i} .= "<DT><B><A NAME=\"$name\"></A><A HREF=\"$loc.$ftparchive\">$name</A></B> ";
@


1.23
log
@Merge following changes in the English version.

	1.30 -> 1.31	ports/Makefile
	1.33 -> 1.34	ports/portindex
@
text
@d7 1
a7 1
# $FreeBSD: www/ja/ports/portindex,v 1.22 2001/01/01 18:41:42 hrs Exp $
d9 1
a9 1
# Original revision: 1.34
d24 1
a24 1
    $ftpserver = 'ftp://ftp.freebsd.org' if !$ftpserver;
d26 1
a26 1
$base = "$ftpserver/pub/FreeBSD/branches/-current" if !$base;
d28 1
d33 2
a34 1
$ftparchive = 'tar' if !$ftparchive;
d47 1
a47 1
&category_description(($ARGV[2] || '.') . '/categories', *category_description);
d169 2
a170 2
	    $loc =~ s/\/usr/$base/;
	    $ldesc =~ s/\/usr/$baseHTTP/;
d242 1
a242 1
    print MOUTF "<hr><P>FreeBSD Ports Collection ˤ,  $portnumber Ĥ ports 󶡤Ƥޤ. <br> <A HREF=\"$base/ports.tar.gz\">Ƥ $portnumber Ĥ ports  tar ǤޤȤ gzip </A> (褽 10 ᥬХ) ɤ뤫, ʲʬफ餿ɤäƤ:\n";
@


1.22
log
@- Merge the following from the English version:

	1.91  -> 1.93 	projects/projects.sgml

- Fix malformed &enbase; definition:

	prehtml
	internal/about.sgml
	ports/portindex

Pointed out by:	wosch
@
text
@d7 1
a7 1
# $FreeBSD: www/ja/ports/portindex,v 1.21 2000/12/31 11:08:42 hrs Exp $
d9 1
a9 1
# Original revision: 1.33
a45 1
&y2k_statements;
a47 14
sub y2k_statements {

    open(Y2K, $ARGV[1]);
    while(<Y2K>) {
      chop();
      ( $dir, $url ) = split(/\s+/);
      $dir = $base . "/" . $dir;
      $y2k{$dir} = $url;
      
    }
    close(Y2K);

}

a178 4

	    if ($y2k{"$loc"}) {
		$data{$i} .= qq{ | <a href="$y2k{$loc}">Y2K</a>};
	    }
@


1.21
log
@- Merge the following from the English version:

	1.10  -> 1.12 	java/dists/12.sgml
	1.3   -> 1.4  	java/dists/13.sgml
	1.58  -> 1.60 	search/search.sgml

- Fix URLs using &base; and &enbase;, with some cleanups:

	includes.sgml
	index.sgml
	java/index.sgml
	java/dists/index.sgml
	ports/portindex

- Add new translation and activate it:

	java/Makefile
	java/advocacy.sgml

- Add REVCHECK=YES forgotten in the previous commit:

	smp/Makefile
@
text
@d7 1
a7 1
# $FreeBSD: www/ja/ports/portindex,v 1.20 2000/10/02 07:54:40 kuriyama Exp $
d77 1
a77 1
    print $fh "<!ENTITY enbase CDATA '../../en'>";
@


1.20
log
@Catching up recent Neil's obj-clean commit.

Thank you for your good work, Neil!
@
text
@d7 1
a7 1
# $FreeBSD: www/ja/ports/portindex,v 1.19 2000/04/24 02:13:38 kuriyama Exp $
d77 1
d259 1
a259 1
    print MOUTF "<hr><P>FreeBSD Ports 쥯ˤ,  $portnumber Ĥ ports 󶡤Ƥޤ. <br> <A HREF=\"$base/ports.tar.gz\">Ƥ $portnumber Ĥ ports  tar ǤޤȤ gzip </A> (褽 10 ᥬХ) ɤ뤫, ʲʬफ餿ɤäƤ:\n";
d305 1
a305 1
    &header(MINDEX, "FreeBSD Ports 쥯 ");
@


1.19
log
@Following changes in the English version are merged:

	1.26 -> 1.27	ports/Makefile
	1.8 -> 1.9	ports/categories
	1.30 -> 1.31	ports/portindex
	1.45 -> 1.48	ports/ports.inc

Submitted by:	Shun SUZUKI <si006@@ccm.gs.niigata-u.ac.jp>
Reference:	[doc-jp 7314]
@
text
@d7 1
a7 1
# $FreeBSD: www/ja/ports/portindex,v 1.18 2000/01/10 11:08:47 motoyuki Exp $
d9 1
a9 1
# Original revision: 1.31
d45 1
a45 1
&category_description('categories', *category_description);
d258 1
a258 1
    print MOUTF "<hr><P>FreeBSD Ports 쥯ˤ,  $portnumber Ĥ ports 󶡤Ƥޤ. <br> <A HREF=\"$base/ports.tar.gz\">Ƥ $portnumber Ĥ ports  tar ǤޤȤ gzip </A> (褽 8 ᥬХ) ɤ뤫, ʲʬफ餿ɤäƤ:\n";
@


1.18
log
@Merge the following changes in the English version:

internal/about.sgml     1.31 -> 1.33
internal/developer.sgml 1.6  -> 1.7
news/press-rel-1.sgml   1.2  -> 1.3
news/press-rel-2.sgml   1.2  -> 1.3
news/press-rel-3.sgml   1.2  -> 1.3
news/qnewsletter.sgml   1.16 -> 1.17
ports/categories        1.7  -> 1.8
ports/portindex         1.27 -> 1.30
ports/ports.inc         1.42 -> 1.45
projects/mozilla.sgml   1.9  -> 1.10
projects/newbies.sgml   1.11 -> 1.12
projects/projects.sgml  1.77 -> 1.80
search/search.sgml      1.42 -> 1.44
search/search-mid.sgml  1.5  -> 1.6
security/security.sgml  1.12 -> 1.20
@
text
@d7 1
a7 1
# $FreeBSD: www/ja/ports/portindex,v 1.17 1999/11/14 00:54:39 kuriyama Exp $
d9 1
a9 1
# Original revision: 1.30
d258 1
a258 1
    print MOUTF "<hr><P>FreeBSD Ports 쥯ˤ,  $portnumber Ĥ ports 󶡤Ƥޤ. <br> <A HREF=\"$base/ports.tar.gz\">Ƥ $portnumber Ĥ ports  tar ǤޤȤ gzip </A> (褽 7 ᥬХ) ɤ뤫, ʲʬफ餿ɤäƤ:\n";
@


1.17
log
@MFen: update URL.
@
text
@d7 1
a7 1
# $FreeBSD: www/ja/ports/portindex,v 1.16 1999/10/02 01:19:39 kuriyama Exp $
d9 1
a9 1
# Original revision: 1.27
d68 1
a68 1
#    return "Updated $months[$mon] $mday, $year";
d70 1
a70 1
    return "$year ǯ $mon  $mday ˹ޤ.";
d270 8
d291 2
a292 2
	&footer(OUTF, "<HR><A HREF=\"index.html\">Port ʬ</A>" .
	    " -- <A HREF=\"master-index.html\"></A><HR>");
d308 1
a308 1
    &footer(MINDEX, "<HR><A HREF=\"index.html\">Port ʬ</A><HR>");
@


1.16
log
@MFen:
	1.28  -> 1.30	includes.sgml
	1.17  -> 1.18	internet.sgml
	1.16  -> 1.17	docproj/current.sgml
	1.9   -> 1.11	docproj/sgml.sgml
	1.27  -> 1.28	internal/about.sgml
	1.4   -> 1.5	internal/developer.sgml
	1.16  -> 1.17	news/news.sgml
	1.127 -> 1.135	news/newsflash.sgml
	1.13  -> 1.15	news/qnewsletter.sgml
	1.51  -> 1.53	news/webchanges.sgml
	1.25  -> 1.26	ports/portindex
	1.35  -> 1.41	ports/ports.inc
	1.10  -> 1.11	projects/newbies.sgml
	1.72  -> 1.74	projects/projects.sgml
	1.3   -> 1.7	ports/categories

Submitted by:	Shun SUZUKI <si006@@ccm.gs.niigata-u.ac.jp>
Reviewed by:	kuriyama
@
text
@d7 1
a7 1
# $FreeBSD: www/ja/ports/portindex,v 1.15 1999/09/06 07:03:22 peter Exp $
d9 1
a9 1
# Original revision: 1.26
d26 1
a26 1
$base = "$ftpserver/pub/FreeBSD/FreeBSD-current" if !$base;
@


1.15
log
@$Id$,$Date$ -> $FreeBSD$
The jury is out on $Date$, but it's presently not being expanded..
@
text
@d7 1
a7 1
# $FreeBSD$
d9 1
a9 1
# Original revision: 1.25
d258 1
a258 1
    print MOUTF "<hr><P>FreeBSD Ports 쥯ˤ,  $portnumber Ĥ ports 󶡤Ƥޤ. <br> <A HREF=\"$base/ports.tar.gz\">Ƥ $portnumber Ĥ ports  tar ǤޤȤ gzip </A> (褽 5 ᥬХ) ɤ뤫, ʲʬफ餿ɤäƤ:\n";
@


1.14
log
@Merge from English version.
    ports/Makefile  : 1.16 -> 1.22
    ports/portindex : 1.23 -> 1.25
    ports/ports.inc : 1.33 -> 1.35

Submitted by:  Yasuhiro Fukuma <yasuf@@big.or.jp>
               Motoyuki Konno  <motoyuki@@freebsd.org>
@
text
@d7 1
a7 1
# $Id: portindex,v 1.13 1999/03/09 15:13:47 motoyuki Exp $
@


1.13
log
@Merge the following changes in the English version:
    ports/portindex	: 1.19 -> 1.23
    ports/ports.inc	: 1.22 -> 1.32

New translation:
    ports/categories

And related changes:
    Makefile, categories.ja_JP.EUC
@
text
@d7 1
a7 1
# $Id: portindex,v 1.12 1998/10/01 16:54:37 motoyuki Exp $
d9 1
a9 1
# Original revision: 1.23
d46 1
d49 14
d149 2
a150 1
    while (<>) {
d158 1
a158 1
	    $bdep, $rdep) = split('\|');
d194 8
d303 1
@


1.12
log
@Update "Original revision:".
@
text
@d7 1
a7 1
# $Id: portindex,v 1.11 1998/09/30 16:35:17 wosch Exp $
d9 1
a9 1
# Original revision: 1.19
d29 1
a29 1
$packagesURL = "$ftpserver/pub/FreeBSD/packages-stable/All/"
d34 3
d45 1
d96 21
a120 9
    # 'category' translation database
    if (open(CATF, "categories.ja_JP.EUC")) {
	while (<CATF>) {
	    ($a, $b) = split('\|');
	    next if !defined($b);
	    chop($b);
	    $catsLANG{$a} = $b;
	}
    }
d142 1
a142 1
	    $keys, $bdep, $rdep) = split('\|');
d152 3
d176 2
d188 5
a192 2
    	    	foreach $j (@@dep) {
    	    	    $data{$i} .= " <A HREF=\"##$j##.html#$j\">$j</A>,";
a239 4
	# For translation
	$subkey = "";
	$subkey = " ($catsLANG{$key})"
	    if ($catsLANG{$key} ne '');
d242 5
a246 1
	    "<LI><A HREF=\"$key.html\">\u$key$subkey</A> <em>($stats{$key})</em></LI>";
d250 4
a253 4
	$subkey = "";
	$subkey = " / $catsLANG{$key}"
	    if ($catsLANG{$key} ne '');
	&header(OUTF, "FreeBSD Ports: \u$key$subkey");
@


1.11
log
@Undo rev 1.18 which broke the sort order in master-index
Replace `--' with `-=' inside comments as a workaround so
the SGML compiler will not die.
@
text
@d7 1
a7 1
# $Id: portindex,v 1.10 1998/09/21 15:40:08 motoyuki Exp $
d9 1
a9 1
# Original revision: 1.18
@


1.10
log
@Update "Original revision:".
@
text
@d7 1
a7 1
# $Id: portindex,v 1.9 1998/09/20 10:54:41 wosch Exp $
d195 4
d200 1
a200 1
    	    "<STRONG><A HREF=\"$cat[0].html#$name\">$name</A></STRONG> " .
@


1.9
log
@Merge rev 1.18
@
text
@d7 1
a7 1
# $Id: portindex,v 1.8 1998/08/26 15:01:06 motoyuki Exp $
d9 1
a9 1
# Original revision: 1.17
@


1.8
log
@Merge the following changes in the English version:
    doc.ftr         : 1.4 -> 1.5
    ports/Makefile  : 1.15 -> 1.16
    ports/portindex : 1.15 -> 1.17
@
text
@d7 1
a7 1
# $Id: portindex,v 1.7 1998/08/12 13:06:48 hanai Exp $
d196 1
a196 1
    	    "<!-- $name --><STRONG><A HREF=\"$cat[0].html#$name\">$name</A></STRONG> " .
@


1.7
log
@Following changes in the English version are merged.

  ports/portindex  1.12 -> 1.15
  ports/ports.inc  1.20 -> 1.22

Submitted by: Motoyuki Konno <motoyuki@@snipe.rim.or.jp>
@
text
@d7 1
a7 1
# $Id: portindex,v 1.6 1998/08/06 14:37:13 wosch Exp $
d9 1
a9 1
# Original revision: 1.15
d13 7
d21 12
a32 4
$base = "ftp://ftp.freebsd.org/pub/FreeBSD/FreeBSD-current";
$baseHTTP = "ftp://ftp.freebsd.org/pub/FreeBSD/FreeBSD-current";
$urlcgi = 'http://www.freebsd.org/cgi/url.cgi';
$packagesURL = 'ftp://ftp.freebsd.org/pub/FreeBSD/packages-stable/All/';
d150 1
a150 1
	    $data{$i} .= "<DT><B><A NAME=\"$name\"></A><A HREF=\"$loc.tar\">$name</A></B> ";
d206 1
a206 1
    print MOUTF "<hr><P>FreeBSD Ports 쥯ˤ,  $portnumber Ĥ ports 󶡤Ƥޤ. <br> <A HREF=\"$base/ports.tar.gz\">Ƥ $portnumber Ĥ ports  tar ǤޤȤ gzip </A> (褽 4 ᥬХ) ɤ뤫, ʲʬफ餿ɤäƤ:\n";
@


1.6
log
@http://ftp.freebsd.org is dead.
@
text
@d7 1
a7 1
# $Id: portindex,v 1.5 1998/04/25 16:41:06 kuriyama Exp $
d9 1
a9 1
# Original revision: 1.12
d17 1
d26 1
d47 1
d60 17
d136 6
a141 1
	    $data{$i} .= "<DD>$desc<BR><I><A HREF=\"$ldesc\">ܤ</A></I>";
@


1.5
log
@Following changes in the English version are merged.

  includes.sgml:	1.15  --> 1.16
  search.sgml:		1.28  --> 1.29
  support.sgml:		1.48  --> 1.61
  web.atoz:		1.12  --> 1.19
  ports/Makefile:	1.5   --> 1.8
  ports/portindex:	1.11  --> 1.12

Submitted by:	Motoyuki Konno <motoyuki@@snipe.rim.or.jp>
@
text
@d7 1
a7 1
# $Id: portindex,v 1.4 1998/02/12 02:32:52 hanai Exp $
d15 1
a15 1
$baseHTTP = "http://ftp.freebsd.org/pub/FreeBSD/FreeBSD-current";
@


1.4
log
@A new file, comments.ja, describes comments of each port.
Fix portindex command to refer comments.ja.
Reviewed by: Motoyuki Konno <motoyuki@@snipe.rim.or.jp>
Submitted by: Jun Kuriyama <kuriyama@@opt.phys.waseda.ac.jp>
@
text
@d7 1
a7 1
# $Id: portindex,v 1.3 1997/12/26 17:05:23 max Exp $
d9 1
a9 1
# Original revision: 1.11
d16 1
d18 5
@


1.3
log
@Display the Japanese category summary on each category submenu.
Submitted by:	kuriyama@@opt.phys.waseda.ac.jp (Jun Kuriyama)
@
text
@d7 1
a7 1
# $Id: portindex,v 1.2 1997/12/07 15:44:08 max Exp $
d59 1
d64 12
d94 5
@


1.2
log
@Add Japanese description of each ports category.
Submitted by:	kuriyama@@opt.phys.waseda.ac.jp (Jun Kuriyama),
		Motoyuki Konno <motoyuki@@snipe.rim.or.jp>
@
text
@d7 1
a7 1
# $Id: portindex,v 1.1.1.1 1997/11/23 22:23:06 max Exp $
d158 4
a161 1
	&header(OUTF, "FreeBSD Ports: \u$key");
@


1.1
log
@Initial revision
@
text
@d7 1
a7 1
# $Id: portindex,v 1.2 1997/10/26 16:29:42 motoyuki Exp $
d55 9
d148 4
d154 1
a154 1
	    "<LI><A HREF=\"$key.html\">\u$key</A> <em>($stats{$key})</em></LI>";
@


1.1.1.1
log
@Initial import of the Japanese translation of the web pages.
Submitted by:	The FreeBSD Japanese DOcumentation Project
@
text
@@
