#!/usr/bin/env perl
use strict;
use warnings;
use App::Termcast;

=head1 NAME

termcast - broadcast your terminal sessions for remote viewing

=head1 SYNOPSIS

  termcast [options] [command]

=head1 DESCRIPTION

Runs C<command> (or a shell, if the command isn't given), while broadcasting it
to a termcast server. See L<App::Termcast> for options documentation.

=cut

my $tc = App::Termcast->new_with_options;
my @argv = @{ $tc->extra_argv };
push @argv, ($ENV{SHELL} || '/bin/sh') if !@argv;
App::Termcast->new_with_options->run(@argv);

=head1 AUTHOR

  Jesse Luehrs <doy at tozt dot net>

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2009-2010 by Jesse Luehrs.

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