Transfer and Delete THD

**jkozee** · 09-20-2011, 12:44 AM

Here's a new version that was tested on THD - THD transfers running 11.0k. It has also been reported to run on S2 units running 9.3.2b.

Attacment removed due to possible memory leak.

Update (Fixed program attached):
I did confirm memory leak in the original S3 release (and I assume the orginal S2 release also) which were written in C. I decided not to fix those releases and to just rewrite the program completely in TCL. This should allow those who wish to extend functionality (like addidng support for different platforms/OS) to do so without having to have a cross compiler setup.

Here are the details:

New Version 1.6

Code:

################################################################################
# xfer_delete - Copyright (C) 2013 jkozee                                      #
# This program is distributed WITHOUT ANY WARRANTY; without even the implied   #
# warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.             #
#                                                                              #
# TERMS OF USE: personal (noncommercial) fair-use backup & restore             #
# This software may not be used for copyright infringment or any illegal       #
# purpose, bundled with any product, sold, distributed or redistributed        #
# under any circumstances on any media without express written consent.        #
################################################################################
# History: 1.6 20130228 Fixed missing strim proc and notes.                    #
# History: 1.5 20120729 Added daemonize code unless loging to the screen.      #
# History: 1.4 20110927 Initial port to tcl only.  Tested on THD 11.0k only    #
#                                                                              #
# Purpose: This program watches for shows that are being transferred from the  #
#          running unit and marks them as deleted if the transfer completes.   #
#          If the transfer is started from a paused point the show will not be #
#          not be deleted unless the -f was invoked.  In the event that        #
#          multiple transfers are started, only the last one started will      #
#          determine if the show is deleted.                                   #
#                                                                              #
# Usage: xfer_delete.tcl [-flags]                                              #
#         -l       Log to /var/log/AutoSP.log                                  #
#         -s       Log to the Screen                                           #
#         -v       Inlcude verbose log information                             #
#         -vv      Include very verbose log information                        #
#         -f  Force the deletion of shows when started from paused point       #
#                                                                              #
#        touch /tmp/xfer_delete.stop to stop the program                       #
#                                                                              #
# Notes: Should be started early in the boot process, but after tivoapp,  to   #
#        catch shows that resume on a reboot, for example add the following    #
#        to /etc/rc.d/StageF_ApplicationLaunch/rc.Sequence_250.CustomHacks.sh  #
#        if [ -f /hack/bin/xfer_delete.tcl ]                                   #
#          then                                                                #
#            /hack/bin/xfer_delete.tcl -l                                      #
#        fi                                                                    #
################################################################################