Tvheadend

#!/usr/bin/perl

# Make some edits so multiple copies may run concurrent

#---------------------------------------------------------------------------------

# USE 'S section

#---------------------------------------------------------------------------------

use FileHandle;

use IPC::Open2;

use Socket;

use POSIX;

use Time::Local;

use Getopt::Long;

local ( $starttime,$stoptime,$elapsetime );

my ($t_sec,$t_min,$t_hour,$t_day,$t_mon,$t_year,$t_wday,$t_yday,$t_isdst);

# parse the connamd line options

@optl = ( "f=s","bg" );

die "Usage $0 -f <filename>\n" unless GetOptions @optl;

select(STDOUT); $|=1;

# Initialize some default variables

$prc_config{LOGNAME} = "mk_mkv_tv";

$prc_config{LOGINT} = "1d";

$prc_config{LOGDIR} = "/var/log";

$prc_config{BINDIR} = "/usr/local/bin";

$prc_config{DEBUGDIR} = "/var/log";

$prc_config{ROLLBACK} = 360;

$prc_config{PROCNAME} = 'comskip';

$prc_config{PROCINT} ="5m";

$prc_config{LOGSIZE} = 50000 ;

$prc_config{DEBUGSIZE} = 50000 ;

$prc_config{BLOCKTIME} = 5 ;

$prc_config{PROCESSNAME} = 'mk_mkv_tv' ;

$PRC_BASE = $prc_config{LOGNAME};

$PRC_LOGA = $PRC_BASE . ".log";

$PRC_DBG = $PRC_BASE . ".dbg";

$prc_active_log = $PRC_LOGA;

$prc_debug_file = $PRC_DBG;

$prc_block_time = $prc_config{BLOCKTIME};

# die "Process is already running or aborted abnormally remove $prc_config{LOGDIR}/$0.pid"  if ( -e "$prc_config{LOGDIR}/$0.pid" );

# Calculate the number of seconds to wait based on the LOGINT setting.

( $intnum, $inttype ) = ( $prc_config{LOGINT} =~ /(\d+)(\w)/i );

$intsize = 1 if ( uc($inttype) eq 'S' );

$intsize = 60 if ( uc($inttype) eq 'M' );

$intsize = 3600 if ( uc($inttype) eq 'H' );

$intsize = 86400 if ( uc($inttype) eq 'D' );

$intsize = ( 86400 * 7 ) if ( uc($inttype) eq 'W' );

# Calculate the number of seconds to wait based on the PROCINT setting.

if ( $opt_bg )

{

        # Fix up the IO for a background job

        chdir("/tmp");

        $ctermid = POSIX::ctermid();

        open( TTY, $ctermid );

        $cpgid = POSIX::tcgetpgrp(TTY);

        close TTY;

        $orig_pid = fork;

        exit if ( $orig_pid );

        print "$0 started with process ID $$ detaching from foreground\n";

        close STDIN;

        close STDOUT;

        close STDERR;

        $debug0 = 0;    # Inside functions debugging read_config_file

        $debug1 = 0;    # Main program debugging

        $debug2 = 0;    # Inside functions debugging

        $debug3 = 0;    # Inside decode_nd function debugging for parsing

        $debug4 = 0;    # Inside chat extended logging

        $debug5 = 0;    # sql send/expect to debug file

        $debug6 = 0;    # chat send/expect to debug file

        $my_pgid = POSIX::setsid();

        open( STDOUT ,">>$prc_config{LOGDIR}/$0.log");

        open( STDERR ,">>$prc_config{LOGDIR}/$0.err");

        $ctermid = POSIX::ctermid();

        open( TTY, $ctermid );

        $cpgid = POSIX::tcgetpgrp(TTY);

        close TTY;

        # print "The controlling terminal is $ctermid with pgid of $cpgid and setsid returned $my_pgid and I am $$ \n";

        # Note that this is VERY important. It provides a way to be SURE that the processes we start are ours later on.

        # each process that is started from within this process will now have a process group ID of our PID.

        # When we check for a process we can check that the PID lives ( with kill 0 ) and that it is our pid and not a transient

        # ( with getpgrp(somepid) ) should come back with our PID if we started it or one of its parents.

} else

{

print "$0:$$:$prc_config{PROCNAME} \n";

print "$0:$$:Logging to $prc_active_log with $prc_config{LOGINT} archive interval\n";

}

