perlpower+2007-09-17 10:26:32--

Mein Perl-Versuch:

Code (perl): (dl )

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

#!usr/bin/perl -w

# get GET data
if($ENV{'REQUEST_METHOD'} eq 'GET')
    { $Daten = $ENV{'QUERY_STRING'}; }
else
    { $Daten = null; }

# modify GET data array
$Daten =~ s/%([\da-fA-f]{2})/pack("c",hex($1))/ge;
$Daten =~ tr/+/ /;
for(split/&/,$Daten) {
        ($key , $val) = split/=/,$_,2;
        $Form{$key} .= $val;
}

[tt]use strict[/tt]

1
2
3
4
5
6
7
8

#!/usr/bin/perl

use strict;
use warnings;
use CGI;

my $cgi = CGI->new;
my %Form = $cgi->Vars;

Quote

Code (perl): (dl )

1
2
3
4
5

# full path to dir with video
# ...

# get filename ending
$ext = substr($filename,length($filename)-4,4);

Quote

Code (perl): (dl )

1
2
3
4
5

# file is path + filename
$file = $path . $filename;

# if file exists do the pseudo streaming:
if( (-e $file) && ($ext==".flv") && (length($filename)>2) && (!($filename =~ m/flvprovider.pl$/)) )