) {
($a, $b) = split('\|');
next if !defined($b);
chop($b);
$b =~ s/&/&/g;
$b =~ s//>/g;
$descLANG{$a} = $b;
}
}
while (<>) {
chop;
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];
# 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
詳しい説明";
$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");
foreach $j (@dep) {
$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
$master[$portnumber] =
"$name " .
" -- $desc
\n";
$portnumber++;
}
open(MOUTF, ">index.sgml");
&header(MOUTF, "FreeBSD Ports");
# print MOUTF "\n";
print MOUTF "&blurb;";
print MOUTF "
FreeBSD Ports コレクションには, 現時点で $portnumber 個の ports が提供されています.
全ての $portnumber 個の ports を tar でまとめて gzip したもの (およそ 4 メガバイト) をダウンロードするか, 以下の分類からたどってください:\n";
print MOUTF "
\n";
@foos = sort(keys %stats);
foreach $key (@foos) {
# For translation
$subkey = "";
$subkey = " ($catsLANG{$key})"
if ($catsLANG{$key} ne '');
# For the master file...
print MOUTF
"- \u$key$subkey ($stats{$key})
";
# Create the category file
open(OUTF, ">$key.sgml");
$subkey = "";
$subkey = " / $catsLANG{$key}"
if ($catsLANG{$key} ne '');
&header(OUTF, "FreeBSD Ports: \u$key$subkey");
print OUTF "\n";
$d = join("\n", sort(split(/\n/, $data{$key})));
$d =~ s/##([^#]*)##/$catkey{$1}/g;
print OUTF $d;
print OUTF "
\n";
&footer(OUTF, "
Port の分類" .
" -- 一覧
");
close(OUTF);
}
print MOUTF "
\n";
print MOUTF
"\n";
&footer(MOUTF, "");
close(MOUTF);
# Create the master index file
open(MINDEX, ">master-index.sgml");
&header(MINDEX, "FreeBSD Ports コレクション 一覧");
print MINDEX "\n";
print MINDEX sort @master;
print MINDEX "
";
&footer(MINDEX, "
Port の分類
");
close(MINDEX);
}
diff --git a/data/ja_JP.EUC/search.sgml b/data/ja_JP.EUC/search.sgml
index eae4119e6d..4cd0d7547f 100644
--- a/data/ja_JP.EUC/search.sgml
+++ b/data/ja_JP.EUC/search.sgml
@@ -1,299 +1,305 @@
+
%includes;
]>
-
+
-
+
&header;
FreeBSD Search Services
メーリングリストのアーカイブ
&i.new; メーリングリストのアーカイブのインデックスは毎週更新しています!
&footer;
'>
