#!/usr/bin/perl -w
# Author: Jarle Bjørgeengen
# Date: 2009-03-01
# License: GNU General Public license
# Script for å levere inkeltvideoer basert på $Id
#
# http://wiki.nuug.no/grupper/video/pubfrikanalen
use strict;
use warnings;
use XML::Simple;
use CGI qw/:standard/;
binmode STDOUT, ":utf8";
my $query = new CGI;
my $nuug_frikanalen_url = 'http://www.nuug.no/pub/video/frikanalen/';
my $videoid = $query->param("videoId");
my $playlist = $query->param("playlist");
my $lengde;
my $metainfo = "/home/ftp/pub/video/frikanalen/meta.xml";
my $ref = XMLin($metainfo);
my $id = "id_$videoid";
my $duration = $ref->{$id}->{'Length'};
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 $seconds = ($length%60);
my $minutes = int(($length%3600)/60);
my $hours = int($length/3600);
my $date = $ref->{$id}->{UploadDate};
$date =~ s/T.+$//;
my $ogvurl = $ref->{$id}->{ogvUri};
my $wmvurl = $ref->{$id}->{VideoUri};
my $playlisturl = $nuug_frikanalen_url . url(-relative=>1) . "?playlist=$videoid.m3u" ;
my $imageuri = $ref->{$id}->{'ImageUri'};
if ($hours) {
$lengde = (sprintf('%2dt %2dm',$hours,$minutes));
} else {
$lengde = (sprintf('%2dm %2ds', $minutes, $seconds));
}
if ($playlist) {
$playlist =~ /(^.+)\.m3u/;
my $id = "id_$1";
my $ogvurl = $ref->{$id}->{ogvUri};
print "Content-type: audio/x-mpegurl\n\n";
print "$ogvurl";
exit 0;
} else {
print "Content-type: text/html; charset=UTF-8\n\n";
print <<"EOF";
Frikanalen: $title
$title
$description
Lengde:
$lengde
Dato:
$date
Dersom du ikke ser noe video på denne siden, har du en nettleser uten fungerende java-støtte. Følgende lenker kan benyttes dersom dette er tilfelle, eller du ønsker mere kontroll på søking (playlist url) eller laste ned hele filen (Ogg Theora) . Vi har også lagt inn direktelink til Windows Media url på frikanalen sin side.