#!/usr/bin/perl

use strict;
use IO::File;
use Term::TtyRec::Player;
use Getopt::Std;

getopts('nphs:', \my %opt);

die <<'USAGE' if $opt{h};
Usage: pttyplay [OPTION] [FILE]
  -s SPEED Set speeed to SPEED [1.0]
  -n       No wait mode.
  -p       Peek another person's ttyrecord.
USAGE
;
# ';

my %attr;
$attr{speed}  = $opt{s}		if defined $opt{s};
$attr{nowait} = 1		if defined $opt{n};

my $input = IO::File->new(shift || '-') or die $!;
my $player = Term::TtyRec::Player->new($input, \%attr);

my $method = $opt{p} ? 'peek' : 'play';
$player->$method();

__END__

=head1 NAME

pttyplay - ttyplay in Perl

=head1 SYNOPSIS

  pttyplay [OPTION] [FILE]
    -s SPEED Set speed to SPEED [1.0]
    -n       No wait mode
    -p       Peek another person's ttyrecord

=head1 DESCRIPTION

pttyplay is ttyplay implemented in Perl. See L<Term::TtyRec> for
details.

=head1 AUTHOR

Tatsuhiko Miyagawa <miyagawa@bulknews.net>

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=head1 SEE ALSO

L<Term::TtyRec::Player>, http://namazu.org/~satoru/ttyrec/

=cut