mythconverg_backup.pl File Reference

Go to the source code of this file.

Functions
	our ($username, $homedir, $mythconfdir, $database_information_file)
	our ($mysqldump, $compress, $rotate, $rotateglob, $backup_xmltvids)
	our ($backup_directory, $backup_filename)
	our ($verbose_level_always, $verbose_level_debug, $verbose_level_error)
	GetOptions ('hostname\|DBHostName=s'=>\$db_hostname, 'port\|DBPort=i'=>\$db_port, 'username\|DBUserName=s'=>\$db_username,#This script does not accept a database password on the command-line.# 'password\|DBPassword=s'=>\$db_password, 'name\|DBName=s'=>\$db_name, 'schemaver\|DBSchemaVer=s'=>\$db_schema_version, 'directory\|DBBackupDirectory=s'=>\$backup_directory, 'filename\|DBBackupFilename=s'=>\$backup_filename, 'mysqldump=s'=>\$mysqldump, 'compress=s'=>\$compress, 'rotate=i'=>\$rotate, 'rotateglob\|glob=s'=>\$rotateglob, 'backup_xmltvids\|backup-xmltvids\|'. 'xmltvids'=>\$backup_xmltvids, 'usage\|help\|h+'=>\$usage, 'version'=>\$show_version, 'script_version\|script-version\|v'=>\$show_version_script, 'verbose\|debug\|d+'=>\$debug)
sub print_version_information my	rindex ($0, '/')+1
	if ($show_version_script)
	elsif ($show_version)
	verbose ($verbose_level_debug," - checking: $file")
return	unless ($file &&-e $file)
	verbose ($verbose_level_debug," parsing: $file")
	open (CONF, $file) or die("\nERROR
	if ((!-d $backup_conf{'directory'})\|\|(!-w $backup_conf{'directory'}))
	if (!$backup_conf{'filename'})
return	if (!$debug)
Variables
use File::Temp qw	tempfile
	$NAME = 'MythTV Database Backup Script'
	$VERSION = '1.0.11'
our	mysql_conf
our	backup_conf
our	$is_env_tainted = 1
our	$old_env_path = $ENV{"PATH"}
our	d_allowed_paths
our	allowed_paths
	$verbose_level_always = 0
	$verbose_level_debug = 1
	$verbose_level_error = 255
	$d_db_name = 'mythconverg'
	$d_mysqldump = 'mysqldump'
	$d_compress = 'gzip'
	$d_rotate = 5
	$d_rotateglob = $d_db_name.'-????-??????????????.sql*'
	$mysqldump = $d_mysqldump
	$compress = $d_compress
	$rotate = $d_rotate
	$rotateglob = $d_rotateglob
	$debug = 0
sub print_version_information my	$script_name = substr $0
print $NAME n $script_name	nversion
	__pad0__
	stopped
if it	exists
if it should be a database	$database_information_file = shift
	configure_environment
	read_config
	check_config
	print_configuration
my	$status = 1

Function Documentation

our	(	$	username,
		$	homedir,
		$	mythconfdir,
		$	database_information_file
	)

our	(	$	mysqldump,
		$	compress,
		$	rotate,
		$	rotateglob,
		$	backup_xmltvids
	)

our	(	$	backup_directory,
		$	backup_filename
	)

our	(	$	verbose_level_always,
		$	verbose_level_debug,
		$	verbose_level_error
	)

GetOptions	(	'hostname\|	DBHostName = `s'=`,
		\$	db_hostname,
		'port\|	DBPort = `i'=`,
		\$	db_port,
		'username\|	DBUserName = `s'=`,
		\$	db_username,
		#This script does not accept a database password on the command-line.# 'password\|	DBPassword = `s'=`,
		\$	db_password,
		'name\|	DBName = `s'=`,
		\$	db_name,
		'schemaver\|	DBSchemaVer = `s'=`,
		\$	db_schema_version,
		'directory\|	DBBackupDirectory = `s'=`,
		\$	backup_directory,
		'filename\|	DBBackupFilename = `s'=`,
		\$	backup_filename,
		'	mysqldump = `s'=`,
		\$	mysqldump,
		'	compress = `s'=`,
		\$	compress,
		'	rotate = `i'=`,
		\$	rotate,
		'rotateglob\|	glob = `s'=`,
		\$	rotateglob,
		'backup_xmltvids\|backup-xmltvids\|'. 'xmltvids'	,
		\$	backup_xmltvids,
		'usage\|help\|h+'	,
		\$	usage,
		'version'	,
		\$	show_version,
		'script_version\|script-version\|v'	,
		\$	show_version_script,
		'verbose\|debug\|d+'	,
		\$	debug
	)

sub print_version_information my rindex	(	$	0,
		'/'
	)

Type Constraints

if ( $ show_version_script )

Definition at line 1455 of file mythconverg_backup.pl.

elsif ( $ show_version )

Definition at line 106 of file mythconverg_backup.pl.

verbose	(	$	verbose_level_debug,
		" - checking: $file"
	)

Referenced by if(), and MythCommandLineParser::MythCommandLineParser().

return unless ( $file &&-e $ file )

verbose	(	$	verbose_level_debug,
		" parsing: $file"
	)

open	(	CONF	,
		$	file
	)

Definition at line 477 of file mythconverg_backup.pl.

Referenced by cc_open(), MediaMonitorUnix::CheckMountable(), cCiHandler::CreateCiHandler(), createTempFile(), DVBStreamHandler::CycleFiltersByPriority(), DVBCam::DVBCam(), DVDOpen(), FIFOWriter::FIFOWriteThread(), FileLogger::FileLogger(), VBIDevice::fillSelectionsFromDir(), VideoDevice::fillSelectionsFromDir(), MythSystemUnix::Fork(), AudioOutputOSS::GetOutputSettings(), if(), JoystickMenuThread::Init(), ZMServer::initMonitor(), main(), NuppelVideoRecorder::MJPEGInit(), mythfile_open(), V4LChannel::Open(), ThreadedFileWriter::Open(), NuppelVideoRecorder::Open(), MSocketDevice::open(), ImportRecorder::Open(), DVBPIDInfo::Open(), DVBChannel::Open(), AudioInputOSS::Open(), ASIStreamHandler::Open(), MainServer::OpenAndUnlink(), MythMediaDevice::openDevice(), AudioOutputOSS::OpenDevice(), FileRingBuffer::OpenFile(), MpegRecorder::OpenMpegFileAsInput(), MpegRecorder::OpenV4L2DeviceAsInput(), V4LRecorder::OpenVBIDevice(), HDPVRConfigurationGroup::probeCard(), MPEGConfigurationGroup::probeCard(), V4LConfigurationGroup::probeCard(), CardUtil::ProbeDVBFrontendName(), CardUtil::ProbeDVBType(), CardUtil::ProbeV4LAudioInputs(), CardUtil::ProbeV4LVideoInputs(), DeleteThread::ProcessNew(), MSqlDatabase::Reconnect(), FileLogger::reopen(), MpegRecorder::run(), DVBStreamHandler::RunTS(), MythCDROMLinux::setSpeed(), MythCDROMDarwin::setSpeed(), MPEG2replex::Start(), MpegRecorder::StartEncoding(), DVBStreamHandler::SupportsTSMonitoring(), RTCVideoSync::TryInit(), DRMVideoSync::TryInit(), vbi_open(), AudioOutputOSS::VolumeInit(), MPEG2fixup::WriteData(), and MPEG2fixup::WriteYUV().

if ( (!-d $backup_conf{'directory'})||(!-w $backup_conf{'directory'}) )

Definition at line 858 of file mythconverg_backup.pl.

if ( )

Definition at line 923 of file mythconverg_backup.pl.

return if ( !$ debug )

Definition at line 113 of file bbccurrentxml.pl.

Variable Documentation

use File::Temp qw tempfile

Definition at line 12 of file mythconverg_backup.pl.

$NAME = 'MythTV Database Backup Script'

Definition at line 15 of file mythconverg_backup.pl.

$VERSION = '1.0.11'

Definition at line 16 of file mythconverg_backup.pl.

our mysql_conf

Initial value:

 ('db_host'       => '',
                        'db_port'       => -1,
                        'db_user'       => '',
                        'db_pass'       => '',
                        'db_name'       => '',
                        'db_schemaver'  => ''
                        )

Definition at line 30 of file mythconverg_backup.pl.

our backup_conf

Initial value:

 ('directory'     => '',
                        'filename'      => ''
                       )

Definition at line 37 of file mythconverg_backup.pl.

our $is_env_tainted = 1

Definition at line 42 of file mythconverg_backup.pl.

our $old_env_path = $ENV{"PATH"}

Definition at line 43 of file mythconverg_backup.pl.

our d_allowed_paths

Initial value:

 ("/bin",
                            "/usr/bin",
                            "/usr/local/bin",
                            "/sbin",
                            "/usr/sbin",
                            "/usr/local/sbin"
                           )

Definition at line 44 of file mythconverg_backup.pl.

our allowed_paths

Definition at line 51 of file mythconverg_backup.pl.

$verbose_level_always = 0

Definition at line 54 of file mythconverg_backup.pl.

Referenced by if().

$verbose_level_debug = 1

Definition at line 55 of file mythconverg_backup.pl.

$verbose_level_error = 255

Definition at line 56 of file mythconverg_backup.pl.

$d_db_name = 'mythconverg'

Definition at line 59 of file mythconverg_backup.pl.