diff options
| author | Masafumi Max NAKANE <max@FreeBSD.org> | 1997-11-23 22:23:08 +0000 |
|---|---|---|
| committer | Masafumi Max NAKANE <max@FreeBSD.org> | 1997-11-23 22:23:08 +0000 |
| commit | 66649b61408f3a628efbe5308db0ef0f1b864dea (patch) | |
| tree | ac9ec425c610aff9d4d9b47f41e7ae7d031df453 /ja/ports/portindex | |
| parent | 93c413b716f106621766920ff93214f3a3d3b73b (diff) | |
| download | doc-66649b61408f3a628efbe5308db0ef0f1b864dea.tar.gz doc-66649b61408f3a628efbe5308db0ef0f1b864dea.zip | |
Initial import of the Japanese translation of the web pages.
Submitted by: The FreeBSD Japanese DOcumentation Project
Notes
Notes:
svn path=/www/; revision=2200
Diffstat (limited to 'ja/ports/portindex')
| -rwxr-xr-x | ja/ports/portindex | 171 |
1 files changed, 171 insertions, 0 deletions
diff --git a/ja/ports/portindex b/ja/ports/portindex new file mode 100755 index 0000000000..7fe4761e89 --- /dev/null +++ b/ja/ports/portindex @@ -0,0 +1,171 @@ +#!/usr/bin/perl + +# convert a ports INDEX file to HTML +# +# by John Fieber <jfieber@freebsd.org> +# Mon May 13 10:31:58 EST 1996 +# $Id: portindex,v 1.1.1.1 1997-11-23 22:23:06 max Exp $ +# The FreeBSD Japanese Documentation Project +# Original revision: 1.11 + +############################################################ + +# This is the base of where we ftp stuff from +$base = "ftp://ftp.freebsd.org/pub/FreeBSD/FreeBSD-current"; +$baseHTTP = "http://ftp.freebsd.org/pub/FreeBSD/FreeBSD-current"; + +$today = &getdate; + +&main; + +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 "Updated $months[$mon] $mday, $year"; + $mon++; + return "$year 年 $mon 月 $mday 日に更新されました."; +} + +sub header { + local ($fh, $htext) = @_; + print $fh "<!DOCTYPE html PUBLIC \"-//W3C//DTD HTML 3.2//EN\" [\n"; + print $fh "<!ENTITY base CDATA '..'>"; + print $fh "<!ENTITY date \"<em>$today</em>\">\n"; + print $fh "<!ENTITY title '$htext'>"; + print $fh "<!ENTITY blurb SYSTEM \"ports.inc\">\n"; + print $fh "<!ENTITY % includes SYSTEM \"../includes.sgml\">\n"; + print $fh "%includes;\n"; + print $fh "]>\n"; + print $fh "<html>&header;\n"; +} + +sub footer { + local ($fh, $ftext) = @_; + print $fh "\n$ftext\n"; + print $fh "&footer;\n"; + print $fh "</BODY>\n</HTML>\n"; +} + +sub main { + + $sep = "<B>:</B>"; + + while (<>) { + chop; + s/&/&/g; + s/</</g; + s/>/>/g; + + # Read a record + ($name, $loc, $prefix, $desc, $ldesc, $owner, $cats, + $keys, $bdep, $rdep) = 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]; + + 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} .= "<DT><B><A NAME=\"$name\"></A><A HREF=\"$loc.tar\">$name</A></B> "; + $data{$i} .= "<DD>$desc<BR><I><A HREF=\"$ldesc\">詳しい説明</A></I>"; + $ownerurl = $owner; + $ownerurl =~ s/</</g; + $owenrurl =~ s/>/>/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> "; + @dep = split(/ /, "$bdep $rdep"); + foreach $j (@dep) { + $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) { + 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 + $master[$portnumber] = + "<!-- $name --><STRONG><A HREF=\"$cat[0].html#$name\">$name</A></STRONG> " . + " -- <EM>$desc</EM><BR>\n"; + $portnumber++; + } + + open(MOUTF, ">index.sgml"); + + &header(MOUTF, "FreeBSD Ports"); +# print MOUTF "<!--#include virtual=\"./ports.inc\" -->\n"; + print MOUTF "&blurb;"; + print MOUTF "<hr><P>FreeBSD Ports コレクションには, 現時点で $portnumber 個の ports が提供されています. <br> <A HREF=\"$base/ports.tar.gz\">全ての $portnumber 個の ports を tar でまとめて gzip したもの</A> (およそ 4 メガバイト) をダウンロードするか, 以下の分類からたどってください:\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></LI>"; + + # Create the category file + open(OUTF, ">$key.sgml"); + &header(OUTF, "FreeBSD Ports: \u$key"); + 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, "<HR><A HREF=\"index.html\">Port の分類</A>" . + " -- <A HREF=\"master-index.html\">一覧</A><HR>"); + close(OUTF); + + } + print MOUTF "</UL>\n"; + print MOUTF + "<UL><LI><A HREF=\"master-index.html\">$portnumber 個の ports 全てをアルファベット順に並べた一覧</A></LI></UL>\n"; + &footer(MOUTF, ""); + close(MOUTF); + + # Create the master index file + open(MINDEX, ">master-index.sgml"); + &header(MINDEX, "FreeBSD Ports コレクション 一覧"); + print MINDEX "<P>\n"; + print MINDEX sort @master; + print MINDEX "</P>"; + &footer(MINDEX, "<HR><A HREF=\"index.html\">Port の分類</A><HR>"); + close(MINDEX); + +} |