view release on metacpan or  search on metacpan

bin/uav_config  view on Meta::CPAN

#!/usr/bin/perl
# Copyright (c) 2014  Timm Murray
# All rights reserved.
# 
# Redistribution and use in source and binary forms, with or without 
# modification, are permitted provided that the following conditions are met:
# 
#     * Redistributions of source code must retain the above copyright notice, 
#       this list of conditions and the following disclaimer.
#     * Redistributions in binary form must reproduce the above copyright 
#       notice, this list of conditions and the following disclaimer in the 
#       documentation and/or other materials provided with the distribution.
# 
# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" 
# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 
# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 
# ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE 
# LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR 
# CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF 
# SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS 
# INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN 
# CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) 
# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE 
# POSSIBILITY OF SUCH DAMAGE.
use v5.14;
use warnings;
use UAV::Pilot::ARDrone::Driver;
use Getopt::Long;

my $HOST  = '192.168.1.1';
my $PORT  = UAV::Pilot::ARDrone::Driver->ARDRONE_PORT_COMMAND;
my $KEY   = '';
my $VALUE = '';
GetOptions(
    'host=s'    => \$HOST,
    'port=i'    => \$PORT,
    'k|key=s'   => \$KEY,
    'v|value=s' => \$VALUE,
);
die "Need a --key option\n" unless $KEY;
die "Need a --value option\n" unless $VALUE;


my $true_key = 'ARDRONE_CONFIG_' . uc($KEY);

my $ardrone = UAV::Pilot::ARDrone::Driver->new({
    host => $HOST,
    ($PORT ? (port => $PORT) : ()),
});
die "Can't find config for '$KEY'\n"
    unless $ardrone->can( $true_key );

$ardrone->connect;
$ardrone->at_config(
    $ardrone->$true_key,
    $VALUE,
);


__END__


=head1 SYNOPSIS

    uav_config \
        --host 192.168.1.1 \
        --port 1234 \
        --key video_codec_fps \
        --value 30

=head1 DESCRIPTION

Set a config key on the UAV.  A list of keys can be found in the section "Constants" -> 
"Configuration" in the docs for C<UAV::Pilot::ARDrone::Driver>.  To set a C<--key> option, 
take off the C<ARDRONE_CONFIG_> at the start of the config key name.  For instance, to 
set C<ARDRONE_CONFIG_VIDEO_CODEC_FPS>, you would instead set C<video_codec_fps> (lowercase 
is OK).

=cut