42 lines
1 KiB
Perl
42 lines
1 KiB
Perl
|
#! /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";
|