mythbackup.sh (I don't use this one)
#Dumps the mythconverg database - daily backup
#Keeps the last 7 days
#!/bin/sh
LOG="/var/log/archmyth.log"
DAY=`/bin/date +%u`
DUMPFILE="~/.mythtv/mythbackup/mythdb_$DAY.sql"
DATE=`date`
echo "$DATE : Backuping up myth database to $DUMPFILE" >> $LOG
/usr/bin/mysqldump -u mythtv -pmythtv mythconverg -c > $DUMPFILE
DATE=`date`
echo "$DATE : Backup completed." >> $LOG
exit 0
mythidle.pl - courtesy of
Arkay @ pcmediacenter.com.au
(be careful if cutting and pasting this, due to narrow width of the printout, some lines may have carried over to a new line, when they should not have)
Pre-shutdown-check command: /home/david/scripts/mythidle.pl
#!/usr/bin/perl -w
###############################################################################################################################
## Name: mythidle.pl
##
## Purpose: Checks to determine if the mythbackend server is idle and ready for shutdown.
##
## (C)opyright 2008 Arksoft.
##
## Author: Arkay
##
## Ver 1.0: 14-07-2008. Initial version.
##
###############################################################################################################################
# Require and Use Clauses.
###############################################################################################################################
use strict; #Keeps code neat.
use Getopt::Std; #Getopt module for option preprocessing.
use vars qw/ $opt_d $opt_h /; #Option Processing vars.
use POSIX qw(strftime); #Time routine we need.
###############################################################################################################################
# Prototype definitions
###############################################################################################################################
sub logmsg(@); #Message logger so we can track what's been going on.
sub process_opts(); #Option processing.. Nothing exiting for this script.
sub do_command($); #Execute a shell command for lazy perl programmers :)
sub check_hosts(); #Are any server dependant hosts currently up?
sub check_procs(); #Check if the server is running anything that should keep us awake.
sub check_myth(); #Check if mythbackend is busy doing anything.
###############################################################################################################################
# Constant Definitions.
###############################################################################################################################
my ($TRUE) = 1;
my ($FALSE) = 0;
###############################################################################################################################
# Global vars, paths, commands to call.
###############################################################################################################################
my ($LOG) = "/var/log/archmyth.log"; #Log location.
my ($LOGSIZE) = 1024; #Maximum log size in kbytes, self pruning.
my ($DEBUG) = $FALSE; #Debugging default is off.
my ($BASENAME) = $0; #How was the program called?
my ($MYTHSTATUS)="/usr/bin/mythshutdown --status;echo \$\?"; #Command to query myth status
my ($PING)="/bin/ping"; #Where is ping
###############################################################################################################################
# These are the only 2 lines in this file that should be edited.
# The first (@procs) is a list of processes that when running should keep the server awake.
# The second (@HOSTS) lists hosts that, if active, prevents the server from sleeping.
# To acertain the name of a process to see if it still running use ps -ef | grep -i
# The names of the hosts listed below need to exist in your /etc/hosts file. You can check
# that they are up with ping
# Both lines consist of a comma separate list of quoted strings. i.e.
#my (@PROCS)=("dpexpress","ktorrent","shepherd","altbinz"); #Stay awake if active.
#my (@HOSTS)=("debs","htpc-lounge","quadarch"); #stay awake if any of these are up
###############################################################################################################################
my (@PROCS)=("shepherd","xbmc","chromium","vlc","smplayer","HandBrakeCLI"); #stay awake?
my (@HOSTS)=("myth-frontend"); #stay awake if any of these are up
###############################################################################################################################
# The Mainline.
###############################################################################################################################
MAIN:
{
my ($blocked)=$FALSE;
process_opts();
logmsg "$BASENAME started : PID($$)";
SWITCH: #blocked
{
if (check_hosts() != $FALSE) #Check it any client hosts are up
{
$blocked=$TRUE;
last;
}
if (check_procs() != $FALSE) #Check if any processes are blocking shutdown
{
$blocked=$TRUE;
last;
}
if (check_myth() != $FALSE) #Check if myth is busy
{
$blocked=$TRUE;
last;
}
$blocked=$FALSE;
}
if ($blocked == $TRUE)
{
logmsg "Mythbackend is not idle - blocking Shutdown.";
}
else
{
logmsg "Mythbackend is currently idle - Allowing Shutdown.";
}
logmsg "$BASENAME Completed."; logmsg " ";
exit($blocked);
}
###############################################################################################################################
# check_procs()
# Check if processes are running that should stop shutdown from occuring.
###############################################################################################################################
sub check_procs()
{
my (@output);
my ($proc);
my ($command);
my ($count)=0;
my ($running)=$FALSE;
logmsg "PROC - Checking active processes that block shutdown.";
foreach $proc (@PROCS)
{
$command="ps -ef | grep $proc | grep -v grep |wc -l";
@output=do_command($command);
if (@output)
{
$count=$output[0];
chomp ($count);
}
if ($count > 0)
{
logmsg "PROC - Found active process : $proc ($count running).";
$running=$TRUE;
}
}
logmsg "PROC - No blocking processes currently running." if ($running) == $FALSE;
return($running);
}
###############################################################################################################################
# check_myth()
# Check if we have active samba connections.
###############################################################################################################################
sub check_myth()
{
my (@output);
my ($status)=69;
my ($text)="Unknown";
logmsg "MYTH - Checking mythbackend status.";
@output=do_command($MYTHSTATUS);
if (@output)
{
$status=$output[0]; chomp($status);
$text="Idle." if ($status) == 0;
$text="Transcoding." if ($status) == 1;
$text="Flagging Commercials." if ($status) == 2;
$text="Grabbing EPG Data." if ($status) == 4;
$text="Recording." if ($status) == 8;
$text="Locked." if ($status) == 16;
$text="Jobs running/pending." if ($status) == 32;
$text="In a daily wakeup/shutdown period." if ($status) == 64;
$text="Less than 15 minutes to next wakeup period." if ($status) == 128;
$text="Setup is running." if ($status) == 255;
logmsg "MYTH - Mythbackend status ($status) : $text";
}
else
{
logmsg "MYTH - Failed to get mythbackend status.";
}
return($status);
}
###############################################################################################################################
# check_hosts()
# Checkif we have active samba connections.
###############################################################################################################################
sub check_hosts()
{
my ($line);
my ($host);
my (@output,@ping);
my ($up)=$FALSE;
my ($command);
logmsg "HOSTS - Checking for active client hosts.";
foreach $host (@HOSTS)
{
$command="$PING -c2 $host | grep received | awk '{print \$4}'";
@output=do_command($command);
if ($output[0] != 0)
{
logmsg "HOSTS - Client host \"$host\" is still up.";
$up=$TRUE;
last;
}
else
{
logmsg "HOSTS - Client host \"$host\" is currently down.";
}
}
logmsg "HOSTS - No active client hosts found." if ($up == $FALSE);
return($up);
}
###############################################################################################################################
# logmsg
# Little routine to write to the log file.
# Rotates around $LOGSIZE bytes.
###############################################################################################################################
sub logmsg(@)
{
my ($string)=@_;
my $time=scalar localtime;
my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks);
my (@lines,$line);
($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks)=stat("$LOG");
if (defined($size))
{
$size=$size/1024; #size in kbyte
if ($size >= $LOGSIZE)
{
unlink ("$LOG.old") if (-e("$LOG.old"));
rename ($LOG,"$LOG.old");
}
}
print "$time : $string\n" if ($DEBUG==$TRUE);
if (open (LOG,">>$LOG"))
{
if ($string =~ /\n/)
{
@lines=split(/\n/,$string);
foreach $line (@lines)
{
print LOG "$time : $line\n";
}
}
else
{
print LOG "$time : $string\n";
}
close (LOG);
}
else
{
print "Unable to open LOG $LOG : $!";
}
}
###############################################################################################################################
# process_opts()
# Set Global option flags dependant on command line input.
###############################################################################################################################
sub process_opts()
{
getopts('dh');
$DEBUG=$TRUE if ($opt_d);
exit(usage(1)) if ($opt_h);
}
###############################################################################################################################
# usage()
# Output Relevant Usage strings if incorrect opts are given.
###############################################################################################################################
sub usage()
{
my($ucode)=@_;
if ($ucode == 1)
{
print "Usage: $BASENAME [-dh]\n";
return(0);
}
}
###############################################################################################################################
# sub do_command($)
# use system call to execute command. Returns output of command in array.
###############################################################################################################################
sub do_command($)
{
my ($command)=@_;
my (@output);
my ($exit_value)=0;
logmsg "Executing $command" if ($DEBUG == $TRUE);
@output=`$command`;
$exit_value = $? >> 8;
if ($exit_value != 0)
{
logmsg "Error executing $command : $!";
}
return(@output);
}
setwakeup.sh
sudo sh -c "/home/david/scripts/setwakeup.sh $time"
#!/bin/sh
#$1 is the first argument to the script. It is the time in seconds since 1970
#this is defined in mythtv-setup with the time_t argument
LOG="/var/log/archmyth.log"
#Set the wakeup timers.
echo 0 > /sys/class/rtc/rtc0/wakealarm #this clears your alarm.
echo $1 > /sys/class/rtc/rtc0/wakealarm #this writes the alarm.
date=`date "+%a %b %e %H:%M:%S %Y"`
schedutc=`date -u -d @$1 +%F" "%T`
sched=`date -d @$1 +%F" "%T`
echo "$date : Next scheduled recording : $sched ($schedutc UTC)" >>$LOG
#cat /proc/driver/rtc | head -4 >>$LOG
shutdown.sh
sudo sh -c "/home/david/scripts/shutdown.sh"
#!/bin/sh
LOG="/var/log/archmyth.log"
date=`date "+%a %b %e %H:%M:%S %Y"`
echo "$date : System Shutting down." >>$LOG
/sbin/shutdown -h now
