fg_nav_xml.cgi

#!/usr/bin/perl -Tw
#
#
# Author: Pigeon <pigeon at pigeond dot net>
#
# Under debian, you need libdbix-easy-perl,
# libdbd-pg-perl (postgres) or libdbd-mysql-perl (mysql)
#

use strict;
use DBIx::Easy;
require Encode;


my($APT_TABLE) = "fg_apt";
my($APTWAY_TABLE) = "fg_apt_way";
my($ATC_TABLE) = "fg_atc";
my($NAV_TABLE) = "fg_nav";
my($NAVCHAN_TABLE) = "fg_nav_channel";
my($FIX_TABLE) = "fg_fix";
my($AWY_TABLE) = "fg_awy";

my($SQL_LIMIT);

$SQL_LIMIT = $ENV{'SQL_LIMIT'};

if(!$SQL_LIMIT)
{
    $SQL_LIMIT = 100;
}

binmode(STDOUT, ":utf8");

print("Pragma: no-cache\r\n");
print("Cache-Control: no-cache\r\n");
print("Expires: Sat, 17 Sep 1977 00:00:00 GMT\r\n");
print("Content-Type: text/xml\r\n\r\n");


sub err_print
{
    my($err) = @_;
    $err =~ s/"/\&quot;/g;
    $err =~ s/[\r\n]//g;
    $err =~ s/</&lt;/g;
    $err =~ s/>/&gt;/g;
    print("<navaids err=\"${err}\" />\n");
    exit(0);
}

sub quadratic
{
    my($a, $b, $c) = @_;
    my($k) = sqrt($b * $b - 4 * $a * $c);
    my($x1) = (-$b + $k) / 2 / $a;
    my($x2) = (-$b - $k) / 2 / $a;
    return ($x1, $x2);
}


sub min
{
    ($a, $b) = @_;
    return ($a < $b ? $a : $b);
}

sub htmlencode
{
    my($str) = @_;
    $str =~ s/\&/\&amp;/g;
    $str =~ s/\</\&lt;/g;
    $str =~ s/\>/\&gt;/g;
    return $str;
}

sub bound_sql_cond_get
{
    my($ret) = "(";
    my($ne, $sw, $lat_colname, $lng_colname) = @_;

    my($ne_lat, $ne_lng) = split(/,/, $ne);
    my($sw_lat, $sw_lng) = split(/,/, $sw);

    if($ne_lng < $sw_lng)
    {
        $ret .= "(${lat_colname} < ?";

        $ret .= " AND ${lat_colname} > ?)";

        $ret .= " AND ";
        $ret .= "(";
        $ret .= "(${lng_colname} < 180";

        $ret .= " AND ${lng_colname} > ?)";

        $ret .= " OR ";

        $ret .= " (${lng_colname} < ?";

        $ret .= " AND ${lng_colname} > -180)";
        $ret .= ")";
    }
    else
    {
        $ret .= "${lat_colname} < ?";
        $ret .= " AND ${lat_colname} > ?";
        $ret .= " AND ${lng_colname} > ?";
        $ret .= " AND ${lng_colname} < ?";
    }

    $ret .= ")";

    return ($ret, $ne_lat, $sw_lat, $sw_lng, $ne_lng);
}

