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
	)

Referenced by $contenturl(), $hashref(), $line(), $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 90 of file channel_icons.pl.

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

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

Definition at line 130 of file channel_icons.pl.

Referenced by $line(), and open().

foreach my $chanid

(

)

Definition at line 160 of file channel_icons.pl.

Referenced by $line(), and elsif().

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.

Referenced by elsif().

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

Definition at line 65 of file channel_icons.pl.

my matches

Definition at line 128 of file channel_icons.pl.

Referenced by VideoDialog::GetCoverImage(), VideoDialog::GetImageFromFolder(), GetVideoDirsByHost(), VideoFilterSettings::matches_filter(), and TV::ProcessNetworkControlCommand().

return $count = 0

Definition at line 129 of file channel_icons.pl.

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 National Weather Service n

Definition at line 277 of file channel_icons.pl.

Referenced by $line(), _sound_read_samples(), MHIText::AddText(), StreamWorker::BandwidthAdaptation(), LookerUpper::CopyRuleInetrefsToRecordings(), create_ts(), XMLParseBase::doLoad(), doLoadScreens(), XMLParse::doLoadTheme(), NuppelVideoRecorder::DoMJPEG(), AudioOutputDownmix::DownmixFrames(), Piano::draw(), DVDFileStatVOBPath(), DVDFileStatVOBUDF(), DVDISOVolumeInfo(), editDistance(), NativeArchive::findNodeText(), HLSStream::FindSegment(), HLSRingBuffer::FindStream(), finish_mpg(), foo(), FreeUDFCache(), generate_pink_noise_sample(), MHIText::GetBounds(), Channel::GetChannelInfoList(), Dvr::GetConflictList(), AudioOutputALSA::GetDevices(), Dvr::GetExpiringList(), getFileDetails(), Dvr::GetFilteredRecordedList(), GLSingleView::GetNearestGLTextureSize(), Guide::GetProgramGuide(), Dvr::GetRecordScheduleList(), GetUDFCache(), Dvr::GetUpcomingList(), Video::GetVideoList(), Channel::GetVideoMultiplexList(), MythGenericTree::getVisibleChildAt(), LookerUpper::HandleAllArtwork(), LookerUpper::HandleAllRecordingRules(), LookerUpper::HandleAllRecordings(), ifoRead_VTS_PTT_SRPT(), NativeArchive::importRecording(), NativeArchive::importVideo(), lirc_read_string(), lirc_send_command(), MythLocale::LoadDefaultsFromXML(), loadDetailsFromXML(), MythBurn::loadEncoderProfiles(), MythUIVirtualKeyboard::loadKeyDefinitions(), loadScreen(), Video::LookupVideo(), md5_stream(), navRead_PCI(), MSocketDevice::option(), parse_dom(), UPNPScanner::ParseBrowse(), UPNPScanner::ParseDescription(), XMLTVParser::parseFile(), MythUIVirtualKeyboard::parseKey(), MythThemedMenu::parseMenu(), PlayListFile::parsePLS(), parseRTSPRequestString(), ThemeInfo::parseThemeInfo(), MythUDPListener::Process(), Piano::process_all_types(), pullup_get_frame(), pxsubtitle(), read_avi_header(), read_decoder_table(), BufferedSocketDevice::ReadBytes(), PlaylistWorker::ReloadPlaylist(), remap_add_node(), HLSStream::RemoveSegment(), rsf_get_scale_factors_2(), rtcp_interval(), HLSRingBuffer::SanitizeStreams(), MMembuf::scanNewline(), HLSRingBuffer::Seek(), SetLength(), MSocketDevice::setOption(), SetUDFCache(), decoder_impl::surround_coefficients(), PlaylistWorker::UpdatePlaylist(), vbi_handler(), vbi_line(), DRMVideoSync::WaitForFrame(), XMLParseBase::WindowExists(), write_ts_patpmt(), xxfread(), and xxfwrite().

$sh finish

Definition at line 279 of file channel_icons.pl.