Go to the source code of this file.
Functions | |
| GetOptions ( 'host=s'=>\$opt_host, 'dbhost=s'=>\$opt_dbhost, 'database=s'=>\$opt_database, 'user=s'=>\$opt_user, 'pass=s'=>\$opt_pass, 'dir=s'=>\$opt_dir, 'dodelete'=>\$opt_dodelete, 'dodbdelete'=>\$opt_dodbdelete, 'debug+'=>\$debug, 'help'=>\$opt_help, 'h'=>\$opt_help, 'v'=>\$opt_help) | |
| if ($opt_help) | |
| if (!($dbh=DBI->connect("dbi:mysql:database=$opt_database:host=$opt_dbhost","$opt_user","$opt_pass"))) | |
| if ($opt_dir eq"") | |
| foreach | $d (split(/,/, $opt_dir)) |
Variables | |
| my | $progname = "myth.find_orphans.pl" |
| my | $revision = "0.20" |
| use | DBI |
| my | $opt_host = hostname |
| my | $opt_dbhost = $opt_host |
| my | $opt_database = "mythconverg" |
| my | $opt_user = "mythtv" |
| my | $opt_pass = "mythtv" |
| my | $opt_ext = "{nuv,mpg,mpeg,avi}" |
| my | $opt_dir = "" |
| my | $opt_dodelete = 0 |
| my | $opt_dodbdelete = 0 |
| my | $debug = 0 |
| my | $opt_help = 0 |
| my | $valid_recordings = 0 |
| my | $missing_recordings = 0 |
| my | $errors = 0 |
| my | $unknown_files = 0 |
| my | $known_files = 0 |
| my | $unknown_size = 0 |
| my | $known_size = 0 |
| my | $unknown_thumbnail = 0 |
| my | $q = "SELECT title, subtitle, starttime, endtime, chanid, basename FROM recorded WHERE hostname=(?) ORDER BY starttime" |
| $sth = $dbh->prepare($q) | |
| $sth execute($opt_host)||die"Could not execute ($q) printf performing database | delete |
| $sth execute($opt_host)||die"Could not execute ($q) printf performing database | $sql |
| GetOptions | ( | ' | host = s'=, |
|
| \$ | opt_host, | |||
| ' | dbhost = s'=, |
|||
| \$ | opt_dbhost, | |||
| ' | database = s'=, |
|||
| \$ | opt_database, | |||
| ' | user = s'=, |
|||
| \$ | opt_user, | |||
| ' | pass = s'=, |
|||
| \$ | opt_pass, | |||
| ' | dir = s'=, |
|||
| \$ | opt_dir, | |||
| 'dodelete' | , | |||
| \$ | opt_dodelete, | |||
| 'dodbdelete' | , | |||
| \$ | opt_dodbdelete, | |||
| 'debug+' | , | |||
| \$ | debug, | |||
| 'help' | , | |||
| \$ | opt_help, | |||
| 'h' | , | |||
| \$ | opt_help, | |||
| 'v' | , | |||
| \$ | opt_help | |||
| ) |
| if | ( | $ | opt_help | ) |
Definition at line 65 of file myth.find_orphans.pl.
| if | ( | ! | $dbh=DBI->connect("dbi:mysql:database=$opt_database:host=$opt_dbhost","$opt_user","$opt_pass") | ) |
Definition at line 99 of file myth.find_orphans.pl.
| if | ( | $opt_dir eq"" | ) |
Definition at line 103 of file myth.find_orphans.pl.
| foreach $d | ( | split(/,/, $opt_dir) | ) |
Definition at line 115 of file myth.find_orphans.pl.
| my $progname = "myth.find_orphans.pl" |
| my $revision = "0.20" |
| use DBI |
Definition at line 31 of file myth.find_orphans.pl.
| my $opt_host = hostname |
| my $opt_dbhost = $opt_host |
| my $opt_database = "mythconverg" |
| my $opt_user = "mythtv" |
| my $opt_pass = "mythtv" |
| my $opt_ext = "{nuv,mpg,mpeg,avi}" |
Definition at line 44 of file myth.find_orphans.pl.
| my $opt_dir = "" |
Definition at line 45 of file myth.find_orphans.pl.
| my $opt_dodelete = 0 |
Definition at line 46 of file myth.find_orphans.pl.
| my $opt_dodbdelete = 0 |
Definition at line 47 of file myth.find_orphans.pl.
| my $debug = 0 |
Definition at line 48 of file myth.find_orphans.pl.
| my $opt_help = 0 |
Definition at line 49 of file myth.find_orphans.pl.
| my $valid_recordings = 0 |
Definition at line 90 of file myth.find_orphans.pl.
| my $missing_recordings = 0 |
Definition at line 91 of file myth.find_orphans.pl.
| my $errors = 0 |
Definition at line 92 of file myth.find_orphans.pl.
| my $unknown_files = 0 |
Definition at line 93 of file myth.find_orphans.pl.
| my $known_files = 0 |
Definition at line 94 of file myth.find_orphans.pl.
| my $unknown_size = 0 |
Definition at line 95 of file myth.find_orphans.pl.
| my $known_size = 0 |
Definition at line 96 of file myth.find_orphans.pl.
| my $unknown_thumbnail = 0 |
Definition at line 97 of file myth.find_orphans.pl.
| $sth = $dbh->prepare($q) |
Definition at line 127 of file myth.find_orphans.pl.
| $sth execute ($opt_host) || die "Could not execute ($q) printf performing database $sql |
1.5.5