twit.tv.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)
foreach my	$contenturl (@links)
	getopts ('vtTp:S:')
	if ($opt_v)
	elsif ($opt_S)
	if (($ss)&&(time()-$ss->mtime)< mnvgetconfig('cachetime'))
	if ($type eq"search")
	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	$version = '$Revision: 1.32 $'
my	$command = "twit.tv.pl"
my	$commandthumbnail = "twit.tv.png"
my	$author = "Auric"
my	$site = 'TWiT.tv'
my	$description = 'Leo Laporte &amp
	Friends
my	$baseurl
my	diritems
my	$count = 0
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
	)

foreach my $contenturl

(

@

links

)

Definition at line 282 of file twit.tv.pl.

getopts

(

'vtTp:S:'

)

if

(

$

opt_v

)

Definition at line 355 of file twit.tv.pl.

elsif

(

$

opt_S

)

Definition at line 357 of file twit.tv.pl.

if

(

)

Definition at line 374 of file twit.tv.pl.

if

(

$type eq"search"

)

Definition at line 394 of file twit.tv.pl.

mnvrssfooter

(

)

---

Variable Documentation

use strict

Definition at line 34 of file twit.tv.pl.

use warnings

Definition at line 35 of file twit.tv.pl.

use Encode

Definition at line 43 of file twit.tv.pl.

use Storable

Definition at line 44 of file twit.tv.pl.

use FindBin $Bin

Definition at line 47 of file twit.tv.pl.

use FindBin $Script

Definition at line 47 of file twit.tv.pl.

use lib $Bin nv_perl_libs

Definition at line 48 of file twit.tv.pl.

use mnvcommonsubs

Definition at line 49 of file twit.tv.pl.

$version = '$Revision: 1.32 $'

Definition at line 56 of file twit.tv.pl.

my $command = "twit.tv.pl"

Definition at line 57 of file twit.tv.pl.

my $commandthumbnail = "twit.tv.png"

Definition at line 57 of file twit.tv.pl.

my $author = "Auric"

Definition at line 57 of file twit.tv.pl.

my $site = 'TWiT.tv'

Definition at line 58 of file twit.tv.pl.

my $description = 'Leo Laporte &amp

Definition at line 59 of file twit.tv.pl.

Friends

Definition at line 59 of file twit.tv.pl.

my $baseurl

Initial value:

 'http:
my $baseicon = 'http:
my $store = "/tmp/.${site}.diritemsref.store"

Definition at line 60 of file twit.tv.pl.

my diritems

Definition at line 64 of file twit.tv.pl.

return $count = 0

Definition at line 281 of file twit.tv.pl.

my $type

Definition at line 354 of file twit.tv.pl.

my $page = 1

Definition at line 354 of file twit.tv.pl.

my $search = ""

Definition at line 354 of file twit.tv.pl.

my $diritemsref = \%diritems

Definition at line 371 of file twit.tv.pl.

my $totalitems = 0

Definition at line 372 of file twit.tv.pl.

my $filtereditems = 0

Definition at line 372 of file twit.tv.pl.

my $ss = stat($store)

Definition at line 373 of file twit.tv.pl.

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

Definition at line 389 of file twit.tv.pl.

mnvcleanexit

Definition at line 405 of file twit.tv.pl.