#!/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/; use URI::Escape; 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 $organization = $ref->{$id}->{Organization}; my $org_escaped = uri_escape($organization); 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 $tonoflag = $ref->{$id}->{HasTonoRecords}; my $tonostatus; if ("false" eq $tonoflag) { $tonostatus = "Innhold krever ikke tono-betaling"; } else { $tonostatus = "Innhold krever tono-betaling"; } 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\n"; exit 0; } else { print "Content-type: text/html; charset=UTF-8\n\n"; my $html_video_start; my $html_video_end; if ($ENV{'HTTP_USER_AGENT'} !~ m/safari/i ) { $html_video_start = '

'; } print <<"EOF"; Frikanalen - med åpne standarder

TV FOR ALLE
Dette er en alternativ presentasjon av filmene som sendes på Frikanalen i Norge. Denne alternative presentasjonen benytter åpne standarder og er laget av NUUGs videogruppe.

$title

$description

Organisasjon: $organization

$html_video_start preview

$html_video_end

Lengde: $lengde

Dato: $date

$tonostatus

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.

Video URLs:
Playlist url (m3u) for ekstern avspiller. (VLC fungerer godt på alle platformer .)
Ogg Theora
Windows Media
Tilbake

EOF }