myth.rebuilddatabase.pl File Reference

Go to the source code of this file.

Functions
use Time::Format	qw (time_format)
	my ($verbose, $dir)
	if ($0=~m/([^\/]+)$/)
	GetOptions ('verbose+'=>\$verbose, 'database=s'=>\$database, 'dbhost=s'=>\$dbhost, 'host=s'=>\$host, 'user=s'=>\$user, 'pass=s'=>\$pass, 'dir=s'=>\$dir, 'group=s'=>\$storagegroup, 'show_existing|se'=>\$show_existing, 'try_default|td'=>\$try_default, 'quick_run|qr'=>\$quick_run, 'test_mode|t|tm'=>\$test_mode, 'ext=s'=>\$ext, 'file=s'=>\$file, 'answer=s'=>\@answers,#=s{,}would be nice but isn't implemented widely 'norename'=>\$norename)
	my ($starttime, $endtime, $title, $subtitle, $channel, $description, $recgroup)
	my ($syear, $smonth, $sday, $shour, $sminute, $ssecond, $eyear, $emonth, $eday, $ehour, $eminute, $esecond)
	if (!$dir)
foreach my	$show (@files)
Variables
use	strict
use	DBI
my	$show_existing = 0
my	$test_mode = 0
my	$quick_run = 0
my	$try_default = 0
my	$host = hostname
my	$dbhost = $host
my	$database = "mythconverg"
my	$user = "mythtv"
my	$pass = "mythtv"
my	$ext = "{nuv,mpg,mpeg,avi}"
my	$file = ""
my	answers
my	$norename = 0
my	$storagegroup = "Default"
my	$date_regx = qr/(\d\d\d\d)(\d\d)(\d\d)(\d\d)(\d\d)(\d\d)/
my	$db_date_regx = qr/(\d\d\d\d)-(\d\d)-(\d\d) (\d\d):(\d\d):(\d\d)/
my	$channel_regx = qr/(\d\d\d\d)/
my	$script_version = "0.0.3"
my	$argc = @ARGV
my	$dbh
my	$q = ""
my	$sth
	$dir
print your database to see if the exist If they do	not
print your database to see if the exist If they do you will be prompted	n
print for a title and subtitle of the	entry
my	files = $file ? ($dir . "/" . $file) : glob("$dir/*.$ext")

---

Function Documentation

use Time::Format qw

(

time_format

)

my	(	$	verbose,
		$	dir
	)

if

(

$

0 = ~ m/([^\/]+)$/

)

Definition at line 111 of file myth.rebuilddatabase.pl.

GetOptions	(	'verbose+'	,
		\$	verbose,
		'	database = s'=,
		\$	database,
		'	dbhost = s'=,
		\$	dbhost,
		'	host = s'=,
		\$	host,
		'	user = s'=,
		\$	user,
		'	pass = s'=,
		\$	pass,
		'	dir = s'=,
		\$	dir,
		'	group = s'=,
		\$	storagegroup,
		'show_existing|se'	,
		\$	show_existing,
		'try_default|td'	,
		\$	try_default,
		'quick_run|qr'	,
		\$	quick_run,
		'test_mode|t|tm'	,
		\$	test_mode,
		'	ext = s'=,
		\$	ext,
		'	file = s'=,
		\$	file,
		'	answer = s'=,
		\@	answers
	)

my	(	$	starttime,
		$	endtime,
		$	title,
		$	subtitle,
		$	channel,
		$	description,
		$	recgroup
	)

my	(	$	syear,
		$	smonth,
		$	sday,
		$	shour,
		$	sminute,
		$	ssecond,
		$	eyear,
		$	emonth,
		$	eday,
		$	ehour,
		$	eminute,
		$	esecond
	)

if

(

!$

dir

)

Definition at line 201 of file myth.rebuilddatabase.pl.

foreach my $show

(

@

files

)

Definition at line 253 of file myth.rebuilddatabase.pl.

---

Variable Documentation

use strict

Definition at line 49 of file myth.rebuilddatabase.pl.

use DBI

Definition at line 50 of file myth.rebuilddatabase.pl.

my $show_existing = 0

Definition at line 59 of file myth.rebuilddatabase.pl.

my $test_mode = 0

Definition at line 60 of file myth.rebuilddatabase.pl.

my $quick_run = 0

Definition at line 61 of file myth.rebuilddatabase.pl.

my $try_default = 0

Definition at line 62 of file myth.rebuilddatabase.pl.

my $host = hostname

Definition at line 64 of file myth.rebuilddatabase.pl.

Referenced by Channel::__construct(), MythTV::Command(), MythTV::CreateSocket(), if(), MythTV::Receive(), MythTV::Send(), MythTV::StatusCommand(), MythTV::StreamBackendFile(), usage(), and while().

my $dbhost = $host

Definition at line 65 of file myth.rebuilddatabase.pl.

my $database = "mythconverg"

Definition at line 66 of file myth.rebuilddatabase.pl.

Referenced by usage().

my $user = "mythtv"

Definition at line 67 of file myth.rebuilddatabase.pl.

Referenced by usage().

my $pass = "mythtv"

Definition at line 68 of file myth.rebuilddatabase.pl.

Referenced by usage().

my $ext = "{nuv,mpg,mpeg,avi}"

Definition at line 69 of file myth.rebuilddatabase.pl.

my $file = ""

Definition at line 70 of file myth.rebuilddatabase.pl.

Referenced by if(), MythTV::LoadConfig(), PackagedExecutable(), and usage().

my answers

Definition at line 71 of file myth.rebuilddatabase.pl.

my $norename = 0

Definition at line 72 of file myth.rebuilddatabase.pl.

my $storagegroup = "Default"

Definition at line 73 of file myth.rebuilddatabase.pl.

my $date_regx = qr/(\d\d\d\d)(\d\d)(\d\d)(\d\d)(\d\d)(\d\d)/

Definition at line 75 of file myth.rebuilddatabase.pl.

my $db_date_regx = qr/(\d\d\d\d)-(\d\d)-(\d\d) (\d\d):(\d\d):(\d\d)/

Definition at line 76 of file myth.rebuilddatabase.pl.

my $channel_regx = qr/(\d\d\d\d)/

Definition at line 77 of file myth.rebuilddatabase.pl.

my $script_version = "0.0.3"

Definition at line 115 of file myth.rebuilddatabase.pl.

my $argc = @ARGV

Definition at line 119 of file myth.rebuilddatabase.pl.

my $dbh

Initial value:

 DBI->connect("dbi:mysql:database=$database:host=$dbhost",
                "$user","$pass") or die "Cannot connect to database ($!)\n"

Definition at line 191 of file myth.rebuilddatabase.pl.

Referenced by $table(), if(), and unless().

my $q = ""

Definition at line 198 of file myth.rebuilddatabase.pl.

my $sth

Definition at line 199 of file myth.rebuilddatabase.pl.

$dir

Definition at line 208 of file myth.rebuilddatabase.pl.

print your database to see if the exist If they do not

Definition at line 247 of file myth.rebuilddatabase.pl.

Referenced by SmartPlaylistEditor::getWhereClause(), if(), and usage().

print files n

Definition at line 247 of file myth.rebuilddatabase.pl.

print for a title and subtitle of the entry

Definition at line 248 of file myth.rebuilddatabase.pl.

Referenced by SipRegistrar::add(), DSMCCCache::AddDirInfo(), DSMCCCache::AddFileInfo(), PhoneUIBox::alertUser(), avi_write_idx1(), VideoListImp::build_generic_tree(), channelscan_advance(), channelscan_get_progress(), DirectoryContainer::FindMatchingDirectoryEntry(), flic_decode_frame_8BPP(), floor_encode(), GalleryUtil::GetCaption(), LiveTVChain::GetCardType(), LiveTVChain::GetChannelName(), MetaIOFLACVorbisComment::getComment(), DirectoryContainer::getDirEntrybyDbId(), NuppelDecoder::GetFrame(), LiveTVChain::GetInputName(), LiveTVChain::GetLengthAtCurPos(), GalleryUtil::GetNaturalRotation(), LiveTVChain::GetProgramAt(), LiveTVChain::GetSwitchProgram(), AvFormatDecoder::HandleGopStart(), PhoneUIBox::handleTreeListSignals(), hdhomerun_channel_frequency_to_number(), hdhomerun_channel_list_build_range(), hdhomerun_channel_list_destroy(), hdhomerun_channel_list_frequency_count(), hdhomerun_channel_list_total_count(), hdhomerun_channel_number_to_frequency(), hdhomerun_device_selector_add_device(), hdhomerun_device_selector_choose_and_lock(), hdhomerun_device_selector_destroy(), hdhomerun_device_selector_find_device(), hdhomerun_device_selector_remove_device(), ImportIconsWizard::initialLoad(), DirectoryContainer::Load(), PhoneUIBox::menuHistorySave(), ImportIconsWizard::menuSelection(), mkv_write_cues(), mkv_write_seekhead(), IvtvDecoder::MpegPreProcessPkt(), OSD::parseTextArea(), put_vector(), LiveTVChain::ReloadAll(), residue_encode(), ImportIconsWizard::search(), MetaIOFLACVorbisComment::setComment(), MythPopupBox::showPasswordPopup(), and while().

my files = $file ? ($dir . "/" . $file) : glob("$dir/*.$ext")

Definition at line 250 of file myth.rebuilddatabase.pl.

Referenced by MythThemedMenuPrivate::findDepends(), if(), SourceManager::recurseDirs(), RecursiveCopy(), sample_dump(), and usage().