#!/usr/bin/perl use strict; use warnings; use XML::Simple; my $metainfo = "meta.xml"; my $ref = XMLin($metainfo); print < Frikanalen - alternative videokilder

Frikanalen med åpne standarder

Dette er en alternativ presentasjon av filmene som sendes på Frikanalen i Norge.

Denne alternative presentasjonen er laget av NUUGs videogruppe.

En annen eksperimentell presentasjon er tilgjengelig fra Frikanalens leverandør never.no.

EOF for my $id (sort { $ref->{$a}->{Title} cmp $ref->{$b}->{Title} } keys %{$ref}) { my $num = $id; $num =~ s/^id_//; my $title = $ref->{$id}->{Title}; my $imageuri = "thumbs/$num.jpg"; my $description = $ref->{$id}->{Description}; my $length = int($ref->{$id}->{Length}); my $ogvurl = $ref->{$id}->{ogvUri}; my $ogvfile = "$num.ogv"; my $videouri = $ref->{$id}->{VideoUri}; print "\n"; print "\n"; print "\n"; } print < EOF sub load_desc { my $filename = shift; my $info = {}; open(F, "<", $filename) || die "Unable to open $filename for reading"; while () { chomp; my ($key, $content) = split(/;/); $info->{$key} = $content; } return $info; }

$title ($id ${length}s ["; print "Windows Media"; print ", Ogg Theora" if ( -f $ogvfile ); print "])\n"; print "
$description\n" if $description; print "