#!/bin/sh
while [ 0==0 ] ; do

    x=`pidof mythcommflag` ;
    if [ $? == 0 ]; then
        renice 19 $x;
    fi
    sleep 1
done

[startup] {/home/mythtv/mythrenice.sh}

#!/usr/bin/perl -w 
#
# FUNCTIONAL AREA OR ABSTRACT:
#   update disks, sych/backup disks
#   Form: /Volumes/volname1/dira  to /Volumes/volname2/dira
# THIS SOFTWARE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
# PURPOSE.

$dbglev = 1; # global debug level, select the debug level of info, more at higher levels
# global debuglevel -- level of info to log, 0=none, 1=some, 2=more, 3=most 

# !++___________________________  Function lines _______________________________*/
#
sub dbg # - debug print
{
#               /*INPUT PARAMETERS:
my($plev ) = $_[0]; # print level, rest is printed if dbglev>=plev
#               FUNCTIONAL DESCRIPTION:
#   prints the rest of @_, if dbglev>=plev, dbg(2," call x",$x);
#   gets printed if global dbglev is 2 or more.
# !--*/
if($plev <= $dbglev) {
    #shift @_;
    print  @_;
}
} #/*eofunc***************/

# MAIN
# SETUP PARAMETERS >>>>
my($BACKUPDEVICE) = "/dev/hda3" ; # device for backup
#               destinatin      =>  source/
# sources pairing list, the 2nd parm, all MUST have ending '/'
my( %src ) = (
                "/om/backup" => "/myth/backup/",
                "/om/files" => "/myth/files/",
                "/om/music" => "/myth/music/",
                "/om/gallery" => "/myth/gallery/",
                "/om/games" => "/myth/games/",
                "/om/ipodfeed" => "/myth/ipodfeed/",
                "/om/video" => "/myth/video/"
             ); # sources, the 2nd parm, all MUST have ending '/'

# Declare,
use strict;  use English;

my($basecmd) = "/usr/bin/rsync "; # base command
# --exclude-from=/Library/Scripts/rsyncdailylocalexcludes
my($options) = "  --one-file-system --archive --delete --update ";
             
my( $src, $dest, $err);

# Lets display some info for logs etc
print "\n\n***********\n";
print "rsyncmyth run at: ". localtime() . "\n";
print "Parameters for this run: \n";
while( ($dest, $src) = each(%src) ) {
    print " sync $src  to  $dest \n";
}
print "Options are: $options \n\n";

# setup for backup
( ($err= system("mount $BACKUPDEVICE /om") ) == 0) or print "Got an error: $err , on mounting $BACKUPDEVICE \n";

# Loop thru and sync

while( ($dest, $src) = each(%src) ) {
    dbg(3, " src= $src; dest= $dest \n");
    my($cmd) = $basecmd . $options . $src . " " . $dest ;
    dbg(3, "Command would be: $cmd \n");
   
    if( $src =~ /SysB/ ) { exit; } # lets not if its the B sys
    stat($dest); # let us not create new dirs
    if( -d _ and -e _ and -r _ and -w _ and -B _ ) { # maybe ok
        # now execute
        print "The command is: $cmd\n";
        ( ($err= system($cmd) ) == 0) or print "Got an error: $err , on the rsync command!\n";
    } else {
        print "The destination $dest did not qualify, aborted sync \n";
    }
   
}
( ($err= system("umount /om") ) == 0) or print "Got an error: $err , on Umounting $BACKUPDEVICE \n";

exit;

hcpc/resolv.conf:nameserver 172.22.22.1
network/interfaces:     address 172.22.22.7
network/interfaces:     network 172.22.22.0
network/interfaces:     broadcast 172.22.22.255
network/interfaces:     gateway 172.22.22.1
webmin/miniserv.conf:allow=127.0.0.1 172.22.22.0