Mirrors_Framework/paparazzi
1
0
Fork 0
mirror of https://github.com/paparazzi/paparazzi.git synced 2026-06-01 04:46:51 +08:00
Code Issues Actions 30 Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
Antoine Drouin
2005-08-21 00:07:43 +00:00
parent 7a47883ddc
commit f57938f767
2 changed files with 3 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files
sw/lib/perl/Paparazzi/AircraftsManager.pm
-4
View File
@@ -32,7 +32,6 @@ use Paparazzi::Aircraft;
use Paparazzi::Flightplan; use Paparazzi::Flightplan;
use Paparazzi::Airframe; use Paparazzi::Airframe;
use LWP::Simple;
sub populate { sub populate {
@@ -101,9 +100,6 @@ sub on_config {
my $fp_url = $fields->{flight_plan}; my $fp_url = $fields->{flight_plan};
if (defined $fp_url) { 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); my $fp = Paparazzi::Flightplan->new(-url => $fp_url);
# use Data::Dumper; # use Data::Dumper;
# print "##### waypoints\n".Dumper($fp->get('-waypoints')); # print "##### waypoints\n".Dumper($fp->get('-waypoints'));
sw/lib/perl/Paparazzi/Flightplan.pm
+3 -7
View File
@@ -27,6 +27,7 @@ use Subject;
@ISA = ("Subject"); @ISA = ("Subject");
use strict; use strict;
use LWP::Simple;
use XML::DOM; use XML::DOM;
use Math::Trig; use Math::Trig;
require File::Basename; require File::Basename;
@@ -80,15 +81,10 @@ sub completeinit {
$self->SUPER::completeinit(); $self->SUPER::completeinit();
my $parser = XML::DOM::Parser->new(); my $parser = XML::DOM::Parser->new();
my $flight_plan_url = $self->get('-url'); my $flight_plan_url = $self->get('-url');
$flight_plan_url =~ /file:\/\/(.*)/; my $flight_plan_xml = LWP::Simple::get $fp_url;
my $flight_plan = $1;
my $paparazzi_src = Paparazzi::Environment::paparazzi_src();
my $gfp_bin = ((defined $paparazzi_src) ? $paparazzi_src."/sw/tools" : "/usr/share/paparazzi/bin") ."/gen_flight_plan.out";
my $flight_plan_xml = `$gfp_bin -dump $flight_plan`;
$self->configure( -compiled_xml => $flight_plan_xml); $self->configure( -compiled_xml => $flight_plan_xml);
# print "#######flight_plan_xml\n".$flight_plan_xml; print "#######flight_plan_xml\n".$flight_plan_xml;
my $doc = $parser->parse($flight_plan_xml); my $doc = $parser->parse($flight_plan_xml);
# print "in Flightplan : parsing $file $doc \n"; # print "in Flightplan : parsing $file $doc \n";