Changeset 241

Timestamp:

10/03/08 15:15:09

Author:

dan

Message:

Changes: Added fixed-profiler processing via cdl_profiler_adcp.pl.

Files:

• scout/trunk/cdl_0master.pl (modified) (8 diffs)

scout/trunk/cdl_0master.pl

@@ -1 +1 @@
-###############################################################################
-# Revisions
+# Rev: 1.2.0.0
+# Author: DWR
+# Changes: Added fixed-profiler processing via cdl_profiler_adcp.pl.
-# Rev: 1.1.2.0
-# Author: DWR
@@ -42 +45 @@
-use Time::Local;
-use obsKMLSubRoutines;
+use Math::Trig;
-
-use constant USE_DEBUG_PRINTS => 1;
@@ -59 +63 @@
-do 'cdl_grid_jpl.pl';
-do 'cdl_fixed_map.pl';
+do 'cdl_fixed_profile_adcp.pl';
+do 'cdl_profiler_adcp.pl';
-
-# oldest incoming time stamp tolerated (14 days)
@@ -90 +96 @@
-       "Parameter 1 is an optional parameter. Valid values are: 0 Write only SQL files, 1 Write only obsKML file, or 2 Write both SQL files and obsKML file. Default value is 0.\n".
-       "Parameter 2 is the directory where the obsKML file is stored. If not provided the default directory is the current directory.\n".
-
+
+
-     );
-}
@@ -113 +120 @@
-    $iLastNTimeStamps = @ARGV[3];
-  }
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-print( "---------------------------------------------------------------------------------------------------------\n" );
-
+
+
+
-#
-# Turn off fatal error aborts.  We need to allow some attributes to error out w/o crashing.
@@ -203 +232 @@
-  && !($format_category_value eq 'Seacoos_grid')
-  && !($format_category_value eq 'jpl_grid')
-
+
+
-
-# get latest timestamp for this station_id if there is one
@@ -234 +264 @@
-    }
-  } 
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-  fixed_point($this_station_id_top_ts, $FileCreationOption, $strObsKMLDir, $iLastNTimeStamps );
+}
+elsif( $format_category_value eq 'fixed-profiler')
+{
+  #Check to see if the institution specific directory exists.
+  my $strObsKMLDir = "$strObsKMLFilePath/profiler";
+  if( ( -d "$strObsKMLDir" ) == 0 )
+  {
+    if( mkdir( "$strObsKMLDir", 0777 ) == 0 )
+    {
+      print( "ERROR::Unable to create directory: $strObsKMLDir.\n" );
+      $strObsKMLDir = $strObsKMLFilePath;
+    }
+    else
+    {
+      print( "Created directory: $strObsKMLDir\n" );
+    }
+  } 
+  #Are we using per organization last N time stamps? If so see if this org is in the list.
+  if( length( $strLastNTimeStampsPerOrg ) )
+  {
+    print( "Org code: $institution_code_value\n" );
+    my $iNTimeStamps = -1;
+    if( exists $refUpdatePerOrg->{$institution_code_value} )
+    {
+      $iNTimeStamps = $refUpdatePerOrg->{$institution_code_value};
+      $iLastNTimeStamps = $iNTimeStamps;
+      print( "LastNTimeStamps: $iLastNTimeStamps\n" );
+    }    
+  }
+  fixed_profiler($this_station_id_top_ts, $FileCreationOption, $strObsKMLDir, $iLastNTimeStamps );
-}
-elsif ($format_category_value eq 'moving-point-2D') {
@@ -252 +322 @@
-  fixed_map();
-}
+
+my $strEndTime = `date +%s`;
+print( "End Time: $strEndTime\n" );