MAIN: {

# Main is in a block though it does not loop it easily could.

# Get and format the time

$starttime = time;

$epochtime = $starttime;

($t_sec,$t_min,$t_hour,$t_day,$t_mon,$t_year,$t_wday,$t_yday,$t_isdst) = localtime($starttime);

$newtime = $starttime - ( $t_isdst * 3600 );

($t_sec,$t_min,$t_hour,$t_day,$t_mon,$t_year,$t_wday,$t_yday,$t_isdst) = localtime($newtime);

$t_mon++;

$t_sec = '0' . $t_sec if ( length($t_sec) == 1 );

$t_min = '0' . $t_min if ( length($t_min) == 1 );

$t_hour = '0' . $t_hour if ( length($t_hour) == 1 );

$t_day = '0' . $t_day if ( length($t_day) == 1 );

$t_mon = '0' . $t_mon if ( length($t_mon) == 1 );

$t_year = 1900 + $t_year;

$start_dt_stamp = "_" . $t_mon . $t_day . $t_year . "_" . $t_hour . $t_min . $t_sec;

$rolltime = $epochtime + ( $intnum * $intsize );

# Create a "pid" file containing our process ID so we may be stopped easily

# open (FHLOG,">$prc_config{LOGDIR}/$0.pid");autoflush FHLOG 1;

# print {FHLOG} "$0:$$\n";

# close FHLOG;

# Open the Logfile , Debug File and a Raw file

open (FHLOG,">>$prc_config{LOGDIR}/$prc_active_log");autoflush FHLOG 1;

if ( $opt_raw ) { open (FHRAW,">>$prc_config{LOGDIR}/$prc_active_log.raw");autoflush FHRAW 1;}

open (FHDBG,">>$prc_config{DEBUGDIR}/$prc_debug_file");autoflush FHDBG 1;

print {FHDBG} "$0:$$:$t_year\/$t_mon\/$t_day $t_hour:$t_min:$t_sec\n";

print {FHDBG} "$0:$$:Set to roll logs at localtime($rolltime)\n ";

$mfile = $opt_f;

$mediadst = `dirname $mfile`;

$mediatitle = $mfile;

$mediatitle =~ s/\.mkv|\.ts/\.mkv/;

$retuse = `fuser "$mfile"`;

if ( $retuse == '' )

	{

	  print "$mfile not in use .. start encode to $mediatitle\n";

	# Since comskip only appears to like MPEG this will probably never happen - no mkv to start allways MPEG_TS

	if ( $mfile =~ /\.mkv/ ) # change to Switch to decide if blueray or dvd source

	{ 

	$enc_opts = '-map 0 -map -0:a:1 -c:v libx264 -s:v:0 640x480 -c:a:0 libfdk_aac -flags +qscale -global_quality 3 -afterburner 1 -ac:0 2 -c:s copy -crf 24';

	$hbret = `/usr/bin/ffmpeg -i "${mfile}" -preset veryslow ${enc_opts} "${mediatitle}"`;

	}  

        if ( $mfile =~ /\.ts/ ) # change to Switch to decide if mpeg transport raw ts source

        {

	$retcom = `$prc_config{BINDIR}/comskip --ini $prc_config{BINDIR}/comskip_ota.ini "${mfile}" $mediadst > /var/log/comskip.$$.log`;

	$medialog = ${mfile};

	$medialog =~ s/\.ts/\.log/;

	$retcom = `rm "${medialog}"`; # Annoying comskip litter

	$retcom = `mv /var/log/comskip.$$.log /var/log/comskip.log`; # Annoying comskip litter

	$medialog =~ s/\.log/\.edl/;

#        $enc_opts = '-map 0 -map -0:a:1 -c:v libx264 -s:v:0 640x480 -c:a:0 libfdk_aac -flags +qscale -global_quality 3 -afterburner 1 -ac:0 2 -c:s copy -crf 24';

#        $hbret = `/usr/bin/ffmpeg -i "${mfile}" -preset veryslow ${enc_opts} "${mediatitle}"`;

	$enc_opts = 'bframes=8:b-adapt=2:direct=auto:me=umh:merange=24:partitions=all:rc-lookahead=60:ref=16:subme=10:trellis=2:psy-rd=1.0,0.2';

	$hbret = `/usr/bin/HandBrakeCLI -i ${mfile} -I -v -e x264 -q 24 -w 640 --loose-anamorphic -a 1 -E faac -B 128 -f mkv -N eng -s 1,2 -m -x ${enc_opts} -o "${mediatitle}"`; 

	print FHLOG "$0:$$:encode run :\n$hbret\n ";

	$orig_dur = `/usr/bin/ffmpeg -i "${mfile}" 2>&1 | awk '/Duration:/ { print $2 }'`;

	$new_dur = `/usr/bin/ffmpeg -i "${mediatitle}"  2>&1 | awk '/Duration:/ { print $2 }'`;

	$orig_dur =~ s/(\d+:\d+):\d+?\..*/\1/;

	$new_dur =~ s/(\d+:\d+):\d+?\..*/\1/;

	# Delete large TS when testing complete

	# Use ffmpeg to get HH:MM and make sure we have the full recording

	$hbret = `rm ${mfile}`  if ( $orig_dur eq $new_dur );

	$htsid = `grep -l ${mfile} /root/.hts/tvheadend/dvr/log/*`;

	$htsret = `htspdel --id $htsid`;

	#$mnret = `mencoder "${mediatitle}" -o "${mediatitle}".mp4 -edl $medialog -ovc copy -oac copy -slang eng`;

        }

} else

{

	 print "$mfile in use .. skip encode to $mediatitle\n $retuse\n\n";

	 sleep 60;

	 goto MAIN;

};

} # MAIN

exit 0;

--cut NOTES for later

# Note: --start-at duration:150 --stop-at duration:300 or --start-at frame:2000 --stop-at frame:5000

Mencoder will process -edl list from comskip