#!/usr/bin/perl
use strict;
use utf8;
require Encode;
# tiedoston mediaarkisto.pm kansio
use lib '../noweb';
use mediaarkisto ();
use CGI;
my $SEARCH_LOCALE = 'fi_FI.UTF-8';
my $VIDEO_PATH = '/albumi/file/video/';
$CGI::POST_MAX = 1024; # max 1K posts
$CGI::DISABLE_UPLOADS = 1; # no uploads
#chdir('../file') || exit 1;
&main;
exit 0;
sub main()
{
my $q = new CGI;
binmode(*STDOUT, ':utf8');
print $q->header(-type => 'text/html; charset=utf-8');
return if (&CGI::request_method eq 'HEAD');
my $file = $q->param('f');
my $options = $q->param('o');
utf8::decode($file);
my $file2 = $file;
$file2 =~ s{/.*}{};
my @o = split(/x/,$options,2);
$options = '"' . $o[0] . '","' . ($o[1] + 20) . '"';
print 'FLV-video: ', $file, '', "\n",
'', "\n",
'', "\n",
'', "\n",
'Flash ',
'Player puuttuu.
', "\n";
print '', "\n";
print '', "\n";
}