#!/usr/bin/env perl

use strict;

use Argos::Map;
use Vulcan::OptConf;
use Vulcan::Sudo;

Vulcan::Sudo->sudo();

$| ++;

$Vulcan::OptConf::ARGC = 1;
$Vulcan::OptConf::THIS = 'argos';

my %o = Vulcan::OptConf->load()->get( qw( check ) )->dump();

=head1 SYNOPSIS

Launch argos map.

$0 name [--test]

=cut
$o{conf} = delete $o{map};
my $argos = Argos::Map->new( %o, name => shift );

$argos->run() unless $o{check}; 
exit 0;
