8 foreach my $year(qw/2010/) {
9 open LIST, "projects2010";
13 my ($project, $url, $name);
16 if (/(Název projektu|Project name)[:* ]*(.*)/) {
19 if (/(Domovská stránka projektu|Project home ?page)[:* ]*<(.*)>/) {
22 if (/\[\[!meta title="([^"]*)"\]\]/) {
27 if (!$projects{$project}) {
28 $projects{$project} = {};
29 $projects{$project}{'students'} = [];
31 my $p = $projects{$project};
33 push @{$$p{'students'}}, { 'file' => $file, 'name' => $name, 'year' => $year };
37 print '[[!meta title="Projekty"]]\n';
38 print '[[!meta stylesheet="/columns" rel="stylesheet"]]\n';
40 foreach (sort(keys(%projects))) {
41 print "\n* [$_](", $projects{$_}{'url'}, ")\n";
42 #print Dumper($projects{$_}{'students'});
43 foreach (@{$projects{$_}{'students'}}) {
44 my $page = $_->{'file'};
47 my $name = $_->{'name'} || "???";
48 my $year = $_->{'year'} || "20??";
50 print " * [[", $name || "", "|student/", $page, "]] ($year)\n";