Myplayer-rar.pl

From MythTV

The correct title of this article is mplayer-rar.pl. It appears incorrectly here due to technical restrictions.

This is a little script I made so I can watch rar'd files without having to extract them myself.

You will need to change your Video Preferences in MythTV and add the file extention unrar. The command to execute should be the full path including a %s.
eg: /usr/bin/myplayer-rar.pl

Keywords (for search feature): unrar winrar rar rared rar'd watch play automatically mplayer

#!/usr/bin/perl -w
#
# Automatic unrar + mplayer play for use with mythtv
#
# bradleyf - 20070315
#
# ToDo:
#
# . Check to make sure we're only passed one variable
# . When executing unrar e function, should check return code

# Declarations

my $rard;               # Variable to hold the (full?) path to rar file
my $unrard;             # Variable to hold the full path to unrar file
my $archive;            # Variable to hold the name of the media stored in $rard
my $temp;               # Variable hold path to temp folder
my $unrar_path;         # Location of unrar binary - tested with 2.6 Beta (i think)
my $unrar_cmd;          # Complete command to be executed for the unrar system call
my $mplayer_path;       # Path to mplayer
my $mplayer_args;       # Arguments to proceed mplayer system call
my $mplayer_cmd;        # Complete command to be execute for the myplaer system call
my $rm_path;            # Path to 'rm' - used to delete watched media
my $rm_cmd;             # Complete command to be execute for the rm $temp . $archive cmd

# Configs

$temp = '/tmp/';                                # INCLUDE head and tail /
$unrar_path = '/usr/bin/unrar';                 # Path to Unrar
$mplayer_path = '/usr/bin/mplayer';             # Path to mplayer
$mplayer_args = '-fs -zoom - quiet -vo vx';     # mplayer arguments
$rm_path = '/bin/rm';

# main sub

# Create logfile
create_logfile();

# mplayer passes file as a argument
# we tell mplayer to only pass this one.
$rard = $ARGV[0];

# Find out the actual filename and remove trailing \n
$archive = `$unrar_path lb $rard`;
chomp($archive);

#DEBUG
print "archive: " . $archive . "\n";

# Build unrar complete command for system call
$unrar_cmd = $unrar_path . " e " . $rard . " " . $temp;

#DEBUG
print "unrar_cmd: " . $unrar_cmd . "\n";

# Use system to unrar to temp dir
system($unrar_cmd);

# Once unrar'd build command to execute mplayer via system
$mplayer_cmd = $mplayer_path . " " . $mplayer_args . " " . $temp . $archive;

#DEBUG
print "mplayer_cmd: " . $mplayer_cmd . "\n";

# Watch it !
system($mplayer_cmd);

# Delete it !
$rm_cmd = $rm_path . " -f " . $temp . $archive;

#DEBUG
print "rm_cmd: " . $rm_cmd;
system($rm_cmd);











#******************************************************************************
#
# Function      : create_logfile
# 
# Description   : Redirect STDOUT & STDERR to named logfile
# 
# Params        : none
# 
# Returns       : none
# 
#******************************************************************************
sub create_logfile
{
    my (
        $logfile,   # final logfile name
        $filename,  # filename sans extension
        $filext,    # filename extension
        $filedir    # dir for logfile
        );
          
    # Create filename
    $logfile = "/tmp/mplayer-rar.log";
                                             
    # Redirect STDOUT & STDERR to named logfile
    open( STDOUT, ">$logfile") or 
                        die "\nUnable to open logfile $logfile: $!\n";
    open( STDERR, ">>&STDOUT");
                               
    # Set autoflush on
    select (STDERR); $| = 1;
    select (STDOUT); $| = 1;
}