topdocumentaryfilm.pl File Reference

Go to the source code of this file.

Functions
	mnvloadconfig (fileparse($Script, '.pl'),"notused")
	our ($opt_v, $opt_T, $opt_p, $opt_S)
hopefully these won t need to changed	getopts ('vtTp:S:')
	if ($opt_v)
	elsif ($opt_S)
	if (($ss)&&(time()-$ss->mtime)< mnvgetconfig('cachetime'))
	mnvrssfooter ()

Variables
use	strict
use	warnings
use	Encode
use	Storable
use FindBin	$Bin
use FindBin	$Script
use lib $Bin	nv_perl_libs
use	mnvcommonsubs
my	autoplay
my	$version = '$Revision: 1.17 $'
my	$command = "topdocumentaryfilm.pl"
my	$commandthumbnail = "topdocumentaryfilm.png"
my	$author = "Auric"
my	$site = 'TopDocumentaryFilms'
my	$description = 'Great collection of documentary movies'
my	$baseurl = "/tmp/.${site}.diritemsref.store"
my	diritems
return	dirurls
my	$type
my	$page = 1
my	$search = ""
my	$diritemsref = \%diritems
my	$totalitems = 0
my	$filtereditems = 0
my	$ss = stat($store)
print< channel >< title > $site</title >< link > $baseurl</link >< description > $description</description >	n
	mnvcleanexit

Function Documentation

mnvloadconfig	(	fileparse($Script, '.pl')	,
		"notused"
	)

our	(		$opt_v,
			$opt_T,
			$opt_p,
			$opt_S
	)

hopefully these won t need to changed getopts

(

'vtTp:S:'

)

if

(

$opt_v

)

Definition at line 325 of file topdocumentaryfilm.pl.

elsif

(

$opt_S

)

Definition at line 334 of file topdocumentaryfilm.pl.

if

(

)

Definition at line 351 of file topdocumentaryfilm.pl.

mnvrssfooter

(

)

Variable Documentation

use strict

Definition at line 34 of file topdocumentaryfilm.pl.

use warnings

Definition at line 35 of file topdocumentaryfilm.pl.

use Encode

Definition at line 43 of file topdocumentaryfilm.pl.

use Storable

Definition at line 44 of file topdocumentaryfilm.pl.

use FindBin $Bin

Definition at line 47 of file topdocumentaryfilm.pl.

use FindBin $Script

Definition at line 47 of file topdocumentaryfilm.pl.

use lib $Bin nv_perl_libs

Definition at line 48 of file topdocumentaryfilm.pl.

use mnvcommonsubs

Definition at line 49 of file topdocumentaryfilm.pl.

my autoplay

Initial value:

 (
'youtube.com' => '&autoplay=1',
'220.ro' => '&aplay=true',
'megavideo.com' => 'SKIP',
'veoh.com' => 'videoAutoPlay=1',
'crunchyroll.com' => 'auto_play=true',
'mediaservices.myspace.com' => ',AutoPlay=true',
)

Definition at line 55 of file topdocumentaryfilm.pl.

$version = '$Revision: 1.17 $'

Definition at line 65 of file topdocumentaryfilm.pl.

Referenced by if().

my $command = "topdocumentaryfilm.pl"

Definition at line 66 of file topdocumentaryfilm.pl.

my $commandthumbnail = "topdocumentaryfilm.png"

Definition at line 66 of file topdocumentaryfilm.pl.

Referenced by if().

my $author = "Auric"

Definition at line 66 of file topdocumentaryfilm.pl.

Referenced by if().

my $site = 'TopDocumentaryFilms'

Definition at line 67 of file topdocumentaryfilm.pl.

Referenced by if().

my $description = 'Great collection of documentary movies'

Definition at line 68 of file topdocumentaryfilm.pl.

Referenced by if().

my $baseurl = "/tmp/.${site}.diritemsref.store"

Definition at line 69 of file topdocumentaryfilm.pl.

my diritems

Definition at line 73 of file topdocumentaryfilm.pl.

return dirurls

Definition at line 194 of file topdocumentaryfilm.pl.

my $type

Definition at line 331 of file topdocumentaryfilm.pl.

my $page = 1

Definition at line 331 of file topdocumentaryfilm.pl.

my $search = ""

Definition at line 331 of file topdocumentaryfilm.pl.

my $diritemsref = \%diritems

Definition at line 348 of file topdocumentaryfilm.pl.

my $totalitems = 0

Definition at line 349 of file topdocumentaryfilm.pl.

my $filtereditems = 0

Definition at line 349 of file topdocumentaryfilm.pl.

my $ss = stat($store)

Definition at line 350 of file topdocumentaryfilm.pl.

print<channel><title> $site</title><link> $baseurl</link><description> $description</description> n

Definition at line 366 of file topdocumentaryfilm.pl.

mnvcleanexit

Definition at line 382 of file topdocumentaryfilm.pl.