Add perl launcher script and new Readme

This commit is contained in:
mdiluzio 2015-01-10 16:56:27 +00:00
parent 1e38a5f107
commit 06057e6e52
3 changed files with 143 additions and 10 deletions

View file

@ -0,0 +1,6 @@
# ====================== ttrts =======================
# Project name
project( ttrts-perl-launch )
# Add bash completion to install
install( PROGRAMS ttrts.pl DESTINATION bin RENAME ttrts )

42
source/launcher/ttrts.pl Executable file
View file

@ -0,0 +1,42 @@
#! /usr/bin/perl
# Main ttrts launcher script
use strict;
use warnings;
use 5.0;
use Getopt::Long qw(GetOptions);
sub print_usage
{
print "Unknown option: @_\n" if ( @_ );
print "Usage: ttrts [--server] [--client] [--host=HOSTNAME] [--map=MAPFILE]\n";
exit;
}
our $VERBOSE = $ENV{"VERBOSE"};
our $server;
our $client;
our $host;
our $map;
print_usage() if ( @ARGV < 1 or
!GetOptions(
'client' => \$client,
'server' => \$server,
'host=s' => \$host,
'map=s' => \$map,
) );
print "Cannot run as both client and server\n" and exit if $client and $server;
print "Client requires hostname\n" and exit if $client and not $host;
print "Server requires mapfile\n" and exit if $server and not $map;
print "Running locally requires mapfile\n" and exit if not $server and not $client and not $map;
# Run client, server or local
system("ttrts-client $host") if $client and $host;
system("ttrts-server $map") if $server and $map;
system("ttrts-local $map") if not $server and not $client and $map;
print "Success!\n";