diff --git a/conf/control_panel.xml b/conf/control_panel.xml index 285686a99e..d64e7ba95f 100644 --- a/conf/control_panel.xml +++ b/conf/control_panel.xml @@ -13,7 +13,7 @@ - + @@ -81,7 +81,7 @@
- + @@ -91,7 +91,7 @@ - + diff --git a/sw/lib/perl/Paparazzi/AircraftsManager.pm b/sw/lib/perl/Paparazzi/AircraftsManager.pm index 1e95f8b299..fcb66f5b79 100644 --- a/sw/lib/perl/Paparazzi/AircraftsManager.pm +++ b/sw/lib/perl/Paparazzi/AircraftsManager.pm @@ -32,6 +32,9 @@ use Paparazzi::Aircraft; use Paparazzi::Flightplan; use Paparazzi::Airframe; +use LWP::Simple; + + sub populate { my ($self, $args) = @_; $self->SUPER::populate($args); @@ -97,7 +100,10 @@ sub on_config { my $fp_url = $fields->{flight_plan}; if (defined $fp_url) { -# print "in AircraftsManager : on_config creating new flight plan\n"; + # print "in AircraftsManager : on_config creating new flight plan\n"; + my $doc = LWP::Simple::get $fp_url; + print "##### $doc\n"; + my $fp = Paparazzi::Flightplan->new(-url => $fp_url); # use Data::Dumper; # print "##### waypoints\n".Dumper($fp->get('-waypoints'));