Index: head/de_DE.ISO8859-1/htdocs/ports/Makefile
===================================================================
--- head/de_DE.ISO8859-1/htdocs/ports/Makefile	(revision 47264)
+++ head/de_DE.ISO8859-1/htdocs/ports/Makefile	(revision 47265)
@@ -1,104 +1,90 @@
 # $FreeBSD$
 # $FreeBSDde: de-www/ports/Makefile,v 1.3 2007/10/28 13:00:38 jkois Exp $
 # basiert auf: 1.49
 
 .if exists(../Makefile.conf)
 .include "../Makefile.conf"
 .endif
 .if exists(../Makefile.inc)
 .include "../Makefile.inc"
 .endif
 .if exists(Makefile.inc)
 .include "Makefile.inc"
 .endif
 
 FETCH_OPT?=	-am
 
 .if defined(PINDEX_OVERRIDE)
 ${INDEX}: ${PINDEX_OVERRIDE}
 	${CP} ${PINDEX_OVERRIDE} ${INDEX}
 .elif defined(NOPORTSNET)
 ${INDEX}: $${PORTSBASE}/${PINDEX}
 	${CP} ${PORTSBASE}/${PINDEX} ${INDEX}
 .else
 ${INDEX}:
 	${FETCH} ${FETCH_OPT} -o ${INDEX}.bz2 ${INDEXURI}.bz2
 	${BUNZIP2} ${INDEX}.bz2
 .endif
 
 HOSTNAME!= hostname
-.if ${HOSTNAME} == "hub.freebsd.org" || ${HOSTNAME} == "freefall.freebsd.org" || ${HOSTNAME} == "www.freebsd.org" || ${HOSTNAME} == "build-web.stream.FreeBSD.org"
+.if ${HOSTNAME} == "freefall.freebsd.org" || ${HOSTNAME} == "build-web.ysv.freebsd.org"
 CLUSTER_MACHINE=	YES
 .endif
 
 # Build the list of available packages, but only on the main FreeBSD machines.
 # Don't build the list if NO_PACKAGES_LINK is set and not empty.
 #
 packages.exists:
 .if defined(CLUSTER_MACHINE) && (!defined(NO_PACKAGES_LINK) || empty(NO_PACKAGES_LINK))
 	@if ${SH} ${.CURDIR}/packages > ${.TARGET}.temp; then \
 		${MV} ${.TARGET}.temp ${.TARGET}; \
 	else \
 		${RM} ${.TARGET}.temp; ${TOUCH} ${.TARGET}; \
 	fi;
 .else
 	${TOUCH} ${.TARGET}
 .endif
 
 Makefile.gen: categories-alpha.xml categories-grouped.xml index.xml \
 	installing.xml master-index.xml references.xml searching.xml \
 	statistics.ent updating.xml .NOTMAIN
 	(	${ECHO_CMD} DOCS= *.xml | ${SED} 's|catalog-cwd\.xml||g';\
 		${ECHO_CMD} -n "DYNAMIC_DOCS= ";\
 		${ECHO_CMD} -n " categories-alpha.xml";\
 		${ECHO_CMD} -n " categories-grouped.xml";\
 		${ECHO_CMD} -n " master-index.xml";\
 		${ECHO_CMD} -n " statistics.ent";\
 	) > Makefile.gen
 	for categoryfile in ${CATEGORYLIST}; do \
 		${ECHO_CMD} -n " $$categoryfile.xml" >> Makefile.gen; \
 	done
 	${ECHO_CMD} >> Makefile.gen
 
-.if defined(CLUSTER_MACHINE)
-PORTS_TARGZ_URL?= ftp://ftp-master.FreeBSD.org/pub/FreeBSD/ports/ports/ports.tar.gz
-.else
-PORTS_TARGZ_URL?= ftp://ftp.FreeBSD.org/pub/FreeBSD/ports/ports/ports.tar.gz
-.endif
-
-ports.size:
-.if defined (NOPORTSNET)
-	touch ${.TARGET}
-.else
-	${RM} -f ${.TARGET}
-	${FETCH} -s ${PORTS_TARGZ_URL} > ${.TARGET}
-.endif
-
 # this builds: categories-alpha.xml, categories-grouped.xml,
 # master-index.xml, statistics.ent, <category>.xml
 CATEGORYLIST=`grep "^[a-z]" categories | sed -e s"/,.*//"`
 categories-alpha.xml: ${INDEX} categories categories.descriptions \
-	packages.exists ports.ent ports.size .NOTMAIN
+	packages.exists ports.ent .NOTMAIN
 	${RM} -f categories-alpha.xml categories-grouped.xml \
 		master-index.xml statistics.ent
 	for categoryfile in ${CATEGORYLIST}; do \
 		rm -f "$$categoryfile.xml"; \
 	done
 	${PORTINDEX} ${INDEX} ${.CURDIR}
 
 install: all beforeinstall
 
 all install clean:
 	cd ${.CURDIR}; \
 		${MAKE} ${MAKEFLAGS} -f ${.CURDIR}/Makefile.inc0 ${.TARGET}
 .if defined(WITH_PORTS_GROWTH)
 	cd growth; \
 		${MAKE} ${MAKEFLAGS} ${.TARGET}
 beforeinstall:
 .else
 beforeinstall:
 	${SED} -i "" -e 's,HREF="growth,href="http://www.FreeBSD.org/ports/growth,' index.html
 	${SED} -i "" -e 's,HREF="growth,href="http://www.FreeBSD.org/ports/growth,' references.html
 .endif
 
 .include "${DOC_PREFIX}/share/mk/web.site.mk"
