#!/usr/bin/perl

# Script:
# Launch Roku Remote Control Script Live Mode in an RXVT Terminal Window.pl
#
#
# by Apollia of Astroblahhh.Com - http://astroblahhh.com/
#
# Released March 15, 2014.
#
#
# This script expects roku-remote-v4.sh to be in the same directory as this script.
#
#
# Also, it probably won't work right unless you have the RXVT terminal software in
# your Linux.  RXVT is included with many Puppy Linuxes by default.
#
# Definitely works in Lucid Puppy Linux 5.2.8.


################
#
#   Script's Path
#
#
use Cwd 'abs_path';
use File::Basename qw( dirname fileparse );

$this_script_path=abs_path($0);
$this_script_parentdirs=dirname( $this_script_path );

chdir $this_script_parentdirs;

#
#   End of Script's Path section
#
#
################


################
#
#  Here, we open an RXVT window in which to run to the Roku remote control Bash script.

$command_line="rxvt -rv +sb -sl 999 -title \"Roku Remote v4.0\" -e sh roku-remote-v4.sh live";

exec($command_line);
	

# Don't try running "sh roku-remote-v4.sh live" on a line by itself.
#
# For some reason, that makes my Roku go crazy, as if a lot of commands
# (not sure what) are continually being sent to it.


#
#
#	End of script
#
#########################