handler.pl File Reference

Go to the source code of this file.

Functions
	if ($Path[1])
foreach my	$path (split(/:/, $ENV{'PATH'}.':/usr/local/bin:/usr/bin'), '.')
$sh	execute ($starttime, $chanid)
	my ($basename, $title, $subtitle)
	unless ($basename=~/\w/)
$sh	execute ()
	while (my($video_dir)=$sh->fetchrow_array())
$sh	execute ('WebFLV_w')
	my ($width)
$sh	execute ('WebFLV_vb')
$sh	execute ('WebFLV_ab')
	if ($ENV{'REQUEST_URI'}=~/\.asx $/i)
	elsif ($ENV{'REQUEST_URI'}=~/\.flvp $/i)
Variables
use	Fcntl
our	$ffmpeg_pid
our	$starttime = url_param('starttime')
	$ffmpeg = ''
my	$sh
$sh	finish
my	$filename
	$width = 320 unless ($width && $width > 1)
	$vbitrate = 256 unless ($vbitrate && $vbitrate > 1)
	$abitrate = 64 unless ($abitrate && $abitrate > 1)
my	$height = int($width * 3/4)

---

Function Documentation

if

(

$

Path[1]

)

Definition at line 35 of file handler.pl.

foreach my $path	(	split(/:/, $ENV{'PATH'}.':/usr/local/bin:/usr/bin')	,
		'.'
	)

Definition at line 43 of file handler.pl.

$sh execute	(	$	starttime,
		$	chanid
	)

my	(	$	basename,
		$	title,
		$	subtitle
	)

unless

(

$

basename = ~ /\w/

)

Definition at line 64 of file handler.pl.

$sh execute

(

)

while

(

my($video_dir)

= $sh->fetchrow_array()

)

Definition at line 75 of file handler.pl.

$sh execute

(

'WebFLV_w'

)

my

(

$

width

)

$sh execute

(

'WebFLV_vb'

)

$sh execute

(

'WebFLV_ab'

)

if

(

)

Definition at line 105 of file handler.pl.

elsif

(

)

Definition at line 138 of file handler.pl.

---

Variable Documentation

use Fcntl

Definition at line 12 of file handler.pl.

our $ffmpeg_pid

Definition at line 18 of file handler.pl.

our $starttime = url_param('starttime')

Definition at line 34 of file handler.pl.

Referenced by foreach().

$ffmpeg = ''

Definition at line 42 of file handler.pl.

$sh

Initial value:

 $dbh->prepare('SELECT basename, title, subtitle
                              FROM recorded
                             WHERE starttime=FROM_UNIXTIME(?)
                                   AND recorded.chanid   = ?')

Definition at line 55 of file handler.pl.

$sh finish

Definition at line 61 of file handler.pl.

my $filename

Definition at line 71 of file handler.pl.

$width = 320 unless ($width && $width > 1)

Definition at line 97 of file handler.pl.

Referenced by Video::__construct().

$vbitrate = 256 unless ($vbitrate && $vbitrate > 1)

Definition at line 98 of file handler.pl.

$abitrate = 64 unless ($abitrate && $abitrate > 1)

Definition at line 99 of file handler.pl.

my $height = int($width * 3/4)

Definition at line 102 of file handler.pl.

Referenced by Video::__construct().