Mirrors_Framework/paparazzi
1
0
Fork 0
mirror of https://github.com/paparazzi/paparazzi.git synced 2026-05-21 03:43:26 +08:00
Code Issues Actions 26 Packages Projects Releases Wiki Activity

removed old perl version of paparazzi-center

Browse Source
This commit is contained in:
Felix Ruess
2011-10-15 20:43:19 +02:00
parent ea16757203
commit 59b95dd3fa
1 changed files with 0 additions and 85 deletions
Download Patch File Download Diff File Expand all files Collapse all files
sw/supervision/paparazzi.pl
-85
View File
@@ -1,85 +0,0 @@
#!/usr/bin/perl -w
package Paparazzi;
my $paparazzi_lib;
BEGIN {
$paparazzi_lib = (defined $ENV{PAPARAZZI_SRC}) ?
$ENV{PAPARAZZI_SRC}."/sw/lib/perl" :
"/usr/lib/paparazzi/";
}
use lib ($paparazzi_lib);
if (exists $ENV{PAPARAZZI_SRC} and defined $ENV{PAPARAZZI_SRC}) {
use lib ($ENV{PAPARAZZI_SRC}."/sw/supervision");
}
use Paparazzi::CpGui;
@ISA = qw(Paparazzi::CpGui);
use Paparazzi::Environment;
use strict;
use Tk;
use Subject;
use Data::Dumper;
use Getopt::Long;
sub populate {
my ($self, $args) = @_;
my $paparazzi_src = Paparazzi::Environment::paparazzi_src();
my $paparazzi_home = Paparazzi::Environment::paparazzi_home();
Paparazzi::Environment::check_paparazzi_home();
$args->{-config_file} = $paparazzi_home."/conf/control_panel.xml";
$args->{-variables} = {paparazzi_home => $paparazzi_home};
$args->{-bin_base_dir} = defined $paparazzi_src ? $paparazzi_src : "/usr/share/paparazzi";
$args->{-logo_file} = $paparazzi_home."/data/pictures/penguin_logo.gif";
$self->SUPER::populate($args);
$self->configspec(-variables => [S_SUPER, S_SUPER, S_SUPER, S_SUPER, S_SUPER, {}]);
}
sub completeinit {
my ($self) = @_;
$self->SUPER::completeinit();
$self->parse_args();
}
sub parse_args {
my ($self) = @_;
my $options = {
ivy_bus => undef,
map => undef,
render => undef,
};
GetOptions("b=s" => \$options->{ivy_bus},
"m=s" => \$options->{map},
"r=s" => \$options->{render},
);
my $variables = $self->get('-variables');
foreach my $var (keys %{$options}) {
$variables->{$var} = $options->{$var} if defined $options->{$var};
}
# print "in paparazzi::parse_args variables after\n".Dumper($variables);
}
sub catchSigTerm() {
my ($paparazzi) = @_;
printf("in catchSigTerm\n");
$paparazzi->terminate_all();
}
my $paparazzi = Paparazzi->new();
$SIG{TERM} = sub {$paparazzi->catchSigTerm()};
Tk::MainLoop();
$paparazzi->catchSigTerm();
1;