diff --git a/ja/ports/Makefile b/ja/ports/Makefile index d5e0b0438e..1e4393c4d4 100644 --- a/ja/ports/Makefile +++ b/ja/ports/Makefile @@ -1,80 +1,73 @@ -# $FreeBSD: www/ja/ports/Makefile,v 1.20 2000/11/07 08:01:02 kuriyama Exp $ +# $FreeBSD: www/ja/ports/Makefile,v 1.21 2000/11/07 11:37:57 kuriyama Exp $ # The FreeBSD Japanese Documentation Project -# Original revision: 1.30 +# Original revision: 1.31 .if exists(../Makefile.conf) .include "../Makefile.conf" .endif .if exists(../Makefile.inc) .include "../Makefile.inc" .endif .if exists(../../en/ports/Makefile.inc) .include "../../en/ports/Makefile.inc" .endif CVS_READONLY?= YES CVS_OPT+= -Q .if !empty(CVS_READONLY) CVS_OPT+= -R .endif # # This hack is allows to build www/ tree for case when ports/ located # in other repository, for example Repository of Translation Project # .if defined(PORTSCVSROOT) && !empty(PORTSCVSROOT) CVS_OPT+= -d ${PORTSCVSROOT} .endif .if defined(NOPORTSCVS) ${INDEX}: $${PORTSBASE}/${PINDEX} cp ${PORTSBASE}/${PINDEX} ${INDEX} - -${Y2K}: $${PORTSBASE}/${PY2K} - cp ${PORTSBASE}/${PY2K} ${Y2K} - .else ${INDEX}: ${cvsindex} cvs ${CVS_OPT} co -p ${PINDEX} > ${INDEX} - -${Y2K}: ${cvsy2k} - cvs ${CVS_OPT} co -p ${PY2K} > ${Y2K} .endif # build the list of available packages only on the # main FreeBSD machines hostname!= hostname .if defined(NOPORTSCVS) packages.exists: .else -packages.exists: ${cvsindex} ${cvsy2k} +packages.exists: ${cvsindex} .endif .if ${hostname} == "hub.freebsd.org" || ${hostname} == "freefall.freebsd.org" .if exists(${.CURDIR}/../../en/ports/packages.exists) cp ${.CURDIR}/../../en/ports/${.TARGET} . .else @if sh ${.CURDIR}/../../en/ports/packages > ${.TARGET}.temp; then \ mv ${.TARGET}.temp ${.TARGET}; \ else \ rm ${.TARGET}.temp; touch ${.TARGET}; \ fi; .endif .else touch ${.TARGET} .endif Makefile.gen: index.sgml .NOTMAIN echo DOCS= *.sgml > Makefile.gen -index.sgml: ${INDEX} ${Y2K} categories packages.exists portindex ports.inc .NOTMAIN +index.sgml: ${INDEX} categories packages.exists portindex ports.inc .NOTMAIN rm -f *.sgml - ${PORTINDEX} ${INDEX} ${Y2K} ${.CURDIR} + ${PORTINDEX} ${INDEX} ${.CURDIR} install: all all install clean: (cd ${.CURDIR} && ${MAKE} ${MAKEFLAGS} -f Makefile.inc0 ${.TARGET}) .include "${WEB_PREFIX}/share/mk/web.site.mk" diff --git a/ja/ports/portindex b/ja/ports/portindex index e07cb078ac..658f83bb2f 100755 --- a/ja/ports/portindex +++ b/ja/ports/portindex @@ -1,313 +1,294 @@ #!/usr/bin/perl # convert a ports INDEX file to HTML # # by John Fieber # Mon May 13 10:31:58 EST 1996 -# $FreeBSD: www/ja/ports/portindex,v 1.21 2000/12/31 11:08:42 hrs Exp $ +# $FreeBSD: www/ja/ports/portindex,v 1.22 2001/01/01 18:41:42 hrs Exp $ # The FreeBSD Japanese Documentation Project -# Original revision: 1.33 +# Original revision: 1.34 ############################################################ # 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. $config = $0 . '.' . 'conf'; do $config if -f $config; # This is the base of where we ftp stuff from if ($ENV{'MASTER_FTP_SERVER'}) { $ftpserver = $ENV{'MASTER_FTP_SERVER'}; } else { $ftpserver = 'ftp://ftp.freebsd.org' if !$ftpserver; } $base = "$ftpserver/pub/FreeBSD/branches/-current" if !$base; $baseHTTP = $base if !$baseHTTP; $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; # ports download sources script $pds = 'http://www.freebsd.org/cgi/pds.cgi'; # better layout and link to the sources if ($urlcgi) { $baseHTTP = $urlcgi . '?' . $baseHTTP; } $today = &getdate; &packages_exist('packages.exists', *packages); &category_description(($ARGV[2] || '.') . '/categories', *category_description); -&y2k_statements; &main; -sub y2k_statements { - - open(Y2K, $ARGV[1]); - while() { - chop(); - ( $dir, $url ) = split(/\s+/); - $dir = $base . "/" . $dir; - $y2k{$dir} = $url; - - } - close(Y2K); - -} - sub getdate { # @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 日"; } sub header { local ($fh, $htext) = @_; print $fh ""; print $fh ""; print $fh "$today\">\n"; print $fh ""; print $fh "\n"; print $fh "\n"; print $fh ""; print $fh "%includes;\n"; print $fh "]>\n"; print $fh "&header;\n"; } sub footer { local ($fh, $ftext) = @_; print $fh "\n$ftext\n"; print $fh "&footer;\n"; print $fh "\n\n"; } sub packages_exist { local($file, *p) = @_; open(P, $file) || do { warn "open $file: $!\n"; warn "Cannot create packages links\n"; return 1; }; while(

) { chop; $p{$_} = 1; } close P; return 0; } sub category_description { local($file, *p) = @_; open(P, $file) || do { warn "open $file: $!\n"; warn "Cannot find category description\n"; return 1; }; local($category, $description); while(

) { # ignore comments next if /^\s*#/; ($category, $description) = /^\s*"([^"]+)",\s*"([^"]+)/; $p{$category} = $description; } close P; return 0; } sub main { $sep = ":"; # 'COMMENT' translation database if (open(COMF, "comments.ja")) { while () { ($a, $b) = split('\|'); next if !defined($b); chop($b); $b =~ s/&/&/g; $b =~ s//>/g; $descLANG{$a} = $b; } } open(INDEX, $ARGV[0]); while () { chop; s/&/&/g; s//>/g; # Read a record ($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 @cat = split("[ \t]+", $cats); $catkey{$name} = $cat[0]; local($sourcepath) = $loc; $sourcepath =~ s%/usr/%%; # desc translation ($lloc = $loc) =~ s@^/usr/ports/@@; $desc = $descLANG{$lloc} if ($descLANG{$lloc} ne ''); foreach $i (@cat) { $stats{$i}++; # figure out the FTP url $loc =~ s/\/usr/$base/; $ldesc =~ s/\/usr/$baseHTTP/; # The name description and maintainer $data{$i} .= "

$name "; $data{$i} .= "
$desc
詳しい説明"; if ($packages{"$name.tgz"}) { $data{$i} .= qq{ | パッケージ}; } $data{$i} .= qq{ | ソース}; - if ($y2k{"$loc"}) { - $data{$i} .= qq{ | Y2K}; - } - if ($www ne "") { $data{$i} .= qq{ | Main Web Site}; } $ownerurl = $owner; $ownerurl =~ s/<//g; $data{$i} .= "
保守担当者: $owner"; # If there are any dependencies, list them if ($bdep ne "" || $rdep ne "") { $data{$i} .= "
必要なもの: "; @dep = split(/ /, "$bdep $rdep"); local($last) = ''; foreach $j (sort @dep) { next if $j eq $last; $last = $j; $data{$i} .= " $j,"; } # 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} .= "
ここにも含まれています: "; foreach $j (@cat) { if ($j ne $i) { if ($j eq $cat[0]) { $data{$i} .= " \u$j,"; } else { $data{$i} .= " \u$j,"; } } } # remove the trailing comma chop($data{$i}); } $data{$i} .= "

\n" } # Add an entry to the master index # workaround for SGML bug, `--' is not allowed in comments local($sname) = $name; $sname =~ s/--/-=/g; $master[$portnumber] = "$name " . " -- $desc
\n"; $portnumber++; } open(MOUTF, ">index.sgml"); &header(MOUTF, "FreeBSD Ports"); # print MOUTF "\n"; print MOUTF "&blurb;"; print MOUTF "

FreeBSD Ports Collection には, 現時点で $portnumber 個の ports が提供されています.
全ての $portnumber 個の ports を tar でまとめて gzip したもの (およそ 10 メガバイト) をダウンロードするか, 以下の分類からたどってください:\n"; print MOUTF "

\n"; print MOUTF "\n"; &footer(MOUTF, ""); close(MOUTF); # Create the master index file open(MINDEX, ">master-index.sgml"); &header(MINDEX, "FreeBSD Ports Collection 一覧"); print MINDEX "

\n"; print MINDEX sort @master; print MINDEX "

"; &footer(MINDEX, "Port の分類"); close(MINDEX); close(INDEX); }