#!/usr/bin/perl # # MythWeb Streaming/Download module # # # URI back to this file? We just need to take the current URI and strip # off the .flvp suffix. my $uri = ($ENV{'HTTPS'} || $ENV{'SERVER_PORT'} == 443) ? 'https' : 'http'; $uri .= '://'.($ENV{'SERVER_NAME'} or $ENV{'SERVER_ADDR'}).':'.$ENV{'SERVER_PORT'} .$ENV{'REQUEST_URI'}; $uri =~ s/\.flvp$/\.flv/i; # Print a page to hold the player print header(); print <

EOF 1;