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

#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; }
  }
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;
}

# get_past_event_list
# This finds out if the given year (or any years if none are given) has any
# events that have past.  If there are it provides links.
#
# Sun Aug  1 18:11:02 EDT 1999
# Added.  Code is mostly stolen from get_event_list();
# - blackie@sfcc.net


sub get_past_event_list {
my $str = '';
my @paths = ();
my ($current_dir, $path, $monthorder, $yearorder ) = @_;
if ($path ne '') {
  push(@paths,$path);
}

if ($path eq '') {
  ($sec,$min,$hour,$mday,$month,$year,$wday,$yday,$isdst) = localtime(time);
  # This is not a y2k bug.
  $year += '1900';
  $path = $year;
  while (1) {
    if ( -d "$current_dir/$path") {
      push(@paths,$path);
      $path--;
    } else {
      last;
    }
  }
  if ($yearorder ne 'futurefirst') {
    @paths =  reverse @paths;
  }
}

foreach $path (@paths) {
  opendir(DIR, "$current_dir/$path") || last;
  @files = grep { /^\d+.*.wml$/ && -f "$current_dir/$path/$_" } readdir(DIR);
  @files = sort @files;
  closedir DIR;
  foreach (@files) {
    open(FILE, "<$path/$_") || open(FILE, "<$current_dir/$path/$_");
    if ( /(\d+.*).wml/ ) {
       $base = $1;
    }
    my $past = '';
    foreach $line (<FILE>) {
       if ($line =~ /^#use wml::debian::past_event$/) {
           $past = 'yes';
           last;
       }
    }
    if ($past eq 'yes') {
    $str .= "<A HREF=\"./$path/\">$path 年 - <past_words></A><BR>"; 
    last;
    }
  close FILE;
  }
}
return $str;
}


# get_future_event_list
# This displays future events in whatever order the translator asks.
#
# Sun Aug  1 18:11:02 EDT 1999
# Added.  Code is mostly stolen from get_event_list();
# - blackie@sfcc.net  

sub get_future_event_list {
my $str;
my @paths;
my ($current_dir, $path, $monthorder, $yearorder ) = @_;

if ($path ne '') {
  push(@paths,$path);
}
if ($path eq '') {
  ($sec,$min,$hour,$mday,$month,$year,$wday,$yday,$isdst) = localtime(time);
  # This is not a y2k bug.  
  $year += '1900';
  $path = $year;
  while (1) {
    if ( -d "$current_dir/$path") {
      push(@paths,$path);
      $path++;
    } else {
      last;
    }
  } 
  if ($yearorder eq 'futurefirst') {
    @paths =  reverse @paths;
  }
}

foreach $path (@paths) {
my $events = '';
my @files = ();
opendir(DIR, "$current_dir/$path") || last;
@files = grep { /^\d+.*.wml$/ && -f "$current_dir/$path/$_" } readdir(DIR);
@files = sort @files;
if ($monthorder eq 'decfirst') {
  @files =  reverse @files;
}

closedir DIR;
foreach (@files) {
open(FILE, "<$path/$_") || open(FILE, "<$current_dir/$path/$_");
  if ( /(\d+.*).wml/ ) {
     $base = $1;
  }
my $title = ''; my $when = ''; my $where = ''; my $desc = ''; my $past = '';
  foreach $line (<FILE>) {     
     if ($line =~ /^#use wml::debian::past_event$/) {
         $past = 'yes';
         last;
     }
     if ($line =~ /^<define-tag pagetitle>(.*)<\/define-tag>$/) {
         $title = $1;
     }
     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 ($past ne 'yes') {
   if ($title && $when && $where) {
      $events .= "<TR><TD width=120><TT>[$when]</TT></TD><TD><STRONG> <A HREF=\"$path/$base\">$title</A></STRONG> ($where)</TD></TR>\n";
   }
   elsif ($title && $when) {
      $events .= "<TR><TD width=120><TT>[$when]</TT></TD><TD><STRONG> <A HREF=\"$path/$base\">$title</A></STRONG></TD></TR>\n";   
   }
}
close FILE;
}
$str .= "<H3>$path <event_word></H3><TABLE>$events</TABLE>";
}

return $str;
}

</perl>

<p>
<intro>

#
# This has been redone.  See index.wml.README for details.  Email me if
# you have any difficulties.
#
# - blackie@sfcc.net

<:= get_future_event_list('$(ENGLISHDIR)/events','','','futurefirst') :>

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

#<:= get_event_list ('2000', '0', '$(ENGLISHDIR)/events' ) :>
 
#<:= get_event_list ('1998', '0', '$(ENGLISHDIR)/events' ) :>
 
<:= get_past_event_list('$(ENGLISHDIR)/events','','','futurefirst') :>

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