Index: head/de_DE.ISO8859-1/htdocs/ports/Makefile.inc
===================================================================
--- head/de_DE.ISO8859-1/htdocs/ports/Makefile.inc	(revision 47264)
+++ head/de_DE.ISO8859-1/htdocs/ports/Makefile.inc	(revision 47265)
@@ -1,18 +1,18 @@
 # $FreeBSD$
 # $FreeBSDde: de-www/ports/Makefile.inc,v 1.1 2007/03/31 14:27:06 jkois Exp $
 # basiert auf: 1.10
 
 PORTINDEX=	${PERL} ${.CURDIR}/../../../en_US.ISO8859-1/htdocs/ports/portindex
 INDEX=		INDEX
 PINDEX=		ports/${INDEX}
 
 COOKIE=		${INDEX} Makefile.gen
 
 CLEANFILES+=	${INDEX} ${INDEX}.bz2
 CLEANFILES+=	packages.exists.temp  packages.exists
 CLEANFILES+= 	${DYNAMIC_DOCS}
 CLEANFILES+=	Makefile.gen
-CLEANFILES+=	ports.count ports.size
+CLEANFILES+=	ports.count
 
 _ALLINSTALL= packages.exists categories
 
Index: head/en_US.ISO8859-1/htdocs/ports/Makefile
===================================================================
--- head/en_US.ISO8859-1/htdocs/ports/Makefile	(revision 47264)
+++ head/en_US.ISO8859-1/htdocs/ports/Makefile	(revision 47265)
@@ -1,102 +1,88 @@
 # $FreeBSD$
 
 .if exists(../Makefile.conf)
 .include "../Makefile.conf"
 .endif
 .if exists(../Makefile.inc)
 .include "../Makefile.inc"
 .endif
 .if exists(Makefile.inc)
 .include "Makefile.inc"
 .endif
 
 FETCH_OPT?=	-am
 
 .if defined(PINDEX_OVERRIDE)
 ${INDEX}: ${PINDEX_OVERRIDE}
 	${CP} ${PINDEX_OVERRIDE} ${INDEX}
 .elif defined(NOPORTSNET)
 ${INDEX}: $${PORTSBASE}/${PINDEX}
 	${CP} ${PORTSBASE}/${PINDEX} ${INDEX}
 .else
 ${INDEX}:
 	${FETCH} ${FETCH_OPT} -o ${INDEX}.bz2 ${INDEXURI}.bz2
 	${BUNZIP2} ${INDEX}.bz2
 .endif
 
 HOSTNAME!= hostname
 .if ${HOSTNAME} == "freefall.freebsd.org" || ${HOSTNAME} == "build-web.ysv.freebsd.org"
 CLUSTER_MACHINE=	YES
 .endif
 
 # Build the list of available packages, but only on the main FreeBSD machines.
 # Don't build the list if NO_PACKAGES_LINK is set and not empty.
 #
 packages.exists:
 .if defined(CLUSTER_MACHINE) && (!defined(NO_PACKAGES_LINK) || empty(NO_PACKAGES_LINK))
 	@if ${SH} ${.CURDIR}/packages > ${.TARGET}.temp; then \
 		${MV} ${.TARGET}.temp ${.TARGET}; \
 	else \
 		${RM} ${.TARGET}.temp; ${TOUCH} ${.TARGET}; \
 	fi;
 .else
 	${TOUCH} ${.TARGET}
 .endif
 
 Makefile.gen: categories-alpha.xml categories-grouped.xml index.xml \
 	installing.xml master-index.xml references.xml searching.xml \
 	statistics.ent updating.xml .NOTMAIN
 	(	${ECHO_CMD} DOCS= *.xml | ${SED} 's|catalog-cwd\.xml||g';\
 		${ECHO_CMD} -n "DYNAMIC_DOCS= ";\
 		${ECHO_CMD} -n " categories-alpha.xml";\
 		${ECHO_CMD} -n " categories-grouped.xml";\
 		${ECHO_CMD} -n " master-index.xml";\
 		${ECHO_CMD} -n " statistics.ent";\
 	) > Makefile.gen
 	for categoryfile in ${CATEGORYLIST}; do \
 		${ECHO_CMD} -n " $$categoryfile.xml" >> Makefile.gen; \
 	done
 	${ECHO_CMD} >> Makefile.gen
 
-.if defined(CLUSTER_MACHINE)
-PORTS_TARGZ_URL?= ftp://ftp-master.FreeBSD.org/pub/FreeBSD/ports/ports/ports.tar.gz
-.else
-PORTS_TARGZ_URL?= ftp://ftp.FreeBSD.org/pub/FreeBSD/ports/ports/ports.tar.gz
-.endif
-
-ports.size:
-.if defined (NOPORTSNET)
-	touch ${.TARGET}
-.else
-	${RM} -f ${.TARGET}
-	${FETCH} -s ${PORTS_TARGZ_URL} > ${.TARGET}
-.endif
-
 # this builds: categories-alpha.xml, categories-grouped.xml,
 # master-index.xml, statistics.ent, <category>.xml
 CATEGORYLIST=`grep "^[a-z]" categories | sed -e s"/,.*//"`
 categories-alpha.xml: ${INDEX} categories categories.descriptions \
-	packages.exists portindex ports.ent ports.size .NOTMAIN
+	packages.exists portindex ports.ent .NOTMAIN
 	${RM} -f categories-alpha.xml categories-grouped.xml \
 		master-index.xml statistics.ent
 	for categoryfile in ${CATEGORYLIST}; do \
 		rm -f "$$categoryfile.xml"; \
 	done
 	${PORTINDEX} ${INDEX} ${.CURDIR}
 
 install: all beforeinstall
 
 all install clean:
 	cd ${.CURDIR}; \
 		${MAKE} ${MAKEFLAGS} -f ${.CURDIR}/Makefile.inc0 ${.TARGET}
 .if defined(WITH_PORTS_GROWTH)
 	cd growth; \
 		${MAKE} ${MAKEFLAGS} ${.TARGET}
 beforeinstall:
 .else
 beforeinstall:
 	${SED} -i "" -e 's,href="growth,href="http://www.FreeBSD.org/ports/growth,' index.html
 	${SED} -i "" -e 's,href="growth,href="http://www.FreeBSD.org/ports/growth,' references.html
 .endif
 
 .include "${DOC_PREFIX}/share/mk/web.site.mk"
