Go to the source code of this file.
Functions | |
| our ($dest, $format, $usage, $underscores, $live) | |
| our ($db_host, $db_user, $db_name, $db_pass, $video_dir, $verbose) | |
| GetOptions ('link|dest|destination|path:s'=>\$dest, 'format=s'=>\$format, 'live'=>\$live, 'separator=s'=>\$separator, 'replacement=s'=>\$replacement, 'usage|help|h'=>\$usage, 'underscores'=>\$underscores, 'verbose'=>\$verbose) | |
| if ($usage) | |
| chomp ($hostname) | |
| if ($base_dir eq '') | |
| if (defined($dest)) | |
| unless ($dest) | |
| foreach my | $row (@{$rows{'rows'}}) |
Variables | |
| use | DBI |
| use | MythTV |
| $dformat = '%T %- %Y-%m-%d | |
| g i A | S |
| $dseparator = '-' | |
| $dreplacement = '-' | |
| $format = $dformat | |
| $separator = $dseparator | |
| $replacement = $dreplacement | |
| our | $safe_sep = $separator |
| our | $safe_rep = $replacement |
| $hostname = `hostname` | |
| my | $Myth = new MythTV() |
| $dbh = $Myth->{'dbh'} | |
| $base_dir = $sgroup->FindRecordingDir('show_names') | |
| my | rows = $Myth->backend_rows('QUERY_RECORDINGS Delete') |
| our | ( | $ | dest, | |
| $ | format, | |||
| $ | usage, | |||
| $ | underscores, | |||
| $ | live | |||
| ) |
| our | ( | $ | db_host, | |
| $ | db_user, | |||
| $ | db_name, | |||
| $ | db_pass, | |||
| $ | video_dir, | |||
| $ | verbose | |||
| ) |
| GetOptions | ( | 'link|dest|destination|path:s' | , | |
| \$ | dest, | |||
| ' | format = s'=, |
|||
| \$ | format, | |||
| 'live' | , | |||
| \$ | live, | |||
| ' | separator = s'=, |
|||
| \$ | separator, | |||
| ' | replacement = s'=, |
|||
| \$ | replacement, | |||
| 'usage|help|h' | , | |||
| \$ | usage, | |||
| 'underscores' | , | |||
| \$ | underscores, | |||
| 'verbose' | , | |||
| \$ | verbose | |||
| ) |
| if | ( | $ | usage | ) |
Definition at line 54 of file mythrename.pl.
| chomp | ( | $ | hostname | ) |
Referenced by if(), and RecursiveCopy().
| if | ( | $base_dir eq '' | ) |
Definition at line 240 of file mythrename.pl.
| if | ( | defined($dest) | ) |
Definition at line 245 of file mythrename.pl.
| unless | ( | $ | dest | ) |
Definition at line 267 of file mythrename.pl.
| foreach my $row | ( | ) |
Definition at line 274 of file mythrename.pl.
| use DBI |
Definition at line 17 of file mythrename.pl.
| use MythTV |
Definition at line 22 of file mythrename.pl.
Definition at line 31 of file mythrename.pl.
Referenced by create_ts(), dering_altivec(), draw_ifs(), idct_col(), if(), P4(), P5(), usage(), and wv_unpack_mono().
| $dseparator = '-' |
Definition at line 33 of file mythrename.pl.
| $dreplacement = '-' |
Definition at line 35 of file mythrename.pl.
| $format = $dformat |
Definition at line 38 of file mythrename.pl.
| $separator = $dseparator |
Definition at line 39 of file mythrename.pl.
| $replacement = $dreplacement |
| $safe_sep = $separator |
Definition at line 218 of file mythrename.pl.
| $safe_rep = $replacement |
Definition at line 220 of file mythrename.pl.
Definition at line 224 of file mythrename.pl.
Referenced by MythTV::GetLocalHostname(), and MythTV::Setting().
| my $Myth = new MythTV() |
Definition at line 228 of file mythrename.pl.
| $dbh = $Myth->{'dbh'} |
Definition at line 231 of file mythrename.pl.
| $base_dir = $sgroup->FindRecordingDir('show_names') |
| my rows = $Myth->backend_rows('QUERY_RECORDINGS Delete') |
Definition at line 273 of file mythrename.pl.
1.5.5