#use wml::std::info
<define-tag page endtag=required>
-<preserve title menugbcolor keywords source>
+<preserve title menugbcolor keywords source alternates>
<set-var %attributes>
<if <not <get-var title>>
>
<info style=meta domainname="infodrom.org" copyright="(c) Martin Schulze, Infodrom Oldenburg, reuse has to be negotiated">
<link href="<root_prefix>infodrom.css" rel="stylesheet" type="text/css">
+<:
+ use MIME::Types;
+
+ if (length ("<get-var alternates>")) {
+ my $mime = MIME::Types->new;
+ my $name = ('ics' => 'iCal');
+
+ foreach my $file (split / /, "<get-var alternates>") {
+ my @a = split /\./, $file;
+ my $ext = pop @a;
+ my $type = exists $name{$ext} ? $name{$ext} : uc($ext);
+
+ printf '<link rel="alternate" type="%s" title="%s" href="%s">'."\n",
+ $mime->mimeTypeOf ($ext), $type, $file;
+ }
+ }
+:>
</head>
<body text="#<textcolor>" vlink="#000090" alink="#e709f7" link="#1717ef">
</body>
</html>
-<restore title menubgcolor keywords source>
+<restore title menubgcolor keywords source alternates>
</define-tag>
<define-tag flaglink whitespace=delete>