Index: head/en_US.ISO8859-1/htdocs/ports/Makefile.inc
===================================================================
--- head/en_US.ISO8859-1/htdocs/ports/Makefile.inc	(revision 47264)
+++ head/en_US.ISO8859-1/htdocs/ports/Makefile.inc	(revision 47265)
@@ -1,16 +1,16 @@
 # $FreeBSD$
 
 PORTINDEX=	${PERL} ${.CURDIR}/portindex
 INDEX=		INDEX
 PINDEX=		ports/${INDEX}
 
 COOKIE=		${INDEX} Makefile.gen
 
 CLEANFILES+=	${INDEX} ${INDEX}.bz2
 CLEANFILES+=	packages.exists.temp  packages.exists
 CLEANFILES+= 	${DYNAMIC_DOCS}
 CLEANFILES+=	Makefile.gen
-CLEANFILES+=	ports.count ports.size
+CLEANFILES+=	ports.count
 
 _ALLINSTALL= packages.exists categories
 
Index: head/en_US.ISO8859-1/htdocs/ports/installing.xml
===================================================================
--- head/en_US.ISO8859-1/htdocs/ports/installing.xml	(revision 47264)
+++ head/en_US.ISO8859-1/htdocs/ports/installing.xml	(revision 47265)
@@ -1,42 +1,36 @@
 <?xml version="1.0" encoding="iso-8859-1"?>
 <!DOCTYPE html PUBLIC "-//FreeBSD//DTD XHTML 1.0 Transitional-Based Extension//EN"
 "http://www.FreeBSD.org/XML/share/xml/xhtml10-freebsd.dtd" [
 <!ENTITY title 'Installing the FreeBSD Ports Collection'>
 <!ENTITY % ports.ent SYSTEM "ports.ent">
 %ports.ent;
 <!ENTITY email 'ports'>
 %statistics.ent;
 ]>
 <html xmlns="http://www.w3.org/1999/xhtml"><head>
       <title>&title;</title>
 
       <cvs:keyword
 	xmlns:cvs="http://www.FreeBSD.org/XML/CVS">$FreeBSD$</cvs:keyword>
     </head>
 
     <body class="navinclude.ports">
 
 &searchform;
 
 <hr/>
 
 <p>The &os; installer programs allow the Ports Collection to be
   installed at the same time as the operating system.  See <a
     href="&base;/cgi/man.cgi?query=bsdinstall"><tt>bsdinstall</tt></a>
   for &os;&nbsp;9.X and later versions, or <a
     href="&base;/cgi/man.cgi?query=sysinstall"><tt>sysinstall</tt></a>
   for &os;&nbsp;8.X and earlier versions.</p>
 
 <p>If the Ports Collection is not initially installed, it can be added
   with <a
     href="&base;/doc/en_US.ISO8859-1/books/handbook/ports-using.html"><tt>portsnap</tt></a>
   or <a
     href="&base;/doc/en_US.ISO8859-1/books/handbook/svn.html">Subversion</a>.</p>
-
-<p>A <a
-    href="ftp://ftp.FreeBSD.org/pub/FreeBSD/ports/ports/ports.tar.gz">gzipped
-  tarball of the Ports Collection</a> can also be downloaded.  The
-  current size of the file is &ports.size;.</p>
-
 </body>
 </html>
