Munin contributed plugins

#

# Munin plugin for MythTV

# This plugin can graph:- Encoder Status, Days Remaining in Schedule, Job schedule, Recording Schedule, Recorded Programes, Recorded hours

# Create a symbolic link to mythtv_status_{GraphType}

# Where {GraphType} can be encoder, epg, job,  schedule, recorded

# for example         mythtv_status_encoder

#

#  [mythtv_status*]

#  user=root

#  The http/xml status page must be enabled in the mythtv backend.

#

# $Log$

# Revision 0.1  2008/03/27  idobson

#

# Revision 0.2  2008/03/28  idobson

# Tidied up the code abit/removed dead functions

# Revision 0.7  2008/04/3  idobson

# Now using SQL to read the number of days in the EPG

# Changed recordings symlink to schedule, makes more sense

# Revision 0.8  2008/04/6  idobson

# Tidied up the SQL code abit, moved it into a function.

#

# Added a check that we got the XML data before trying to  parse it.

#

# Revision 1.0  2008/04/15  idobson

# added error handler to SQL sub. It just dies with an error text.

#

# Revision 1.1  2008/05/03  idobson

my $result="";

my $gata="";

my $VideoInput=1;

 chomp $GraphOption;

PrepSQLRead();

 if ($ARGV[0] and $ARGV[0] eq "autoconf" ) {

     print "yes\n";

     exit 0;

#Config Options

##Configuration for encoder, no config data needs to read from anywhere

     print "FreeEncoders.colour 00FF00\n";

     print "HungEncoders.colour 000000\n";

     print "HungEncoders.draw LINE1\n";

     print "HungEncoders.warning 0:0\n";

   }

     print "graph_title MythTV EPG days/Programs\n";

     print "graph_category tv\n";

     print "graph_vlabel Days\/Programs\n";

     @result=SQLQuery("SELECT DISTINCT `sourceid` FROM `cardinput`");

     $VideoInput = 1;

     foreach $gata (@result) {

   @result=SQLQuery("SELECT count(*) FROM `capturecard` ");

   my $FreeRecorders=$result[0];

   my $ActiveTuners=0;

                     FROM   inuseprograms, channel, videosource

                     WHERE  inuseprograms.recusage = 'recorder'

                     AND    inuseprograms.chanid   = channel.chanid

   }

   print "FreeEncoders.value $FreeRecorders\n";

   @result=SQLQuery("SELECT count(inuseprograms.recusage)

                     and (UNIX_TIMESTAMP( NOW( )) - UNIX_TIMESTAMP(inuseprograms.lastupdatetime)) / 60 > 20");

   print "HungEncoders.value $result[0]\n";

 }

   foreach $gata (@result) {

      print "EPGDays$VideoInput.value $gata\n";

      $VideoInput++;

#Get number of programs in EPG per video source

   $VideoInput = 1;

   @result=SQLQuery("SELECT COUNT(*) FROM `record`");

   print "RecordingSchedules.value $result[0]\n";

   my $Repeats=0;

   my $Recordings=0;

   my $Conflicts=0;

sub PrepSQLRead {

    my $hostname = `hostname`;

    chomp($hostname);

# Read the mysql.txt file in use by MythTV. Could be in a couple places, so try the usual suspects

    my $found = 0;

    my @mysql = ('/usr/local/share/mythtv/mysql.txt',

   my  ($QUERY) = @_;

   my @data;

   my $ref;

         or die "Couldn't connect to database: " . DBI->errstr;

   my $table_data = $dbh->prepare($QUERY) or die "Couldn't prepare statement: " . $dbh->errstr;

   $table_data->execute or die "Couldn't execute statement: " . $table_data->errstr;

     return @data;

   } else {

     return 0;

}

# Returns true if the show is scheduled to record