91 lines
3.1 KiB
Perl
91 lines
3.1 KiB
Perl
#!/usr/bin/perl -w
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
# DEBUG
|
|
# use Data::Dumper;
|
|
# print Dumper($data) . "\n";
|
|
# END
|
|
|
|
use Switch;
|
|
use XML::LibXML;
|
|
my $parser = XML::LibXML->new();
|
|
my $doc = $parser->load_xml(location => './CEB.xml');
|
|
my $data;
|
|
|
|
# reformatting days
|
|
# According to http://wiki.flightgear.org/index.php/Interactive_Traffic
|
|
# 0 = Sunday and 6 = saturday
|
|
# For convenience we switch here to "classical" numbering
|
|
# where 0 = Monday and 6 = sunday
|
|
sub parseDay {
|
|
my $day;
|
|
$day = substr($_[0],0,1);
|
|
switch ($day) {
|
|
case 0 {$day="......6"} # Sunday
|
|
case 1 {$day="0......"} # Monday
|
|
case 2 {$day=".1....."} # Tuesday
|
|
case 3 {$day="..2...."} # Wednesday
|
|
case 4 {$day="...3..."} # Thrusday
|
|
case 5 {$day="....4.."} # Friday
|
|
case 6 {$day=".....5."} # Saturday
|
|
else {$day="0123456"} # Daily
|
|
};
|
|
return $day;
|
|
}
|
|
|
|
# reformatting times
|
|
sub parseTime {
|
|
return substr($_[0],2,5);
|
|
}
|
|
|
|
print "# AC Homeport Registration RequiredAC AcTyp Airline Livery Offset Radius Flighttype PerfClass Heavy Model\n";
|
|
# get aircraft data
|
|
foreach $data ($doc->findnodes('/trafficlist/aircraft')) {
|
|
my $AcMdl = $data->findnodes('./model');
|
|
my $AcLvy = $data->findnodes('./livery');
|
|
my $AcAln = $data->findnodes('./airline');
|
|
my $AcHp = $data->findnodes('./home-port');
|
|
my $AcReq = $data->findnodes('./required-aircraft');
|
|
my $AcTyp = $data->findnodes('./actype');
|
|
my $AcO = $data->findnodes('./offset');
|
|
my $AcRad = $data->findnodes('./radius');
|
|
my $AcFt = $data->findnodes('./flighttype');
|
|
my $AcPrf = $data->findnodes('./performance-class');
|
|
my $AcReg = $data->findnodes('./registration');
|
|
my $AcHvy = $data->findnodes('./heavy');
|
|
print "AC $AcHp $AcReg $AcReq $AcTyp $AcAln $AcLvy $AcO $AcRad $AcFt $AcPrf $AcHvy $AcMdl\n";
|
|
}
|
|
print "\n# FLIGHT Callsign Flightrule Days DeparTime DepartPort ArrivalTime ArrivalPort Altitude RequiredAc\n# 0 = Monday, 6 = Sunday\n";
|
|
# get flight data
|
|
foreach $data ($doc->findnodes('/trafficlist/flight')) {
|
|
my $FlRep = $data->findnodes('repeat');
|
|
my $FlDepPrt = $data->findnodes('departure/port');
|
|
my $FlArrPrt = $data->findnodes('arrival/port');
|
|
my $FlCs = $data->findnodes('callsign');
|
|
my $FlFr = $data->findnodes('fltrules');
|
|
my $FlCa = $data->findnodes('cruise-alt');
|
|
my $FlReq = $data->findnodes('required-aircraft');
|
|
my $FlDepDay = $data->findnodes('departure/time');
|
|
my $FlDepTime = $data->findnodes('departure/time');
|
|
my $FlArrDay = $data->findnodes('arrival/time');
|
|
my $FlArrTime = $data->findnodes('arrival/time');
|
|
my $FlDays = ".......";
|
|
# handle flights depending on weekly or daily schedule
|
|
if (lc($FlRep) eq "week") {
|
|
$FlDays = parseDay($FlDepTime);
|
|
$FlDepTime = parseTime($FlDepTime);
|
|
$FlArrTime = parseTime($FlArrTime);
|
|
} elsif (lc($FlRep) eq "24hr") {
|
|
$FlDepDay = $data->findnodes('departure/time');
|
|
$FlDepTime = substr($data->findnodes('departure/time'),0,5);
|
|
$FlArrDay = $data->findnodes('arrival/time');
|
|
$FlArrTime = substr($data->findnodes('arrival/time'),0,5);
|
|
$FlDays = "0123456";
|
|
} else {
|
|
die "Error! No proper repetition found in XML!\n";
|
|
}
|
|
# output data
|
|
print "FLIGHT $FlCs $FlFr $FlDays $FlDepTime $FlDepPrt $FlArrTime $FlArrPrt $FlCa $FlReq\n";
|
|
}
|