#use wml::debian::basic title="近日開催されるイベント"
#use wml::debian::languages
<!--original_revision: 1.14 :-->

#words and phrases to translate
<define-tag intro>
このページでは、コミュニティー周辺のイベントの一覧を紹介します。
(もしあれば)そのイベントへの Debian の関わりについても触れます。
いずれかのイベントを手伝っていただける方は、
そのイベントの主催者にメールして下さい。
また、そのイベントの企画に興味があるのに主催者が記載されていない場合や、
追加のイベントについてお知らせいただける場合は、
&lt;<A HREF="mailto:events@debian.org">events@debian.org</A>&gt;
に電子メールを送ってください。
<p>
このページはまだ作成中です。あらゆるコメントや提案などは大歓迎します。

</define-tag>
<define-tag event_word>イベント</define-tag>
<define-tag past_words>過去のイベント</define-tag>
<define-tag none_word>なし</define-tag>

<perl>
sub get_event_list {
	my ( $path, $number, $current_dir ) = @_;


	$str=""; $over=""; $current=""; $unknown="";

	opendir(DIR, "$current_dir/$path");
  	@files = grep { /^\d+.*.wml$/ && -f "$current_dir/$path/$_" } readdir(DIR);
  	@files = sort @files;
  	closedir DIR;

  $count = 0;
  foreach (@files) {
     $count++;
     open(FILE, "<$path/$_") || open(FILE, "<$current_dir/$path/$_");
     if ( /(\d+.*).wml/ ) {
        $base = $1;
     }
     $title = ''; $when = ''; $where = ''; $desc = ''; $past = '';
     foreach $line (<FILE>) {
        if ($line =~ /^<define-tag pagetitle>(.*)<\/define-tag>$/) {
           $title = $1;
        }
        elsif ($line =~ /^#use wml::debian::past_event$/) {
           $past = 'yes';
        }
        elsif ($line =~ /^#use wml::debian::event$/) {
           $past = 'no';
        }
        elsif ($line =~ /^<define-tag date>(.*)<\/define-tag>$/) {
           $when = $1;
        }
        elsif ($line =~ /^<define-tag where>(.*)<\/define-tag>$/) {
           $where = $1;
        }
        elsif ($line =~ /^<define-tag desc>(.*)<\/define-tag>$/) {
           $desc = $1;
        }

		if ($title && $when && $where) {
           $str1 = "<TR><TD width=120><TT>[$when]</TT></TD><TD><STRONG><A HREF=\"$path/$base\">$title</A></STRONG> ($where)</TD></TR>\n";
		}
		elsif ($title && $when) {
           $str1 = "<TR><TD width=120><TT>[$when]</TT></TD><TD><STRONG><A HREF=\"$path/$base\">$title</A></STRONG></TD></TR>\n";
		}

		if ($past && $title && $when && $where ) {
			last;
		}
     }
	 if ( $past eq "yes" )
	 {
	 	$over .= $str1;
	 }
	 elsif ( $past eq "no" )
	 {
	 	$current .= $str1;
	 }
	 else
	 {
	 	$unknown .= $str1;
	 }
     close FILE;
     if ($count eq $number) { last; }
  }
close DIR;
if ( $over eq "" && $current eq "" && $unknown eq "" )
{
	$str = "$path - [<none_word>]<BR>";
}
else
{
	$str = "";
	if ( $current ne "" ) { $str .= "<H3>$path 年の<event_word></H3><TABLE>$current</TABLE>"; }
	if ( $over ne "" ) { $str .= "<A HREF=\"./$path/\">$path 年 - <past_words></A><BR>"; }
	if ( $unknown ne "" ) { $str .= "<H3>$path Unknown (indicates bug)</H3><TABLE>$unknown</TABLE>"; }
}
return $str;
}
</perl>

<p>
<intro>

<:= get_event_list ('2000', '0', '$(ENGLISHDIR)/events' ) :>

<:= get_event_list ('1999', '0', '$(ENGLISHDIR)/events' ) :>

<:= get_event_list ('1998', '0', '$(ENGLISHDIR)/events' ) :>

<:= languages() :>
#use wml::debian::footer