channel_icons.pl File Reference

Go to the source code of this file.

Functions
use Fcntl	qw (F_SETFD)
	my ($find_missing, $rescan, $icon_dir, $callsign, $xmltvid, $iconmap, $usage)
	GetOptions (#Find missing icons 'find-missing'=>\$find_missing, 'rescan'=>\$rescan, 'icon-dir=s'=>\$icon_dir,#Lookup 'callsign=s'=>\$callsign, 'xmltvid=s'=>\$xmltvid, 'iconmap'=>\$iconmap,#Misc 'usage|help'=>\&print_usage,)
	unless ($icon_dir)
die Icon directory $icon_dir is not a directory n	unless (-d $icon_dir)
die Icon directory $icon_dir is not a writable n	unless (-w $icon_dir)
	if (!$data||$data!~/^\d+$/m)
	elsif ($callsign)

Variables
our	$UserAgent = 'MythTV Channel Icon lookup bot'
our	$data_url
use	MythTV
my	$data = wget("$data_url/ping")

Function Documentation

use Fcntl qw

(

F_SETFD

)

my	(		$find_missing,
			$rescan,
			$icon_dir,
			$callsign,
			$xmltvid,
			$iconmap,
			$usage
	)

Referenced by $contenturl(), $hashref(), $method(), $time(), $warning(), dvdnav_mouse_select(), elsif(), foreach(), if(), and open().

GetOptions	(	#Find missing icons 'find-missing'	,
		\	$find_missing,
		'rescan'	,
		\	$rescan,
		'icon-	dir = s'=,
		\	$icon_dir,
		#Lookup '	callsign = s'=,
		\	$callsign,
		'	xmltvid = s'=,
		\	$xmltvid,
		'iconmap'	,
		\	$iconmap,
		#Misc 'usage|help'	,
		\&	print_usage
	)

unless

(

$icon_dir

)

Definition at line 50 of file channel_icons.pl.

Referenced by $method(), $table(), if(), and open().

die Icon directory $icon_dir is not a directory n unless

(

-d

$icon_dir

)

die Icon directory $icon_dir is not a writable n unless

(

-w

$icon_dir

)

if

(

!$data||$data!~/^\d+$/

m

)

Definition at line 66 of file channel_icons.pl.

elsif

(

$callsign

)

Definition at line 73 of file channel_icons.pl.

Referenced by foreach(), if(), open(), and unless().

Variable Documentation

our $UserAgent = 'MythTV Channel Icon lookup bot'

Definition at line 17 of file channel_icons.pl.

our $data_url

Initial value:

 'http:

# Includes
    use HTTP::Request

Definition at line 20 of file channel_icons.pl.

use MythTV

Definition at line 27 of file channel_icons.pl.

my $data = wget("$data_url/ping")

Definition at line 65 of file channel_icons.pl.