App-Textcast

 view release on metacpan or  search on metacpan

Todo.txt  view on Meta::CPAN

	time and time left

show terminal bottom if possible

pause/play/jump/back/forward

play within a window

index format
    image
    overlay
    speex/mp3
    interaction 
	choice

lib/App/Textcast.pm  view on Meta::CPAN

=head2 play_textcast( %named_arguments)

Loads, checks, and initiates the textcast replay. Displays information after the textcast replay.

  use App::Textcast 'play_textcast' ;
  
  play_textcast
	(
	TEXTCAST_DIRECTORY => $input_directory,
	OVERLAY_DIRECTORY => $overlay_directory,
	DISPLAY_STATUS => $display_status,
	START_PAUSED => $start_paused,
	) ; 

I<Arguments>

=over 2 

=item * TEXTCAST_DIRECTORY - String - directory containing the textcast

scripts/play_textcast  view on Meta::CPAN

delete @ENV{qw(IFS CDPATH ENV BASH_ENV)};   # Make %ENV safer
$ENV{PATH} = '/usr/bin/:/bin/' ;

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

use Getopt::Long ;
use App::Textcast 'play_textcast' ;

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

my ($overlay_directory, $display_status, $force_display_status, $start_paused) ;
unless
	(
	GetOptions
		(
		'h|help' => \&display_help,
		
		'o|overlay_directory=s' => \$overlay_directory,
		's|status' => \$display_status,
		'f|force_status' => \$force_display_status,
		'start_paused' => \$start_paused,
		)
	)
	{
	croak "Invalid command!\n" ;
	}

my $input_directory = shift @ARGV ;

scripts/play_textcast  view on Meta::CPAN

else
        {
        croak 'Error: Invalid path! Path can only contain alphanumerics and path separator.'
        }

$input_directory =~ s/\/$//sxm unless $input_directory eq q{/} ;

play_textcast
	(
	TEXTCAST_DIRECTORY => $input_directory,
	OVERLAY_DIRECTORY => $overlay_directory,
	DISPLAY_STATUS => $display_status,
	FORCE_DISPLAY_STATUS => $force_display_status,
	START_PAUSED => $start_paused,
	) ; 

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

sub display_help
{
my ($this_script) = ($PROGRAM_NAME =~m/(.*)/sxm ) ;