7 my( $airport_id ) = "KSNA";
9 my( $reset_sec ) = 300;
11 my( $server ) = "localhost";
20 my( $offset_dist ) = shift;
21 my( $glideslope_deg ) = shift;
22 my( $altitude_ft ) = shift;
23 my( $airspeed_kt ) = shift;
28 $HASH{ "/sim/presets/airport-id" } = $aptid;
29 $HASH{ "/sim/presets/runway" } = $rwy;
30 $HASH{ "/sim/presets/offset-distance" } = $offset_dist;
31 if ( $glideslope_deg > 0 ) {
32 $HASH{ "/sim/presets/glideslope-deg" } = $glideslope_deg;
33 $HASH{ "/sim/presets/altitude-ft" } = "";
35 $HASH{ "/sim/presets/glideslope-deg" } = "";
36 $HASH{ "/sim/presets/altitude-ft" } = $altitude_ft;
39 $HASH{ "/sim/presets/airspeed-kt" } = $airspeed_kt;
40 $HASH{ "/sim/presets/vor-id" } = "";
41 $HASH{ "/sim/presets/vor-freq" } = "";
42 $HASH{ "/sim/presets/ndb-id" } = "";
43 $HASH{ "/sim/presets/ndb-freq" } = "";
44 $HASH{ "/sim/presets/fix" } = "";
45 $HASH{ "/sim/presets/longitude-deg" } = "-9999.0";
46 $HASH{ "/sim/presets/latitude-deg" } = "-9999.0";
47 $HASH{ "/sim/presets/offset-azimuth" } = "";
48 $HASH{ "/sim/presets/heading-deg" } = "-9999.0";
50 foreach $prop ( keys(%HASH) ) {
51 $value = $HASH{$prop};
52 print "setting $prop = $value\n";
53 &set_prop( $fgfs, $prop, $value );
56 &send( $fgfs, "run presets-commit" );
68 $HASH{ "/sim/presets/airport-id" } = $aptid;
69 $HASH{ "/sim/presets/runway" } = $rwy;
70 $HASH{ "/sim/presets/offset-distance" } = "";
71 $HASH{ "/sim/presets/glideslope-deg" } = "";
72 $HASH{ "/sim/presets/altitude-ft" } = "";
73 $HASH{ "/sim/presets/airspeed-kt" } = "";
74 $HASH{ "/sim/presets/vor-id" } = "";
75 $HASH{ "/sim/presets/vor-freq" } = "";
76 $HASH{ "/sim/presets/ndb-id" } = "";
77 $HASH{ "/sim/presets/ndb-freq" } = "";
78 $HASH{ "/sim/presets/fix" } = "";
79 $HASH{ "/sim/presets/longitude-deg" } = "-9999.0";
80 $HASH{ "/sim/presets/latitude-deg" } = "-9999.0";
81 $HASH{ "/sim/presets/offset-azimuth" } = "";
82 $HASH{ "/sim/presets/heading-deg" } = "-9999.0";
84 foreach $prop ( keys(%HASH) ) {
85 $value = $HASH{$prop};
86 print "setting $prop = $value\n";
87 &set_prop( $fgfs, $prop, $value );
90 &send( $fgfs, "run presets-commit" );