sub rwy_nav
{
    my($dbi, $apt_code, $rwy_num) = @_;
    my($rwy_nav) = "";
    my($k);

    my(%nav_type_hash) =
    (
        4   => "ils",
        5   => "loc",
        6   => "gs",
        7   => "om",
        8   => "mm",
        9   => "im",
        12  => "dme",
    );

    my($nav_sql) = "SELECT ${NAV_TABLE}.*, ${NAVCHAN_TABLE}.channel";
    $nav_sql .= " FROM ${NAV_TABLE}";
    $nav_sql .= " FULL JOIN ${NAVCHAN_TABLE} ON";
    $nav_sql .= " ${NAVCHAN_TABLE}.freq = ${NAV_TABLE}.freq";
    $nav_sql .= " WHERE (nav_type=4 OR nav_type=5 OR ".
        "nav_type=6 OR nav_type=7 OR nav_type=8 OR ".
        "nav_type=9 OR nav_type=12)";
    $nav_sql .= " AND UPPER(name) LIKE '".
                    uc(${apt_code})." ".uc(${rwy_num})."'";
    $nav_sql .= ";";

    my($nav_sth) = $dbi->process($nav_sql);

    for($k = 0; $k < $nav_sth->rows; $k++)
    {
        my($nav_href) = $nav_sth->fetchrow_hashref;
        my(%nav_hash) = %$nav_href;

        my($nav_name) = &htmlencode($nav_hash{'name'});
        $nav_name =~ s/${apt_code} ${rwy_num} //gi;

        my($nav_type) = $nav_hash{'nav_type'};
        my($nav_type_name) = $nav_hash{'type_name'};
        my($nav_lat) = $nav_hash{'lat'};
        my($nav_lng) = $nav_hash{'lng'};
        my($nav_elevation) = $nav_hash{'elevation'};
        my($nav_freq) = &freqstr($nav_hash{'freq'});
        my($nav_range) = $nav_hash{'range'};
        my($nav_multi) = $nav_hash{'multi'};
        my($nav_ident) = $nav_hash{'ident'};

        # ILS (LLZ/LOC)
        # GS
        # IM MM OM (These work together with NDB)

        my($extras) = "";

        $nav_type = $nav_type_hash{$nav_type};

        if($nav_type eq 'gs')
        {
            my($angle, $heading) = &multi_to_gs($nav_multi);
            $extras .= " heading=\"".$heading."\" angle=\"".$angle."\"";
        }
        elsif($nav_type eq 'dme')
        {
            $extras .= " bias=\"".$nav_multi."\"";
        }
        else
        {
            # ils,loc,om,mm,im
            $extras .= " heading=\"".$nav_multi."\"";
        }

        if($nav_hash{'channel'})
        {
            my($nav_channel) = $nav_hash{'channel'};
            $nav_channel =~ s/^0+//g;
            $nav_channel =~ s/[XY]$//g;
            $extras .= " channel=\"".$nav_channel."\"";
        }

        $rwy_nav .= <<XML;
\t\t\t<ils type="${nav_type}" lat="${nav_lat}" lng="${nav_lng}" elevation="${nav_elevation}" freq="${nav_freq}" range="${nav_range}" ident="${nav_ident}" name="${nav_name}" type_name="${nav_type_name}"${extras} />
XML
    }

    return $rwy_nav;
}


sub reverse_rwy
{
    my($rwy_num) = @_;
    my($num, $lr) = ($rwy_num =~ /(\d+)(.*)/);

    if(!$num)
    {
        return ${rwy_num};
    }

    if($num > 18)
    {
        $num -= 18;
    }
    else
    {
        $num += 18;
    }

    if($lr ne "")
    {
        if(uc($lr) eq "L")
        {
            $lr = "R";
        }
        else
        {
            $lr = "L";
        }
    }

    return "${num}${lr}";
}

sub freqstr
{
    my($freq) = @_;
    return sprintf("%.2f", $freq / 100);
}

sub multi_to_gs
{
    my($multi) = @_;
    my($angle, $heading);
    $angle = sprintf("%.2f", $multi / 100000);
    $heading = sprintf("%.3f", $multi - $angle * 100000);
    return ($angle, $heading);
}

sub db_error
{
    my($statement, $err, $msg) = @_;
    &err_print("Database error: \"$statement\", errno: $err, errmsg: $msg");
}


if(!$ENV{'QUERY_STRING'})
{
    exit(0);
}

#&err_print("Database being updated, please try again later.");


# The output xml
my($xml) = "";

# search string
my($sstr);
my($orig_sstr);

my($debug) = "";

# search options
my($apt_code, $apt_name, $vor, $ndb, $fix, $awy, $taxiway, $bounds);

# bounds
my($ne, $sw, $ne_lat, $ne_lng, $sw_lat, $sw_lng);

my($p);

my($query_string) = Encode::decode_utf8($ENV{'QUERY_STRING'});

