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(), $node(), $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 = ~ /^sunny$/i

)

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.

Referenced by hardwareprofile.distros.mythtv_data.data_mythtv._Mythtv_data::ProcessSource(), hardwareprofile.distros.mythtv_data.data_mythtv._Mythtv_data::Processtuners(), and hardwareprofile.distros.mythtv_data.data_mythtv._Mythtv_data::ProcessVideoProfile().

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

Definition at line 65 of file channel_icons.pl.