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

template/debian/weeklynews/*, News/weekly/index.wml

鍋谷です。

News/weekly/ の日本語ページがしばらく更新されていないのは
これが原因でしょうか。

template/debian/weeklynews/index.wml
  * original_revision: 1.6

template/debian/weeklynews/footer.wml
  * original_revision: 1.5
  * new address.

News/weekly/index.wml
  * original_revision: 1.9
  * remove <ol>...</ol> tag.

News/weekly/Makefile も変更が必要？

大阪大学理学研究科物理学専攻 博士後期課程2年 大坪研究室(06-6850-5346)
         鍋谷 栄展      nabetani@xxxxxxxxxxxxxxxxxxxxxxxxxxx

<perl>

# Very similar to get_recent_list except it looks for the .wml files
# inside subdirectories of the given directory.
sub get_weeklynews_list {
	my ($year, $number, $eng_dir, $match) = @_;
	
	$str="";

	open(CURRENT, "CURRENT-ISSUE-IS") or open(CURRENT, "$eng_dir/CURRENT-ISSUE-IS");
	my $currentissue=<CURRENT>;
	chomp $currentissue;
	close CURRENT;

	opendir(DIR, "$eng_dir/$year");
	@files = grep { /^$match$/ && -f "$eng_dir/$year/$_/index.wml" } readdir(DIR);
	closedir DIR;
	
	$count=0;
	foreach (sort {$b <=> $a} @files) {
		$count++;
		next if $_ > $currentissue; # skip issues in preparation.
		my $num=$_;
		$_="$_/index.wml";
		$trans_title = $_;
		$trans_title =~ s/wml/title/;
		($base)=m:(.*/):;
		open(FILE,"<$year/$_") || open(FILE, "<$year/$trans_title") || open(FILE, "<$eng_dir/$year/$_");
		$title = '';
		$line=<FILE>;
		if ($line =~ /PAGENAME="(.*?)"/) {
			$title=$1;
		}
		if ($title) {
			if (length $num == 1) {
				$num="&nbsp;$num";
			}
			$str.="$num.\t<a href=\"$year/$base\">$title</a><br>\n";
		}
		close FILE;
		if ($count eq $number) { last; }
	}
	close DIR;
	return $str;
}

</perl>

<hr>
<!--original_revision: 1.5 :-->

<p>
このニューズレターを毎週電子メールで受け取りたい方は、debian-news
メーリングリストを<a href="http://www.debian.org/MailingLists/subscribe";>
購読</a>してください
<p>

<ifeq "$(NOBACKISSUES)" ""
"<p>
<a href="../../">バックナンバー</a>もご利用いただけます。
</p>
">

Debian ウィークリーニュースは <a href="mailto:dwn@debian.org";>Joey
Hess</a> が編集しています。

#use wml::debian::weeklynews::header PAGENAME="目次"
#use wml::debian::weeklynews::index
<!--original_revision: 1.9 :-->

<p>
<b>Debian ウィークリーニュースへようこそ。</b>
こちらは Debian の開発者のみなさんを対象としたニューズレターです。
最新号は<a href="current/issue/">こちら</a>をご覧ください。
</p>

<p>
Debian ウィークリーニュースのバックナンバーもご利用いただけます。
<p>
<:= get_weeklynews_list ('1999', '0', '$(ENGLISHDIR)/News/weekly', '\d+') :>

# <hr>過年度のニュース項目は以下のページからご覧になれます。<br>
# <a href="1997/">1997</a>&nbsp;&nbsp;

#use wml::debian::weeklynews::footer NOBACKISSUES="yes"