mythlink.pl File Reference

Go to the source code of this file.

Functions
	our ($dest, $format, $usage, $underscores, $live, $rename, $maxlength)
	our ($chanid, $starttime, $filename)
	our ($dformat, $dseparator, $dreplacement, $separator, $replacement)
	our ($db_host, $db_user, $db_name, $db_pass, $video_dir, $verbose)
	GetOptions ('link|destination|path:s'=>\$dest, 'chanid=s'=>\$chanid, 'starttime=s'=>\$starttime, 'filename=s'=>\$filename, 'format=s'=>\$format, 'live'=>\$live, 'separator=s'=>\$separator, 'replacement=s'=>\$replacement, 'rename'=>\$rename, 'maxlength=i'=>\$maxlength, 'usage|help'=>\$usage, 'underscores'=>\$underscores, 'verbose'=>\$verbose)
	if ($usage)
	chomp ($hostname)
	if ($base_dir eq '')
	vprint ("Link destination directory: $dest")
	unless (-e $dest)
die $dest is not a directory n	unless (-d $dest)
	if (!defined($filename) and!defined($chanid))
	if (defined($chanid))
Variables
use	DBI
use	MythTV
	$dformat = '%T %- %Y-%m-%d
g i A	S
	$dseparator = '-'
	$dreplacement = '-'
	$format = $dformat
	$separator = $dseparator
	$replacement = $dreplacement
	$maxlength = -1
our	$safe_sep = $separator
our	$safe_rep = $replacement
	$hostname = `hostname`
my	$Myth = new MythTV()
	$dbh = $Myth->{'dbh'}
	$base_dir = $sgroup->FindRecordingDir('show_names')
	$dest = "$base_dir/show_names"
my	rows = ()

---

Function Documentation

our	(	$	dest,
		$	format,
		$	usage,
		$	underscores,
		$	live,
		$	rename,
		$	maxlength
	)

our	(	$	chanid,
		$	starttime,
		$	filename
	)

our	(	$	dformat,
		$	dseparator,
		$	dreplacement,
		$	separator,
		$	replacement
	)

our	(	$	db_host,
		$	db_user,
		$	db_name,
		$	db_pass,
		$	video_dir,
		$	verbose
	)

GetOptions	(	'link|destination|path:s'	,
		\$	dest,
		'	chanid = s'=,
		\$	chanid,
		'	starttime = s'=,
		\$	starttime,
		'	filename = s'=,
		\$	filename,
		'	format = s'=,
		\$	format,
		'live'	,
		\$	live,
		'	separator = s'=,
		\$	separator,
		'	replacement = s'=,
		\$	replacement,
		'rename'	,
		\$	rename,
		'	maxlength = i'=,
		\$	maxlength,
		'usage|help'	,
		\$	usage,
		'underscores'	,
		\$	underscores,
		'verbose'	,
		\$	verbose
	)

if

(

$

usage

)

Definition at line 61 of file mythlink.pl.

chomp

(

$

hostname

)

Referenced by if(), and open().

if

(

$base_dir eq ''

)

Definition at line 310 of file mythlink.pl.

vprint

(

"Link destination directory: $dest"

)

unless

(

-e $

dest

)

Definition at line 320 of file mythlink.pl.

die $dest is not a directory n unless

(

-d $

dest

)

if

(

!

defined$filename) and!defined($chanid

)

Definition at line 326 of file mythlink.pl.

if

(

defined($chanid)

)

Definition at line 339 of file mythlink.pl.

---

Variable Documentation

use DBI

Definition at line 17 of file mythlink.pl.

use MythTV

Definition at line 22 of file mythlink.pl.

$dformat = '%T %- %Y-%m-%d

Definition at line 32 of file mythlink.pl.

g i A S

Definition at line 32 of file mythlink.pl.

Referenced by create_ts(), draw_ifs(), and idct_col().

$dseparator = '-'

Definition at line 34 of file mythlink.pl.

Referenced by if().

$dreplacement = '-'

Definition at line 36 of file mythlink.pl.

Referenced by if().

$format = $dformat

Definition at line 39 of file mythlink.pl.

$separator = $dseparator

Definition at line 40 of file mythlink.pl.

$replacement = $dreplacement

Definition at line 41 of file mythlink.pl.

$maxlength = -1

Definition at line 42 of file mythlink.pl.

$safe_sep = $separator

Definition at line 283 of file mythlink.pl.

$safe_rep = $replacement

Definition at line 285 of file mythlink.pl.

$hostname = `hostname`

Definition at line 289 of file mythlink.pl.

my $Myth = new MythTV()

Definition at line 293 of file mythlink.pl.

$dbh = $Myth->{'dbh'}

Definition at line 296 of file mythlink.pl.

$base_dir = $sgroup->FindRecordingDir('show_names')

Definition at line 309 of file mythlink.pl.

Referenced by if().

$dest = "$base_dir/show_names"

Definition at line 316 of file mythlink.pl.

Referenced by if().

my rows = ()

Definition at line 338 of file mythlink.pl.