# The easy workaround for now
$query_string =~ s/[\#\%\*\'\;\\]/\\$&/g;

my(@a) = split(/\&/, ${query_string});

foreach $p (@a)
{
    my($key, $value) = split(/=/, $p);

    if($key eq 'sstr')
    {
        $orig_sstr = $value;
        $sstr = uc($orig_sstr);
    }
    elsif($key eq 'apt_name')
    {
        $apt_name = 1;
    }
    elsif($key eq 'apt_code')
    {
        $apt_code = 1;
    }
    elsif($key eq 'vor')
    {
        $vor = 1;
    }
    elsif($key eq 'ndb')
    {
        $ndb = 1;
    }
    elsif($key eq 'fix')
    {
        $fix = 1;
    }
    elsif($key eq 'awy')
    {
        $awy = 1;
    }
    elsif($key eq 'taxiway')
    {
        # We want taxiway too
        $taxiway = 1;
    }
    elsif($key eq 'ne')
    {
        $ne = $value;
        ($ne_lat, $ne_lng) = split(/,/, $ne);
    }
    elsif($key eq 'sw')
    {
        $sw = $value;
        ($sw_lat, $sw_lng) = split(/,/, $sw);
    }
}


my($dbi);
my($sth);

#$dbi = new DBIx::Easy qw(mysql flightgear fgmap);
$dbi = new DBIx::Easy qw(Pg flightgear fgmap);
$dbi->install_handler(\&db_error);

if(!$dbi)
{
    # TODO
    &err_print("Database connection object creation failed.");
}

if(!$sstr and !($ne and $sw))
{
    &err_print("Invalid search");
}

if($sstr)
{
    $sstr =~ s/%([a-fA-F0-9][a-f-A-F0-9])/pack("C", hex($1))/ge;

    if(length($sstr) < 2 && $ENV{'HTTP_HOST'})
    {
        &err_print("Search string too short, minimum length 2.");
    }
}

if($ne and $sw)
{
    # Check if the bounds is way too big, we want to limit this

    # this is gmap z=10
#    my($lat_max) = 0.5199925335038184;
#    my($lng_max) = 1.1714172363281472;
#
#    if((($ne_lat - $sw_lat) > $lat_max) or
#            (($ne_lng - $sw_lng) > $lng_max))
#    {
#        &err_print("Bounds too high");
#    }
}


my($result_cnt) = 0;
my($sql);
my(@sql_arr);
my($sql_ret);


if($apt_code or $apt_name)
{
    # airport
    @sql_arr = ();
    $sql_ret = "";

    if($sstr)
    {
        $sql = "SELECT * FROM ${APT_TABLE} WHERE ";

        if($apt_code)
        {
            $sql .= "UPPER(apt_code) LIKE ?";
            push(@sql_arr, '%'.$sstr.'%');
        }

        if($apt_name)
        {
            if($apt_code)
            {
                $sql .= " OR ";
            }
            $sql .= "UPPER(apt_name) LIKE ?";
            push(@sql_arr, '%'.$sstr.'%');
        }

        $sql .= " ORDER BY apt_code;";
    }
    elsif($ne and $sw)
    {
        # Searching for airport according to its runway
        $sql = "SELECT DISTINCT ON (${APT_TABLE}.apt_id) * FROM ${APT_TABLE} ";
        $sql .= "JOIN ${APTWAY_TABLE} ON ";
        $sql .= "${APT_TABLE}.apt_id = ${APTWAY_TABLE}.apt_id";
        $sql .= " WHERE ${APTWAY_TABLE}.type = 'r'";
        
        $sql .= " AND ";
        ($sql_ret, @sql_arr) = &bound_sql_cond_get($ne, $sw, 'lat', 'lng');
        $sql .= $sql_ret;

        $sql .= " ORDER BY ${APT_TABLE}.apt_id, apt_code;";
    }


    $sth = $dbi->prepare($sql);
    $sth->execute(@sql_arr);

    if($sth->rows > 0)
    {
        my($i, $j);

        #for($i = 0; $i < $sth->rows; $i++)
        for($i = 0; $i < (&min(${SQL_LIMIT} - ${result_cnt}, $sth->rows)); $i++)
        {
            my($row_href) = $sth->fetchrow_hashref;
            my(%row_hash) = %$row_href;

            my($apt_id) = $row_hash{'apt_id'};
            my($apt_code) = $row_hash{'apt_code'};
            my($apt_name) = &htmlencode($row_hash{'apt_name'});
            my($apt_heli) = $row_hash{'heliport'};
            my($apt_sea) = $row_hash{'seaport'};
            my($elevation) = $row_hash{'elevation'};

            if($apt_heli == 1)
            {
                $apt_name =~ s/\[H\] //i;
            }

            $xml .= <<XML;
        <airport id="${apt_id}" code="${apt_code}" name="${apt_name}" elevation="${elevation}" heliport="${apt_heli}" seaport="${apt_sea}">
XML

            # Get runway/taxiway
            my($aptway_sql) =
                "SELECT * FROM ${APTWAY_TABLE} WHERE apt_id=${apt_id}";
            if(!$taxiway)
            {
                $aptway_sql .= " AND type = 'r'";
            }
            $aptway_sql .= " ORDER BY type;";

            my($apt_sth) = $dbi->process($aptway_sql);
            
            for($j = 0; $j < $apt_sth->rows; $j++)
            {
                # For each runway...
                my($aptway_href) = $apt_sth->fetchrow_hashref;
                my(%aptway_hash) = %$aptway_href;

                my($type) = $aptway_hash{'type'};
                my($num) = $aptway_hash{'num'};

                #$num =~ s/^\s*//g;
                #$num =~ s/\s*$//g;

                my($lat) = $aptway_hash{'lat'};
                my($lng) = $aptway_hash{'lng'};
                my($heading) = $aptway_hash{'heading'};
                my($length) = $aptway_hash{'length'};
                my($width) = $aptway_hash{'width'};

                if($type eq "r")
                {
                    $xml .= <<XML;
\t\t<runway num="${num}" lat="${lat}" lng="${lng}" heading="${heading}" length="${length}" width="${width}">
XML
                    $xml .= &rwy_nav($dbi, $apt_code, ${num});
                    $xml .= "\t\t</runway>\n\n";

                    if($apt_heli == 0)
                    {
                        # The reverse runway
                        my($rnum) = &reverse_rwy(${num});

                        if(${rnum} ne ${num})
                        {
                            if($heading > 180)
                            {
                                $heading -= 180;
                            }
                            else
                            {
                                $heading += 180;
                            }

                            $xml .= <<XML;
\t\t<runway num="${rnum}" lat="${lat}" lng="${lng}" heading="${heading}" length="${length}" width="${width}">
XML
                            $xml .= &rwy_nav($dbi, $apt_code, ${rnum});
                            $xml .= "\t\t</runway>\n\n";
                        }
                    }
                }
                elsif($type eq "t")
                {
                    $xml .= <<XML;
\t\t<taxiway lat="${lat}" lng="${lng}" heading="${heading}" length="${length}" width="${width}" />
XML
                }

            }

            # Get the ATC stuff
            my($atc_sql) =
                "SELECT * FROM ${ATC_TABLE} WHERE apt_id=${apt_id} ORDER BY atc_type;";
            my($atc_sth) = $dbi->process($atc_sql);
            
            for($j = 0; $j < $atc_sth->rows; $j++)
            {
                my($atc_href) = $atc_sth->fetchrow_hashref;
                my(%atc_hash) = %$atc_href;
                my($atc_type) = $atc_hash{'atc_type'};
                my($freq) = &freqstr($atc_hash{'freq'});
                my($name) = &htmlencode($atc_hash{'name'});

                $xml .= <<XML;
\t\t<atc atc_type="${atc_type}" freq="${freq}" name="${name}" />
XML
            }

            $xml .= "\t</airport>\n\n";

        }
        $result_cnt += $sth->rows;
    }
}


if($vor or $ndb)
{
    # NDB-DME: 2 and 13, 2 freqs
    # NDB: 2, 1 freq

    # VORTAC: 3 and 12, 1 freq
    # VOR-DME: 3 and 12, 1 freq
    # VOR: 3, 1 freq

    # DME: 13, 1 freq

    # TACAN: 12, 1 freq 

    @sql_arr = ();
    $sql_ret = "";

    $sql = "SELECT ${NAV_TABLE}.*, ${NAVCHAN_TABLE}.channel";
    $sql .= " FROM ${NAV_TABLE}";
    $sql .= " FULL JOIN ${NAVCHAN_TABLE} ON";
    $sql .= " ${NAVCHAN_TABLE}.freq = ${NAV_TABLE}.channelfreq";
    $sql .= " WHERE"; 

    if($sstr)
    {
        $sql .= "(UPPER(ident) LIKE ? OR ";
        $sql .= "UPPER(name) LIKE ?)";
        push(@sql_arr, '%'.$sstr.'%');
        push(@sql_arr, '%'.$sstr.'%');
    }
    elsif($ne and $sw)
    {
        ($sql_ret, @sql_arr) = &bound_sql_cond_get($ne, $sw, 'lat', 'lng');
        $sql .= $sql_ret;
    }

    $sql .= " AND (";

    if($vor)
    {
        $sql .= "(";

        # VOR/VOR-DME/VORTAC
        $sql .= "nav_type = 3";

        # TACAN
        $sql .= " OR (nav_type = 12 AND type_name = 'TACAN')"; 

        $sql .= ")";
    }

    if($ndb)
    {
        if($vor)
        {
            $sql .= " OR ";
        }

        # NDB
        $sql .= "nav_type = 2";

        # NDB-DME/DME
        $sql .= " OR (nav_type = 13 AND (type_name = 'DME' or type_name = 'NDB-DME'))";
    }

    $sql .= ")";

    $sql .= " ORDER BY type_name, ident;";

    $sth = $dbi->prepare($sql);
    $sth->execute(@sql_arr);

    if($sth->rows > 0)
    {
        my($i);
        for($i = 0; $i < (&min(${SQL_LIMIT} - ${result_cnt}, $sth->rows)); $i++)
        {
            my($row_href) = $sth->fetchrow_hashref;
            my(%row_hash) = %$row_href;

            my($nav_type) = $row_hash{'nav_type'};
            my($lat) = $row_hash{'lat'};
            my($lng) = $row_hash{'lng'};
            my($elevation) = $row_hash{'elevation'};
            my($range) = $row_hash{'range'};
            my($multi) = $row_hash{'multi'};
            my($ident) = $row_hash{'ident'};
            my($type_name) = $row_hash{'type_name'};
            my($name) = &htmlencode($row_hash{'name'});

            #my($nav_tag) = lc(${type_name});
            #$nav_tag =~ s/-//g;

            my($channel) = "";
            my($freq) = "";

            # TACAN:    ID, Channel
            # DME:      ID, Channel

            # VOR:      ID, Freq
            # VOR-DME:  ID, Channel, Freq
            # VORTAC:   ID, Channel, Freq

            # NDB:      ID, Freq
            # NDB-DME:  ID, Channel, Freq

            if(${type_name} ne 'VOR' and ${type_name} ne 'NDB')
            {
                $channel = "channel=\"".$row_hash{'channel'}."\" ";
            }

            if(${type_name} ne 'TACAN' and ${type_name} ne 'DME')
            {
                $freq = $row_hash{'freq'};
                if(length($freq) >= 5)
                {
                    $freq = &freqstr($freq);
                }
                $freq = "freq=\"${freq}\" ";
            }

            $xml .= <<XML;
\t<radionav nav_type="${nav_type}" type_name="${type_name}" lat="${lat}" lng="${lng}" elevation="${elevation}" ${freq}${channel}range="${range}" multi="${multi}" ident="${ident}" name="${name}" />"
XML
        }
        $result_cnt += $sth->rows;
    }

}


if($fix)
{
    @sql_arr = ();
    $sql_ret = "";

    $sql = "SELECT * FROM ${FIX_TABLE} WHERE ";

    if($sstr)
    {
        $sql .= "UPPER(name) LIKE ?";
        push(@sql_arr, '%'.$sstr.'%');
    }
    elsif($ne and $sw)
    {
        ($sql_ret, @sql_arr) = &bound_sql_cond_get($ne, $sw, 'lat', 'lng');
        $sql .= $sql_ret;
    }

    $sql .= ";";

    $sth = $dbi->prepare($sql);
    $sth->execute(@sql_arr);

    if($sth->rows > 0)
    {
        my($i);
        for($i = 0; $i < (&min(${SQL_LIMIT} - ${result_cnt}, $sth->rows)); $i++)
        {
            my($row_href) = $sth->fetchrow_hashref;
            my(%row_hash) = %$row_href;

            my($lat) = $row_hash{'lat'};
            my($lng) = $row_hash{'lng'};
            my($name) = &htmlencode($row_hash{'name'});

            $xml .= <<XML;
\t<fix lat="${lat}" lng="${lng}" name="${name}" />"
XML
        }
        $result_cnt += $sth->rows;
    }
}


if($awy)
{
    @sql_arr = ();
    $sql_ret = "";
    my(@arr) = ();

    if($sstr)
    {
        $sql = "SELECT * FROM ${AWY_TABLE} WHERE ";
        $sql .= "UPPER(seg_name) LIKE ?";
        $sql .= " OR UPPER(name_start) LIKE ?";
        $sql .= " OR UPPER(name_end) LIKE ?";
        
        push(@sql_arr, '%'.$sstr.'%', '%'.$sstr.'%', '%'.$sstr.'%');
    }
    elsif($ne and $sw)
    {
        # the check:
        # left:  $sw_lng (x)
        # right: $ne_lng (x)
        # top:   $ne_lat (y)
        # bot:   $sw_lat (y)

        $sql = "SELECT * FROM ${AWY_TABLE} WHERE ";

        # start point within the current view
        ($sql_ret, @arr) = &bound_sql_cond_get($ne, $sw, 'lat_start', 'lng_start');
        $sql .= $sql_ret;
        push(@sql_arr, @arr);

        $sql .= " OR ";

        # end point within the current view
        ($sql_ret, @arr) = &bound_sql_cond_get($ne, $sw, 'lat_end', 'lng_end');
        $sql .= $sql_ret;
        push(@sql_arr, @arr);

        $sql .= " OR ";

        # a rough check to see whether they intersect as if the airway is a
        # rectangle. This is not accurate, but much simplier and quicker query.

        if($ne_lng < $sw_lng)
        {
            # Wrapped viewport

            my($orig_lng) = $sw_lng;
            $sw_lng += 360;

            $sql .= "(";

            $sql .= "(";
            $sql .= "NOT (";
            $sql .= "(rr < ?)";
            $sql .= " OR ";
            $sql .= "(rt < ?)";
            $sql .= " OR ";
            $sql .= "(rb > ?)";
            $sql .= ")";
            $sql .= ")";
            push(@sql_arr, $sw_lng, $sw_lat, $ne_lat);
            
            $sql .= " OR ";
            
            $sql .= "(";

            $sql .= "NOT (";
            $sql .= "(rl > ?)";
            $sql .= " OR ";
            $sql .= "(rt < ?)";
            $sql .= " OR ";
            $sql .= "(rb > ?)";
            $sql .= ")";
            $sql .= ")";
            push(@sql_arr, $ne_lng, $sw_lat, $ne_lat);
            
            $sql .= ")";

            $sw_lng = $orig_lng;
        }
        else
        {
            $sql .= "NOT (";
            $sql .= "(rl > ?)";
            $sql .= " OR ";
            $sql .= "(rr < ?)";
            $sql .= " OR ";
            $sql .= "(rt < ?)";
            $sql .= " OR ";
            $sql .= "(rb > ?)";
            $sql .= ")";
            push(@sql_arr, $ne_lng, $sw_lng, $sw_lat, $ne_lat);
        }
    }

    $sql .= ";";

    $sth = $dbi->prepare($sql);
    $sth->execute(@sql_arr);

    if($sth->rows > 0)
    {
        my($i);
        for($i = 0; $i < (&min(${SQL_LIMIT} - ${result_cnt}, $sth->rows)); $i++)
        {
            my($row_href) = $sth->fetchrow_hashref;
            my(%row_hash) = %$row_href;

            my($awy_id) = $row_hash{'awy_id'};

            my($name_start) = $row_hash{'name_start'};
            my($lat_start) = $row_hash{'lat_start'};
            my($lng_start) = $row_hash{'lng_start'};

            my($name_end) = $row_hash{'name_end'};
            my($lat_end) = $row_hash{'lat_end'};
            my($lng_end) = $row_hash{'lng_end'};

            my($enroute) = $row_hash{'enroute'};
            if($enroute eq '1') 
            {
                $enroute = 'low';
            }
            else
            {
                $enroute = 'high';
            }

            my($m) = $row_hash{'m'};
            my($b) = $row_hash{'b'};
            my($base) = $row_hash{'base'};
            my($top) = $row_hash{'top'};
            my($seg_name) = $row_hash{'seg_name'};

            $xml .= <<XML;
\t<awy awy_id="${awy_id}" name_start="${name_start}" lat_start="${lat_start}" lng_start="${lng_start}" name_end="${name_end}" lat_end="${lat_end}" lng_end="${lng_end}" m="${m}" b="${b}" enroute="${enroute}" base="${base}" top="${top}" seg_name="${seg_name}" />"
XML
        }
        $result_cnt += $sth->rows;
    }
}


print("<navaids cnt=\"${result_cnt}\" debug=\"${debug}\">\n");
print($xml);
print("</navaids>\n\n");

exit(0);

# vim: set sw=4 sts=4 expandtab: #