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)
foreach my	$line (split/\n/, $data)
foreach my	$chanid (sort{$Myth->{'channels'}{$a}{'name'}cmp $Myth->{'channels'}{$b}{'name'}}keys%{$Myth->{'channels'}})
	if ($match_csv)
Variables
our	$UserAgent = 'MythTV Channel Icon lookup bot'
our	$data_url
use	MythTV
my	$data = wget("$data_url/ping")
my	matches
my	$count = 0
my	$white = ' ' x (29 - length($count) - length($searchcount))
my	$match_csv
print Imported $count channel icons into your MythTV database	n
$sh	finish

---

Function Documentation

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

)

Definition at line 50 of file channel_icons.pl.

Referenced by $comp(), $method(), $table(), $trans_file(), if(), and while().

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.

foreach my $line	(	split/\n/	,
		$	data
	)

Definition at line 130 of file channel_icons.pl.

Referenced by $line(), and MythTV::LoadConfig().

foreach my $chanid

(

)

Definition at line 160 of file channel_icons.pl.

Referenced by $line(), foreach(), MythTV::LoadChannels(), and usage().

if

(

$

match_csv

)

Definition at line 249 of file channel_icons.pl.

---

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.

Referenced by Channel::__construct(), MythTV::BackendRows(), by(), MythTV::CreateSocket(), Services_JSON::isError(), MythTV::Receive(), MythTV::SendData(), and while().

my matches

Definition at line 128 of file channel_icons.pl.

Referenced by VideoFilterSettings::matches_filter().

$count = 0

Definition at line 129 of file channel_icons.pl.

Referenced by internalUpdatePlaylist(), playlist_rem(), and searchMusic().

my $white = ' ' x (29 - length($count) - length($searchcount))

Definition at line 138 of file channel_icons.pl.

my $match_csv

Definition at line 155 of file channel_icons.pl.

Referenced by if().

print Imported $count channel icons into your MythTV database n

Definition at line 277 of file channel_icons.pl.

sh finish

Definition at line 279 of file channel_icons.pl.

Referenced by matroska_parse_seekhead(), and BookmarksConfig::setupView().