#include #include #include #use wml::std::box #use wml::std::info > > > > <get-var title> > > > <: if (length ("")) { foreach my $file (split / /, "") { printf ''."\n", $file; } } :> <: use MIME::Types; if (length ("")) { my $mime = MIME::Types->new; my %name = ('ics' => 'iCal'); my $alternates = ""; $alternates =~ s/\r?\n/ /g; $alternates =~ s/\s+/ /g; foreach my $file (split / /, $alternates) { my $title; if ($file =~ /\|/) { ($file,$title) = split /\|/, $file; $title =~ s/\~/ /g; } my @a = split /\./, $file; my $ext = pop @a; my $type = $mime->mimeTypeOf($ext); $type = "application/rss+xml" if $type eq "application/rdf+xml"; $title = exists $name{$ext} ? $name{$ext} : uc($ext) unless $title; printf ''."\n", $type, $title, $file; } } :>
#include "submenu.inc"
%body
<get-var lang>
# The events pages need an extra space between flag and red line <: if ("" =~ /src\/Debian\/events\/.*/) { print "

"; } :>

Debian
Powered by Linux