[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: RCS Id

In message <20030327.110242.1005178728.kawamoto@tenjin.org>
  KAWAMOTO Yosihisa <kawamoto@tenjin.org> writes:
>>> で、このさい、本家と同じ方式
>>> http://www.netbsd.org/developers/translate.html#include
>>> にしてしまいませんか?
> 
> ぜひそうしましょう。
> 作業しちゃってもいいでしょうか。
> 
> やまのさん:
>> http://www.jp.netbsd.org/ja/JP/Project/www-ja/status/ が、(たぶん) 
>> まともに動かなくなってしまいます。あんまり使われていないんなら、気に
>> することないのかもしれませんが…

これですが、本家と同じ方式にしても jp.NetBSD.org では原文のタグがそのまま残るので、
(jp.NetBSD.org で作業している限りは) 問題はないと思います。

なので、そのようにしてしまいませんか。

> piguで動いてるスクリプトを直せばいいんですよね?
> 直しましょう。つーか、直しますよ、私。

こちらは直さなくてもよいことになりますが、
netbsd.org を NetBSD.org にしませんか。

また、 translation-ignore.txt に書かれたファイルで原文が存在するもの
(/MailingLists/index.html など) が
「移動/削除/list2htmlで生成されている原文」に出てきてしまうので、
出ないようにしませんか。

「移動/削除/list2htmlで生成されている原文」と書かれていますが、
list2html で生成されているものはここに出てこないので、
「移動/削除されている原文」にあらためたうえ、
原文へのリンク (デッドリンク) を削除しませんか。

--- www-trans.pl.orig	Tue Jan 30 12:24:10 2001
+++ www-trans.pl	Fri Feb  4 00:17:01 2005
@@ -7,10 +7,10 @@
 $jproot = "/ftp/cvs/jproot/htdocs/ja";
 $urljproot = "cvsroot=jp.netbsd.org";
 
-$urlbase = "http://www.jp.netbsd.org";
-$urltransbase = "http://www.jp.netbsd.org/ja";
-$urlcvsweb = "http://www.jp.netbsd.org/cgi-bin/cvsweb.cgi/htdocs";
-$urltranscvsweb = "http://www.jp.netbsd.org/cgi-bin/cvsweb.cgi/htdocs/ja";
+$urlbase = "http://www.jp.NetBSD.org";
+$urltransbase = "http://www.jp.NetBSD.org/ja";
+$urlcvsweb = "http://www.jp.NetBSD.org/cgi-bin/cvsweb.cgi/htdocs";
+$urltranscvsweb = "http://www.jp.NetBSD.org/cgi-bin/cvsweb.cgi/htdocs/ja";
 $tablestart = "<TABLE BORDER=1>\n" .
 	"<TR><TH>原文<TH>訳文<TH>原Rev<TH>訳Rev<TH>翻訳者<TH>状況\n";
 $tableend = "</TABLE>\n";
@@ -18,8 +18,11 @@
 open(OUT, "|nkf -j") || die;
 
 print OUT <<EOF;
-<HTML>
+<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
+<HTML LANG="ja">
 <HEAD>
+<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=ISO-2022-JP">
+<LINK REV="made" HREF="mailto:www\@jp.NetBSD.org">
 <TITLE>status of translation</TITLE>
 </HEAD>
 
@@ -91,7 +94,11 @@
 			next;
 		}
 	}
-	next if $flag;
+	if ($flag) {
+		s|^\.||;
+		undef $exist{$_};
+		next;
+	}
 
 	if (/^\.\/Changes/ && ! /index.list/) {
 		next;
@@ -154,7 +161,7 @@
 
 		if (defined($inspector{$f})) {
 			if ($rev ne $transrev{$f}) {
-				$status = "<TD BGCOLOR=\"#C0C000\"><A HREF=\"$urlcvsweb$path/$file.diff?r1=$transrev{$f}\&r2=$rev\&f=h\&$urlcvsroot\">更新待ち</A>";
+				$status = "<TD BGCOLOR=\"#C0C000\"><A HREF=\"$urlcvsweb$path/$file.diff?r1=$transrev{$f}\&amp;r2=$rev\&amp;f=h\&amp;$urlcvsroot\">更新待ち</A>";
 			} else {
 				if ($inspector{$f} eq "NOT-YET") {
 					open(RLOG, "rlog \"$jproot$path/$file\"|")
@@ -184,14 +191,14 @@
 						$symbol = 1;
 					    }
 					}
-					close(<RLOG>);
+					close(RLOG);
 
 					$status =
 					    "<TD BGCOLOR=\"#F0F000\">" .
 					    "<A HREF=\"$urltranscvsweb$path/$file" .
-					    ".diff?r1=text\&tr1=$tnf" .
-					    "\&r2=text\&tr2=$head\&f=h" .
-					    "\&$urljproot\">" .
+					    ".diff?r1=text\&amp;tr1=$tnf" .
+					    "\&amp;r2=text\&amp;tr2=$head\&amp;f=h" .
+					    "\&amp;$urljproot\">" .
 					    "査読待ち</A>";
 				} else {
 					$status = "<TD><BR>";
@@ -211,11 +218,11 @@
 print OUT "$tableend\n";
 
 print OUT "<P><TABLE BORDER=\"1\">\n";
-print OUT "<TR><TH>移動/削除/list2htmlで生成されている原文";
+print OUT "<TR><TH>移動/削除されている原文";
 print OUT "<TH>訳文<TH>cvsweb\n";
 foreach $file (sort(keys %exist)) {
 	if (defined($exist{$file})) {
-		print OUT "<TR><TD><A HREF=\"$urlbase$file\">$file</A>\n";
+		print OUT "<TR><TD>$file\n";
 		print OUT "<TD><A HREF=\"$urltransbase$file\">訳文</A>\n";
 		print OUT "<TD><A HREF=\"$urltranscvsweb$file?$urljproot\">cvsweb</A>\n";
 	}