1 #use wml::debian::ctime
3 <define-tag noitemsforthisyear whitespace=delete>
4 [EN:No items for this year.:]
5 [TR:Bu yIl iCin bilgi yok:]
6 [FI:Ei otsikoita tältä vuodelta:]
7 [PT:Sem itens neste ano.:]
8 [HR:Za ovu godinu nema èlanaka.:]
9 [FR:Pas d'éléments cette année.:]
10 [DE:Kein Eintrag für dieses Jahr.:]
11 [IT:No items for this year.:]
12 [JA:No items for this year.:]
13 [PL:Brak wydarzeñ w tym roku.:]
14 [ES:No items for this year.:]
15 [DA:Ingen begivenheder i dette år.:]
16 [NO:Ingen begivenheter dette året:]
17 [ZH:No items for this year.:]
18 [SV:Ingenting detta år.:]
19 [KO:No items for this year.:]
22 # DO NOT translate anything below here. If you feel something needs to be changed, write to
27 # grabs the date and title of the last $number news items from directory $year.
28 # If $number is zero then all the news items are shown.
30 # get_recent_list ('1998', '0', '$(ENGLISHDIR)/News', '', '\d+\w*')
33 my ($year, $number, $eng_dir, $format, $match) = @_;
35 if ($format =~ order) {
41 elsif ($format =~ bullet) {
47 elsif ($format =~ list) {
62 opendir(DIR, "$eng_dir/$year");
63 @files = grep { /^$match.wml$/ && -f "$eng_dir/$year/$_" } readdir(DIR);
64 @files = sort {$b cmp $a} @files;
68 grab_titles($year, $number, $eng_dir, $format, $match);
70 if ($count < $number && $number ne 0) {
71 @tmp = split('/', $year);
74 $year = join('/', @tmp);
75 if (-d "$eng_dir/$year") {
76 opendir(DIR, "$eng_dir/$year") or printf stderr "couldn't open dir $eng_dir/$year\n";
77 @files = grep { /^$match.wml$/ && -f "$eng_dir/$year/$_" } readdir(DIR);
78 @files = sort {$b cmp $a} @files;
81 grab_titles($year, $number, $eng_dir, $format, $match);
84 $str .= "<noitemsforthisyear>\n";
91 my ($year, $number, $eng_dir, $format, $match) = @_;
94 $trans_title =~ s/wml/title/;
96 open(FILE, "<$year/$_") || open(FILE, "<$year/$trans_title") || open(FILE, "<$eng_dir/$year/$_") or printf stderr "ACK: can't open $year/$_\n";
100 $date = ''; $title = ''; $desc = '';
101 foreach $line (<FILE>) {
102 if ($line =~ /^<define-tag pagetitle>(.*)<\/define-tag>$/) {
105 elsif ($line =~ /^<define-tag release_date>(.*)<\/define-tag>$/) {
108 elsif ($line =~ /^<define-tag report_date>(.*)<\/define-tag>$/) {
111 elsif ($line =~ /^<define-tag date>(.*)<\/define-tag>$/) {
114 elsif ($line =~ /^<define-tag description>(.*)<\/define-tag>$/) {
117 if ($title && $date && $desc) {
118 $date = newsdate($date);
119 $str1 = "$elemhead<tt>[$date]</tt> <strong><a href=\"$year/$base\">$title</a></strong> - $elemfoot$desc<br>\n";
122 elsif ($title && $date) {
123 $date = newsdate($date);
124 $str1 = "$elemhead<tt>[$date]</tt> <strong><a href=\"$year/$base\">$title</a></strong><br>\n";
129 if ($count eq $number) { last; }