diff --git a/ja/ports/portindex b/ja/ports/portindex
index 658f83bb2f..2ba78e6d7c 100755
--- a/ja/ports/portindex
+++ b/ja/ports/portindex
@@ -4,9 +4,9 @@
 #
 # by John Fieber <jfieber@freebsd.org>
 # Mon May 13 10:31:58 EST 1996
-# $FreeBSD: www/ja/ports/portindex,v 1.22 2001/01/01 18:41:42 hrs Exp $
+# $FreeBSD: www/ja/ports/portindex,v 1.23 2001/01/02 02:22:50 kuriyama Exp $
 # The FreeBSD Japanese Documentation Project
-# Original revision: 1.34
+# Original revision: 1.40
 
 ############################################################
 
@@ -21,15 +21,17 @@ do $config if -f $config;
 if ($ENV{'MASTER_FTP_SERVER'}) {
     $ftpserver = $ENV{'MASTER_FTP_SERVER'};
 } else {
-    $ftpserver = 'ftp://ftp.freebsd.org' if !$ftpserver;
+    $ftpserver = 'ftp://ftp5.freebsd.org' if !$ftpserver;
 }
-$base = "$ftpserver/pub/FreeBSD/branches/-current" if !$base;
+$base = "" if !$base;
 $baseHTTP = $base if !$baseHTTP;
+$baseFTP = "$ftpserver/pub/FreeBSD/branches/-current/";
 $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
-$ftparchive = 'tar' if !$ftparchive;
+$ftparchive = '';
+$ftparchive = 'tar' if !defined $ftparchive;
 
 # ports download sources script
 $pds = 'http://www.freebsd.org/cgi/pds.cgi';
@@ -42,7 +44,7 @@ if ($urlcgi) {
 $today = &getdate;
 
 &packages_exist('packages.exists', *packages);
-&category_description(($ARGV[2] || '.') . '/categories', *category_description);
+&category_description(($ARGV[1] || '.') . '/categories', *category_description);
 &main;
 
 sub getdate {
@@ -164,8 +166,8 @@ sub main {
 	    $stats{$i}++;
 
     	    # figure out the FTP url
-	    $loc =~ s/\/usr/$base/;
-	    $ldesc =~ s/\/usr/$baseHTTP/;
+	    $loc =~ s/\/usr\//$baseFTP/;
+	    $ldesc =~ s/\/usr\//$baseHTTP/;
 
     	    # The name description and maintainer
 	    $data{$i} .= "<DT><B><A NAME=\"$name\"></A><A HREF=\"$loc.$ftparchive\">$name</A></B> ";
@@ -237,7 +239,7 @@ sub main {
     &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=\"$base/ports.tar.gz\">���Ƥ� $portnumber �Ĥ� ports �� tar �ǤޤȤ�� gzip �������</A> (���褽 10 �ᥬ�Х���) �����������ɤ��뤫, �ʲ���ʬ�फ�餿�ɤäƤ�������:\n";
+    print MOUTF "<hr><P>FreeBSD Ports Collection �ˤ�, �������� $portnumber �Ĥ� ports ���󶡤���Ƥ��ޤ�. <br> <A HREF=\"$baseFTP/ports.tar.gz\">���Ƥ� $portnumber �Ĥ� ports �� tar �ǤޤȤ�� gzip �������</A> (���褽 10 �ᥬ�Х���) �����������ɤ��뤫, �ʲ���ʬ�फ�餿�ɤäƤ�������:\n";
 
     print MOUTF "<UL>\n";