#!/usr/bin/perl -w
use strict;
use warnings;
use XML::Simple;
use CGI qw/:standard/;
my $query = new CGI;
my $videoid = $query->param("videoId");
my $playlist = $query->param("playlist");
my $metainfo = "/home/ftp/pub/video/frikanalen/meta.xml";
my $ref = XMLin($metainfo);
my $id = "id_$videoid";
if (! exists $ref->{$id} ) {
print STDERR "Unable to look up $id\n";
}
my $title = $ref->{$id}->{Title};
my $description = $ref->{$id}->{Description};
my $length = int($ref->{$id}->{Length});
my $imageuri = "thumbs/$videoid.jpg";
my $ogvurl = $ref->{$id}->{ogvUri};
my $wmvurl = $ref->{$id}->{VideoUri};
my $playlisturl = url(-relative=>1) . "?playlist=$videoid.m3u" ;
if ($playlist) {
$playlist =~ /(^.+)\.m3u/;
my $id = "id_$1";
my $ogvurl = $ref->{$id}->{ogvUri};
print "Content-Length: ", length($ogvurl)+1, "\n";
print "Content-type: audio/x-mpegurl\n\n";
print "$ogvurl\n";
exit 0;
} else {
print "Content-type: text/html\n\n";
print <<"EOF";
Video test