Index: head/en_US.ISO8859-1/htdocs/ports/portindex
===================================================================
--- head/en_US.ISO8859-1/htdocs/ports/portindex	(revision 47264)
+++ head/en_US.ISO8859-1/htdocs/ports/portindex	(revision 47265)
@@ -1,380 +1,370 @@
 #!/usr/bin/perl -w
 
 # convert a ports INDEX file to XML files
 #
 # by John Fieber <jfieber@FreeBSD.org>
 # Mon May 13 10:31:58 EST 1996
 # $FreeBSD$
 # basiert auf: 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;
 }
 my $baseFTP = "$ftpserver/pub/FreeBSD/ports/ports";
 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;
 
 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 POSIX::strftime("%d-%B-%Y", localtime);
 }
 
 sub header {
     my $fh = shift;
     my $htext = shift;
     #local($fh, $htext) = @_;
     print $fh <<EOF;
 <?xml version="1.0" encoding="iso-8859-1"?>
 <!DOCTYPE html PUBLIC "-//FreeBSD//DTD XHTML 1.0 Transitional-Based Extension//EN"
 "http://www.FreeBSD.org/XML/share/xml/xhtml10-freebsd.dtd" [
 <!ENTITY base '..'>
 <!ENTITY % navinclude.ports "INCLUDE">
 <!ENTITY % ports.ent SYSTEM "ports.ent">
 %ports.ent;
 <!ENTITY email 'ports'>
 %statistics.ent;
 ]>
 <html xmlns="http://www.w3.org/1999/xhtml">
   <head>
     <title>$htext</title>
 
     <cvs:keyword xmlns:cvs=\"http://www.FreeBSD.org/XML/CVS\">x x x $today x x x</cvs:keyword>
   </head>
 
   <body class="navinclude.port">
 
 &searchform;
 
 <hr/>
 
 EOF
 }
 
 sub footer {
     my $fh = shift;
     my $ftext = shift;
     #local ($fh, $ftext) = @_;
 print $fh <<EOF;
 
 $ftext
 </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 $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;
 
     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];
 
 	foreach my $i (sort(@cat)) {
 	    $stats{$i}++;
 
 	    # figure out the FTP url
 	    $loc =~ s%/usr/ports/%$baseSVNWEB%;
 	    $ldesc =~ s%/usr/ports/%$baseSVNWEB%;
 	    $ldesc .= '?revision=HEAD';
 
 	    # The name description and maintainer
 	    $name =~ s/,.*//g;
 	    $name =~ s/\++//g;
 	    $data{$i} .= "<dt><b><a name=\"$name\"></a><a href=\"$loc$ftparchive\">$name</a></b></dt>";
      
 
 	    $data{$i} .= "<dd>$desc<br/><a href=\"$ldesc\">Long description</a>";
 	    if ($packages{"$name.tbz"}) { 
 		$data{$i} .= qq{ | <a href="$packagesURL$name.tbz">Package</a>};
 	    } elsif ($packages{"$name.tgz"}) { 
 		$data{$i} .= qq{ | <a href="$packagesURL$name.tgz">Package</a>};
 	    }
 
 	    $data{$i} .= qq{ | <a href="$loc/?view=log">Changes</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>Maintained by:</i> <a href=\"mailto:$ownerurl\">$owner</a>";
 
 	    # If there are any dependencies, list them
 	    if ($bdep ne "" || $rdep ne "") {
 		$data{$i} .= "<br/><i>Requires:</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>Also listed in:</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 XML syntax, `--' 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.xml and <category>.xml
 
     $moutf->open(">categories-grouped.xml");
     header($moutf, "FreeBSD Ports Categories Listed By Groups");
 
     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.xml");
 	    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.xml
 
     $moutf->open(">categories-alpha.xml");
     header($moutf, "FreeBSD Ports Categories Listed Alphabetically");
 
     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.xml
 
     $mindex->open(">master-index.xml");
     header($mindex, "FreeBSD Ports Collection Index");
     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");
-
-    my $ptgzsize = `cat ports.size 2>/dev/null` || "";
-    if ($ptgzsize =~ /^\d+$/) {
-       $ptgzsize = sprintf("%.0f", $ptgzsize/(1024*1024));
-       print $statistics "<!ENTITY ports.size 'about $ptgzsize megabytes'>\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);
 }
Index: head/ja_JP.eucJP/htdocs/ports/Makefile
===================================================================
--- head/ja_JP.eucJP/htdocs/ports/Makefile	(revision 47264)
+++ head/ja_JP.eucJP/htdocs/ports/Makefile	(revision 47265)
@@ -1,110 +1,96 @@
 # $FreeBSD$
 # The FreeBSD Japanese Documentation Project
 # Original revision: r39545
 
 .if exists(../Makefile.conf)
 .include "../Makefile.conf"
 .endif
 .if exists(../Makefile.inc)
 .include "../Makefile.inc"
 .endif
 .if exists(${DOC_PREFIX}/en_US.ISO8859-1/htdocs/ports/Makefile.inc)
 .include "${DOC_PREFIX}/en_US.ISO8859-1/htdocs/ports/Makefile.inc"
 .endif
 
 FETCH_OPT?=	-am
 
 .if defined(PINDEX_OVERRIDE)
 ${INDEX}: ${PINDEX_OVERRIDE}
 	${CP} ${PINDEX_OVERRIDE} ${INDEX}
 .elif defined(NOPORTSNET)
 ${INDEX}: $${PORTSBASE}/${PINDEX}
 	${CP} ${PORTSBASE}/${PINDEX} ${INDEX}
 .else
 ${INDEX}:
 	${FETCH} ${FETCH_OPT} -o ${INDEX}.bz2 ${INDEXURI}.bz2
 	${BUNZIP2} ${INDEX}.bz2
 .endif
 
 HOSTNAME!= hostname
-.if ${HOSTNAME} == "hub.freebsd.org" || ${HOSTNAME} == "freefall.freebsd.org" || ${HOSTNAME} == "www.freebsd.org" || ${HOSTNAME} == "build-web.stream.FreeBSD.org"
+.if ${HOSTNAME} == "freefall.freebsd.org" || ${HOSTNAME} == "build-web.ysv.freebsd.org"
 CLUSTER_MACHINE=	YES
 .endif
 
 # Build the list of available packages, but only on the main FreeBSD machines.
 # Don't build the list if NO_PACKAGES_LINK is set and not empty.
 #
 packages.exists:
 .if defined(CLUSTER_MACHINE) && (!defined(NO_PACKAGES_LINK) || empty(NO_PACKAGES_LINK))
 .if  exists(${DOC_PREFIX}/en_US.ISO8859-1/htdocs/ports/packages.exists)
 	cp ${DOC_PREFIX}/en_US.ISO8859-1/htdocs/ports/${.TARGET} .
 .else
 	@if ${SH} ${DOC_PREFIX}/en_US.ISO8859-1/htdocs/ports/packages > ${.TARGET}.temp; then \
 		${MV} ${.TARGET}.temp ${.TARGET}; \
 	else \
 		${RM} ${.TARGET}.temp; ${TOUCH} ${.TARGET}; \
 	fi;
 .endif
 .else
 	${TOUCH} ${.TARGET}
 .endif
 
 Makefile.gen: categories-alpha.xml categories-grouped.xml index.xml \
 	installing.xml master-index.xml references.xml searching.xml \
 	statistics.ent updating.xml .NOTMAIN
 	(	${ECHO_CMD} DOCS= *.xml | ${SED} 's|catalog-cwd\.xml||g';\
 		${ECHO_CMD} -n "DYNAMIC_DOCS= ";\
 		${ECHO_CMD} -n " categories-alpha.xml";\
 		${ECHO_CMD} -n " categories-grouped.xml";\
 		${ECHO_CMD} -n " master-index.xml";\
 		${ECHO_CMD} -n " statistics.ent";\
 	) > Makefile.gen
 	for categoryfile in ${CATEGORYLIST}; do \
 		${ECHO_CMD} -n " $$categoryfile.xml" >> Makefile.gen; \
 	done
 	${ECHO_CMD} >> Makefile.gen
 
-.if defined(CLUSTER_MACHINE)
-PORTS_TARGZ_URL?= ftp://ftp-master.FreeBSD.org/pub/FreeBSD/ports/ports/ports.tar.gz
-.else
-PORTS_TARGZ_URL?= ftp://ftp.FreeBSD.org/pub/FreeBSD/ports/ports/ports.tar.gz
-.endif
-
-ports.size:
-.if defined (NOPORTSNET)
-	touch ${.TARGET}
-.else
-	${RM} -f ${.TARGET}
-	${FETCH} -s ${PORTS_TARGZ_URL} > ${.TARGET}
-.endif
-
 # this builds: categories-alpha.xml, categories-grouped.xml,
 # master-index.xml, statistics.ent, <category>.xml
 CATEGORYLIST=`grep "^[a-z]" ${DOC_PREFIX}/en_US.ISO8859-1/htdocs/ports/categories | sed -e s"/,.*//"`
 categories-alpha.xml: ${INDEX} categories categories.descriptions \
-	packages.exists portindex ports.ent ports.size .NOTMAIN
+	packages.exists portindex ports.ent .NOTMAIN
 	${RM} -f categories-alpha.xml categories-grouped.xml \
 		master-index.xml statistics.ent
 	for categoryfile in ${CATEGORYLIST}; do \
 		rm -f "$$categoryfile.xml"; \
 	done
 	${PORTINDEX} ${INDEX} ${.CURDIR}
 
 install: all beforeinstall
 
 all install clean:
 	cd ${.CURDIR}; \
 		${MAKE} ${MAKEFLAGS} -f ${.CURDIR}/Makefile.inc0 ${.TARGET}
 .if defined(WITH_PORTS_GROWTH)
 # Because We refer www/ports/growth/status.png on web site from ports.inc,
 # don't need to have local version of the image file.
 #	cd growth; \
 #		${MAKE} ${MAKEFLAGS} ${.TARGET}
 beforeinstall:
 .else
 beforeinstall:
 	${SED} -i "" -e 's,href="growth,href="http://www.FreeBSD.org/ports/growth,' index.html
 	${SED} -i "" -e 's,href="growth,href="http://www.FreeBSD.org/ports/growth,' references.html
 .endif
 
 .include "${DOC_PREFIX}/share/mk/web.site.mk"
Index: head/ja_JP.eucJP/htdocs/ports/installing.xml
===================================================================
--- head/ja_JP.eucJP/htdocs/ports/installing.xml	(revision 47264)
+++ head/ja_JP.eucJP/htdocs/ports/installing.xml	(revision 47265)
@@ -1,42 +1,42 @@
 <?xml version="1.0" encoding="euc-jp"?>
 <!DOCTYPE html PUBLIC "-//FreeBSD//DTD XHTML 1.0 Transitional-Based Extension//EN"
 "http://www.FreeBSD.org/XML/share/xml/xhtml10-freebsd.dtd" [
 <!ENTITY title 'FreeBSD Ports Collection ¤Î¥¤¥ó¥¹¥È¡¼¥ë'>
 <!ENTITY % ports.ent SYSTEM "ports.ent">
 %ports.ent;
 <!ENTITY email 'ports'>
 %statistics.ent;
 ]>
 <!-- The FreeBSD Japanese Documentation Project -->
 <!-- Original revision: r43770 -->
 
 <html xmlns="http://www.w3.org/1999/xhtml"><head>
       <title>&title;</title>
 
       <cvs:keyword xmlns:cvs="http://www.FreeBSD.org/XML/CVS">$FreeBSD$</cvs:keyword>
     </head>
 
     <body class="navinclude.ports">
 
 &searchform;
 
 <hr/>
 
 <p>&os; ¤Î¥¤¥ó¥¹¥È¡¼¥é¤Ï¡¢¥ª¥Ú¥ì¡¼¥Æ¥£¥ó¥°¥·¥¹¥Æ¥à¤Î¥¤¥ó¥¹¥È¡¼¥ë¤È¤È¤â¤Ë¡¢
   Ports Collection ¤Î¥¤¥ó¥¹¥È¡¼¥ë¤Ë¤â»È¤¨¤Þ¤¹¡£
   &os;&nbsp;9.X °Ê¹ß¤Ç¤Ï
   <a href="&base;/cgi/man.cgi?query=bsdinstall"><tt>bsdinstall</tt></a>¡¢
   &os;&nbsp;8.X ¤è¤êÁ°¤Î¥Ð¡¼¥¸¥ç¥ó¤Ç¤Ï¡¢
   <a href="&base;/cgi/man.cgi?query=sysinstall"><tt>sysinstall</tt></a>
   ¤ò¤´Í÷¤¯¤À¤µ¤¤¡£</p>
 
 <p>¥ª¥Ú¥ì¡¼¥Æ¥£¥ó¥°¥·¥¹¥Æ¥à¤Î¥¤¥ó¥¹¥È¡¼¥ë»þ¤Ë
   Ports Colllection ¤ò¥¤¥ó¥¹¥È¡¼¥ë¤·¤Ê¤«¤Ã¤¿¤Î¤Ç¤¢¤ì¤Ð¡¢
   <a href="&enbase;/doc/ja_JP.eucJP/books/handbook/ports-using.html"><tt>portsnap</tt></a>
   ¤Þ¤¿¤Ï
   <a href="&enbase;/doc/ja_JP.eucJP/books/handbook/svn.html">Subversion</a>
   ¤ò»È¤Ã¤Æ¥¤¥ó¥¹¥È¡¼¥ë¤·¤Æ¤¯¤À¤µ¤¤¡£
-  ¸½ºß¤Î¥Õ¥¡¥¤¥ë¤Î¥µ¥¤¥º¤Ï &ports.size; ¤Ç¤¹¡£</p>
+  ¸½ºß¤Î¥Õ¥¡¥¤¥ë¤Î¥µ¥¤¥º¤Ï <!-- &ports.size; --> ¤Ç¤¹¡£</p>
 
 </body>
 </html>
Index: head/ja_JP.eucJP/htdocs/ports/portindex
===================================================================
--- head/ja_JP.eucJP/htdocs/ports/portindex	(revision 47264)
+++ head/ja_JP.eucJP/htdocs/ports/portindex	(revision 47265)
@@ -1,415 +1,406 @@
 #!/usr/bin/perl
 
 # convert a ports INDEX file to XML files
 #
 # by John Fieber <jfieber@FreeBSD.org>
 # Mon May 13 10:31:58 EST 1996
 # $FreeBSD$
 # 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;
 <?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" [
 <!ENTITY base '..'>
 <!ENTITY % navinclude.ports "INCLUDE">
 <!ENTITY % ports.ent SYSTEM "ports.ent">
 %ports.ent;
 <!ENTITY email 'ports'>
 %statistics.ent;
 ]>
 
 <html xmlns="http://www.w3.org/1999/xhtml">
   <head>
     <title>$htext</title>
 
     <cvs:keyword xmlns:cvs=\"http://www.FreeBSD.org/XML/CVS\">x x x $today x x x</cvs:keyword>
   </head>
 
   <body class="navinclude.port">
 
 &searchform;
 
 <hr/>
 
 EOF
 }
 
 sub footer {
     my $fh = shift;
     my $ftext = shift;
     #local ($fh, $ftext) = @_;
 print $fh <<EOF;
 
 $ftext
 </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
 	    $name =~ s/,.*//g;
 	    $name =~ s/\++//g;
 	    $data{$i} .= "<dt><b><a name=\"$name\"></a><a href=\"${loc}${ftparchive}\">$name</a></b></dt> ";
 
 	    $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 XML syntax, `--' 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.xml and <category>.xml
 
     $moutf->open(">categories-grouped.xml");
     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.xml");
 	    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.xml
 
     $moutf->open(">categories-alpha.xml");
     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>\n";
 	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.xml
 
     $mindex->open(">master-index.xml");
     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");
 
-    my $ptgzsize = `cat ports.size 2>/dev/null` || "";
-    if ($ptgzsize =~ /^\d+$/) {
-       $ptgzsize = sprintf("%.0f", $ptgzsize/(1024*1024));
-       print $statistics "<?xml version=\"1.0\" encoding=\"euc-jp\"?>\n";
-       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);
 }
Index: head/ru_RU.KOI8-R/htdocs/ports/Makefile
===================================================================
--- head/ru_RU.KOI8-R/htdocs/ports/Makefile	(revision 47264)
+++ head/ru_RU.KOI8-R/htdocs/ports/Makefile	(revision 47265)
@@ -1,109 +1,95 @@
 #
 # The FreeBSD Russian Documentation Project
 #
 # $FreeBSD$
 # $FreeBSDru: frdp/www/ru/ports/Makefile,v 1.9 2004/03/23 21:09:19 phantom Exp $
 #
 # Original revision: r39632
 #
 
 .if exists(../Makefile.conf)
 .include "../Makefile.conf"
 .endif
 .if exists(../Makefile.inc)
 .include "../Makefile.inc"
 .endif
 .if exists(Makefile.inc)
 .include "Makefile.inc"
 .endif
 
 FETCH_OPT?=	-am
 
 .if defined(PINDEX_OVERRIDE)
 ${INDEX}: ${PINDEX_OVERRIDE}
 	${CP} ${PINDEX_OVERRIDE} ${INDEX}
 .elif defined(NOPORTSNET)
 ${INDEX}: $${PORTSBASE}/${PINDEX}
 	${CP} ${PORTSBASE}/${PINDEX} ${INDEX}
 .else
 ${INDEX}:
 	${FETCH} ${FETCH_OPT} -o ${INDEX}.bz2 ${INDEXURI}.bz2
 	${BUNZIP2} ${INDEX}.bz2
 .endif
 
 HOSTNAME!= hostname
-.if ${HOSTNAME} == "hub.freebsd.org" || ${HOSTNAME} == "freefall.freebsd.org" || ${HOSTNAME} == "www.freebsd.org" || ${HOSTNAME} == "build-web.stream.FreeBSD.org"
+.if ${HOSTNAME} == "freefall.freebsd.org" || ${HOSTNAME} == "build-web.ysv.freebsd.org"
 CLUSTER_MACHINE=	YES
 .endif
 
 # Build the list of available packages, but only on the main FreeBSD machines.
 # Don't build the list if NO_PACKAGES_LINK is set and not empty.
 #
 packages.exists:
 .if defined(CLUSTER_MACHINE) && (!defined(NO_PACKAGES_LINK) || empty(NO_PACKAGES_LINK))
 	@if ${SH} ${.CURDIR}/packages > ${.TARGET}.temp; then \
 		${MV} ${.TARGET}.temp ${.TARGET}; \
 	else \
 		${RM} ${.TARGET}.temp; ${TOUCH} ${.TARGET}; \
 	fi;
 .else
 	${TOUCH} ${.TARGET}
 .endif
 
 Makefile.gen: categories-alpha.xml categories-grouped.xml index.xml \
 	installing.xml master-index.xml references.xml searching.xml \
 	statistics.ent updating.xml .NOTMAIN
 	(	${ECHO_CMD} DOCS= *.xml | ${SED} 's|catalog-cwd\.xml||g';\
 		${ECHO_CMD} -n "DYNAMIC_DOCS= ";\
 		${ECHO_CMD} -n " categories-alpha.xml";\
 		${ECHO_CMD} -n " categories-grouped.xml";\
 		${ECHO_CMD} -n " master-index.xml";\
 		${ECHO_CMD} -n " statistics.ent";\
 	) > Makefile.gen
 	for categoryfile in ${CATEGORYLIST}; do \
 		${ECHO_CMD} -n " $$categoryfile.xml" >> Makefile.gen; \
 	done
 	${ECHO_CMD} >> Makefile.gen
 
-.if defined(CLUSTER_MACHINE)
-PORTS_TARGZ_URL?= ftp://ftp-master.FreeBSD.org/pub/FreeBSD/ports/ports/ports.tar.gz
-.else
-PORTS_TARGZ_URL?= ftp://ftp.FreeBSD.org/pub/FreeBSD/ports/ports/ports.tar.gz
-.endif
-
-ports.size:
-.if defined (NOPORTSNET)
-	touch ${.TARGET}
-.else
-	${RM} -f ${.TARGET}
-	${FETCH} -s ${PORTS_TARGZ_URL} > ${.TARGET}
-.endif
-
 # this builds: categories-alpha.xml, categories-grouped.xml,
 # master-index.xml, statistics.ent, <category>.xml
 CATEGORYLIST=`grep "^[a-z]" categories | awk -F, '{print $$1}'`
 categories-alpha.xml: ${INDEX} categories categories.descriptions \
-	packages.exists portindex ports.ent ports.size .NOTMAIN
+	packages.exists portindex ports.ent .NOTMAIN
 	${RM} -f categories-alpha.xml categories-grouped.xml \
 		master-index.xml statistics.ent
 	for categoryfile in ${CATEGORYLIST}; do \
 		rm -f "$$categoryfile.xml"; \
 	done
 	${PORTINDEX} ${INDEX} ${.CURDIR}
 
 install: all beforeinstall
 
 all install clean:
 	cd ${.CURDIR}; \
 		${MAKE} ${MAKEFLAGS} -f ${.CURDIR}/Makefile.inc0 ${.TARGET}
 .if defined(WITH_PORTS_GROWTH)
 	cd growth; \
 		${MAKE} ${MAKEFLAGS} ${.TARGET}
 beforeinstall:
 .else
 beforeinstall:
 	${SED} -i "" -e 's,href="growth,href="http://www.FreeBSD.org/ports/growth,' index.html
 	${SED} -i "" -e 's,href="growth,href="http://www.FreeBSD.org/ports/growth,' references.html
 .endif
 
 .include "${DOC_PREFIX}/share/mk/web.site.mk"
Index: head/ru_RU.KOI8-R/htdocs/ports/Makefile.inc
===================================================================
--- head/ru_RU.KOI8-R/htdocs/ports/Makefile.inc	(revision 47264)
+++ head/ru_RU.KOI8-R/htdocs/ports/Makefile.inc	(revision 47265)
@@ -1,23 +1,23 @@
 #
 # The FreeBSD Russian Documentation Project
 #
 # $FreeBSD$
 # $FreeBSDru: frdp/www/ru/ports/Makefile.inc,v 1.3 2004/01/06 17:28:41 andy Exp $
 #
 #  Original revision: r39534
 #
 
 PORTINDEX=	${PERL} ${.CURDIR}/portindex
 INDEX=		INDEX
 PINDEX=		ports/${INDEX}
 
 COOKIE=		${INDEX} Makefile.gen
 
 CLEANFILES+=	${INDEX} ${INDEX}.bz2
 CLEANFILES+=	packages.exists.temp  packages.exists
 CLEANFILES+= 	${DYNAMIC_DOCS}
 CLEANFILES+=	Makefile.gen
-CLEANFILES+=	ports.count ports.size
+CLEANFILES+=	ports.count
 
 _ALLINSTALL= packages.exists categories
 
Index: head/ru_RU.KOI8-R/htdocs/ports/installing.xml
===================================================================
--- head/ru_RU.KOI8-R/htdocs/ports/installing.xml	(revision 47264)
+++ head/ru_RU.KOI8-R/htdocs/ports/installing.xml	(revision 47265)
@@ -1,39 +1,39 @@
 <?xml version="1.0" encoding="koi8-r"?>
 <!DOCTYPE html PUBLIC "-//FreeBSD//DTD XHTML 1.0 Transitional-Based Extension//EN"
 "http://www.FreeBSD.org/XML/share/xml/xhtml10-freebsd.dtd" [
 <!ENTITY title 'õÓÔÁÎÏ×ËÁ ëÏÌÌÅËÃÉÉ ÐÏÒÔÏ× FreeBSD'>
 <!ENTITY % ports.ent SYSTEM "ports.ent">
 %ports.ent;
 <!ENTITY email 'ports'>
 %statistics.ent;
 ]>
 
 <!--
      $FreeBSD$
 
      Original revision: r39632
 -->
 
 <html xmlns="http://www.w3.org/1999/xhtml"><head>
       <title>&title;</title>
 
       <cvs:keyword xmlns:cvs="http://www.FreeBSD.org/XML/CVS">$FreeBSD$</cvs:keyword>
     </head>
 
     <body class="navinclude.ports">
 
 &searchform;
 
 <hr/>
 
 <p>åÓÌÉ ×Ù ÕÓÔÁÎÁ×ÌÉ×ÁÅÔÅ FreeBSD Ó CD-ROM ÉÌÉ ÐÏ ftp, ÐÒÉÌÏÖÅÎÉÅ
   <a href="&enbase;/cgi/man.cgi?query=sysinstall"><tt>sysinstall</tt></a>
   ÐÏÚ×ÏÌÉÔ ×ÁÍ ÚÁÏÄÎÏ ÕÓÔÁÎÏ×ÉÔØ ëÏÌÌÅËÃÉÀ ðÏÒÔÏ×.</p>
 
 <p>åÓÌÉ ÖÅ ×Ù ÎÅ ÉÓÐÏÌØÚÕÅÔÅ ÜÔÏÔ ÍÅÔÏÄ ÕÓÔÁÎÏ×ËÉ, ×Ù ÍÏÖÅÔÅ
   <a href="ftp://ftp.FreeBSD.org/pub/FreeBSD/ports/ports/ports.tar.gz">
   ÚÁÇÒÕÚÉÔØ ÓÖÁÔÙÊ ÁÒÈÉ×</a> Ó ÐÏÌÎÙÍ ÄÅÒÅ×ÏÍ ÐÏÒÔÏ×.  òÁÚÍÅÒ ÆÁÊÌÁ
-  ÓÏÓÔÁ×ÌÑÅÔ &ports.size;.</p>
+  ÓÏÓÔÁ×ÌÑÅÔ <!-- &ports.size; -->.</p>
 
 </body>
 </html>
Index: head/ru_RU.KOI8-R/htdocs/ports/portindex
===================================================================
--- head/ru_RU.KOI8-R/htdocs/ports/portindex	(revision 47264)
+++ head/ru_RU.KOI8-R/htdocs/ports/portindex	(revision 47265)
@@ -1,401 +1,393 @@
 #!/usr/bin/perl -w
 
 # convert a ports INDEX file to XML files
 #
 # by John Fieber <jfieber@FreeBSD.org>
 # Mon May 13 10:31:58 EST 1996
 
 #
 # The FreeBSD Russian Documentation Project
 #
 # $FreeBSD$
 # $FreeBSDru: frdp/www/ru/ports/portindex,v 1.14 2004/03/23 21:10:07 phantom Exp $
 #
 # Original revision: r45243
 #
 
 ############################################################
 
 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 POSIX::strftime("%d-%B-%Y", localtime);
 }
 
 sub header {
     my $fh = shift;
     my $htext = shift;
     #local($fh, $htext) = @_;
     print $fh <<EOF;
 <?xml version="1.0" encoding="koi8-r"?>
 <!DOCTYPE html PUBLIC "-//FreeBSD//DTD XHTML 1.0 Transitional-Based Extension//EN"
 "http://www.FreeBSD.org/XML/share/xml/xhtml10-freebsd.dtd" [
 <!ENTITY base '..'>
 <!ENTITY % navinclude.ports "INCLUDE">
 <!ENTITY % ports.ent SYSTEM "ports.ent">
 %ports.ent;
 <!ENTITY email 'ports'>
 %statistics.ent;
 ]>
 <html xmlns="http://www.w3.org/1999/xhtml">
   <head>
     <title>$htext</title>
 
     <cvs:keyword xmlns:cvs=\"http://www.FreeBSD.org/XML/CVS\">x x x $today x x x</cvs:keyword>
   </head>
 
   <body class="navinclude.port">
 
 &searchform;
 
 <hr/>
 
 EOF
 }
 
 sub footer {
     my $fh = shift;
     my $ftext = shift;
     #local ($fh, $ftext) = @_;
 print $fh <<EOF;
 
 $ftext
 </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 $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;
 
     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/%%;
 	
 	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
 	    $name =~ s/,.*//g;
 	    $name =~ s/\++//g;
 	    $data{$i} .= "<dt><b><a name=\"$name\"></a><a href=\"$loc$ftparchive\">$name</a></b></dt>";
      
 
 	    $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">ïÓÎÏ×ÎÏÊ Web ÓÁÊÔ</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 XML syntax, `--' 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.xml and <category>.xml
 
     $moutf->open(">categories-grouped.xml");
     header($moutf, "ëÁÔÅÇÏÒÉÉ ðÏÒÔÏ× FreeBSD ÐÏ ÇÒÕÐÐÁÍ");
 
     print $moutf <<EOF;
 <a name=\"top\"></a>
 EOF
 
     if ($portnumber eq '0') {
       print $moutf "<p>ÎÉÞÅÇÏ ÎÅ ÎÁÊÄÅÎÏ</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.xml");
 	    header($outf, "ðÏÒÔÙ FreeBSD: \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.xml
 
     $moutf->open(">categories-alpha.xml");
     header($moutf, "ëÁÔÅÇÏÒÉÉ ðÏÒÔÏ× FreeBSD × ÁÌÆÁ×ÉÔÎÏÍ ÐÏÒÑÄËÅ");
 
     print $moutf <<EOF;
 <a name=\"top\"></a>
 EOF
 
     if ($portnumber eq '0') {
       print $moutf "<p>ÎÉÞÅÇÏ ÎÅ ÎÁÊÄÅÎÏ</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.xml
 
     $mindex->open(">master-index.xml");
     header($mindex, "éÎÄÅËÓ ëÏÌÌÅËÃÉÉ ðÏÒÔÏ× FreeBSD");
     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");
     print $statistics "<?xml version=\"1.0\" encoding=\"koi8-r\"?>\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 'ÎÅÓËÏÌØËÏ ÄÅÓÑÔËÏ× ÍÅÇÁÂÁÊÔ'>\n";
-    }
     print $statistics "<!ENTITY ports.count '$portnumber'>\n";
 
     $statistics->close;
     close(INDEX);
 }