-# global variables
-my $devpath;
-my $action;
-my $subsystem;
-
-# common functions
-sub getDate {
- # Get current date/time
- # If we want GTM time, simply pass GMT as first argument to this function.
-
- my $format = @_;
- my $date;
-
- if( $format =~ /GMT/i ) {
- $date = gmtime() . " GMT";
- } else {
- $date = localtime();
- }
- return $date;
-}
-
-# main program