Clean up headers and lower verbosity.

diff --git a/scripts/perl/examples/aircraft.pl b/scripts/perl/examples/aircraft.pl
index 41703bfcfacd772b89ee0962c341b79bfcf41309..6a0936304911f2e404edc1681959d752f2f47430 100755 (executable)
--- a/scripts/perl/examples/aircraft.pl
+++ b/scripts/perl/examples/aircraft.pl
@@ -1,4 +1,16 @@
 #!/usr/bin/perl
+#
+# aircraft.pl - Handle aircraft functions
+#
+# Written by Curtis L. Olson, started January 2004
+#
+# Copyright (C) 2004  Curtis L. Olson - curt@flightgear.org
+#
+# This code is placed in the public domain by Curtis L. Olson.
+# There is no warranty, etc. etc. etc.
+#
+# $Id$
+# ----------------------------------------------------------------------------
 
 require "telnet.pl";
 
@@ -82,6 +94,13 @@ sub set_elevator {
     &set_prop( $fgfs, "/controls/flight/elevator", $pos_norm );
 }
 
+sub set_elevator_trim {
+    my( $fgfs ) = shift;
+    my( $pos_norm ) = shift;
+
+    &set_prop( $fgfs, "/controls/flight/elevator-trim", $pos_norm );
+}
+
 sub set_rudder {
     my( $fgfs ) = shift;
     my( $pos_norm ) = shift;

diff --git a/scripts/perl/examples/autopilot.pl b/scripts/perl/examples/autopilot.pl
index 0c28a147eeb71091a41c588021a1ca6621701bb0..53da47d05e7ba71aaa740a1a7a7d5c73f50bca4a 100755 (executable)
--- a/scripts/perl/examples/autopilot.pl
+++ b/scripts/perl/examples/autopilot.pl
@@ -1,4 +1,17 @@
 #!/usr/bin/perl
+#
+# autopilot.pl - Handle autopilot functions
+#
+# Written by Curtis L. Olson, started January 2004
+#
+# Copyright (C) 2004  Curtis L. Olson - curt@flightgear.org
+#
+# This code is placed in the public domain by Curtis L. Olson.
+# There is no warranty, etc. etc. etc.
+#
+# $Id$
+# ----------------------------------------------------------------------------
+
 
 require "telnet.pl";
 

diff --git a/scripts/perl/examples/environment.pl b/scripts/perl/examples/environment.pl
index 8837c541088f33eef2584614f4bd19f39581941e..d7a567f34c728a96c7f502fc32d8f830c3fb5b51 100755 (executable)
--- a/scripts/perl/examples/environment.pl
+++ b/scripts/perl/examples/environment.pl
@@ -1,4 +1,17 @@
 #!/usr/bin/perl
+#
+# environment.pl - Handle environment setup
+#
+# Written by Curtis L. Olson, started January 2004
+#
+# Copyright (C) 2004  Curtis L. Olson - curt@flightgear.org
+#
+# This code is placed in the public domain by Curtis L. Olson.
+# There is no warranty, etc. etc. etc.
+#
+# $Id$
+# ----------------------------------------------------------------------------
+
 
 require "telnet.pl";
 
@@ -41,7 +54,7 @@ sub set_env_layer {
 
     foreach $prop ( keys(%HASH) ) {
         $value = $HASH{$prop};
-        print "setting $prop = $value\n";
+        # print "setting $prop = $value\n";
         &set_prop( $fgfs, $prop, $value );
     }
 }
@@ -88,7 +101,7 @@ sub set_pressure {
 
     foreach $prop ( keys(%HASH) ) {
         $value = $HASH{$prop};
-        print "setting $prop = $value\n";
+        # print "setting $prop = $value\n";
         &set_prop( $fgfs, $prop, $value );
     }
 }
@@ -112,7 +125,7 @@ sub set_cloud_layer {
 
     foreach $prop ( keys(%HASH) ) {
         $value = $HASH{$prop};
-        print "setting $prop = $value\n";
+        # print "setting $prop = $value\n";
         &set_prop( $fgfs, $prop, $value );
     }
 }

diff --git a/scripts/perl/examples/logging.pl b/scripts/perl/examples/logging.pl
index c65528ad19673913ae5e826d045d3b29d94ec386..50bc421d91a0016426e771176e72233ffbd5af4e 100755 (executable)
--- a/scripts/perl/examples/logging.pl
+++ b/scripts/perl/examples/logging.pl
@@ -24,20 +24,6 @@ my( $tmp_dir ) = "/tmp";
 
 my( $field_index ) = 0;
 
-# my( $page );
-# my( $server, $port, $timeout );
-# my( $last_plot_image ) = "";
-# my( $image_handle );
-# my( $junk );
-# my( @PLOTFIELDS );
-# my( $field_choice );
-# my( $plot_field );
-
-# my( $home ) = $ENV{"HOME"};
-# my( $log_dir ) = "$home/ATC/data";
-# my( $log_file ) = "$log_dir/default.txt";
-# my( $plot_file ) = $log_file;
-
 
 sub clear_logging {
     my( $fgfs ) = shift;
@@ -69,7 +55,7 @@ sub add_field {
     # spaces seem to not work well.
     $title =~ s/ /\_/g;
 
-    print "$title - $prop\n";
+    # print "$title - $prop\n";
     &set_prop( $fgfs,
                "/logging/log[$lognum]/entry[$field_index]/title", $title );
     &set_prop( $fgfs,

diff --git a/scripts/perl/examples/position.pl b/scripts/perl/examples/position.pl
index c94e04a43e39504c47ea2560f825d10f955b98cd..fb006e02b3f6f55b0bc90c0d013cabff48479908 100755 (executable)
--- a/scripts/perl/examples/position.pl
+++ b/scripts/perl/examples/position.pl
@@ -1,4 +1,17 @@
 #!/usr/bin/perl
+#
+# position.pl - Handle repositioning aircraft (in air/on ground)
+#
+# Written by Curtis L. Olson, started January 2004
+#
+# Copyright (C) 2004  Curtis L. Olson - curt@flightgear.org
+#
+# This code is placed in the public domain by Curtis L. Olson.
+# There is no warranty, etc. etc. etc.
+#
+# $Id$
+# ----------------------------------------------------------------------------
+
 
 require "telnet.pl";