#!/usr/bin/perl use strict; use warnings; use XML::Simple; my $metainfo = "/data/video/frikanalen/meta.xml"; my $ref = XMLin($metainfo); my $dir = '/data/video/frikanalen'; 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_//; if (-e "$dir/$num.ogv") { my $title = $ref->{$id}->{Title}; my $imageuri = "thumbs/$num.jpg"; my $description = $ref->{$id}->{Description}; my $length = int($ref->{$id}->{Length}); my $hours = int($length/3600); my $minutes = int(($length%3600)/60); my $ogvurl = $ref->{$id}->{ogvUri}; my $ogvfile = "$num.ogv"; my $videouri = 'http://www.nuug.no/pub/video/frikanalen/fetchvideo.cgi?videoId='.$num; 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; }

"; print "

$title"; print "\ (Lengde: ".(sprintf('%02dt %02dm',$hours,$minutes)).')
'; print "$description\n" if $description; print "