Changeset Navigation

Changeset 176

Timestamp:

04/08/08 14:10:02

Author:

dan

Message:

Files:

r174	r176
4	4	# Date: 4/7/2008
5	5	# CHanges: Added the ability to turn on the writing of an obsKml file.
6		# The script now wioll take an optional second command line argument with the following values:
	6	# The script now takes 2 optional command line arguments.
	7	# The 2nd command line argument is which file(s) to create. The following values are defined:
7	8	# 0 = default value which only produces the orignal sql files.
8	9	# 1 = Writes only an obsKML file
9	10	# 2 = Writes both the sql files and obsKML file.
	11	# The 3rd command line argument specifies what directory to create the obsKML file in.
	12	# The directory must already exist.
	13	#
10	14	# THis script now uses the obsKMLSubRoutines package to create the obsKML file. For now, make sure this
11	15	# package is in the same directory as this script or in a directory which is in the Perl path.
…	…
71	75	}
72	76	# 3rd command line argument is the path to store the obsKML files.
73		if( @ARGV~~[2]~~ >= 3 )
	77	if( @ARGV >= 3 )
74	78	{
75	79	$strObsKMLFilePath = @ARGV[2];
…	…
177	181
178	182	if ($format_category_value eq 'fixed-point') {
179		fixed_point($this_station_id_top_ts, $FileCreationOption );
	183	#DWR 4/7/2008
	184	# ADded parameters $FileCreationOption and $strObsKMLFilePath.
	185	fixed_point($this_station_id_top_ts, $FileCreationOption, $strObsKMLFilePath );
180	186	}
181	187	elsif ($format_category_value eq 'moving-point-2D') {

r174	r176
7	7	#DWR 4/7/2008
8	8	my $FileCreationOptions = $_[1];
	9	my $strObsKMLFilePath = $_[2];
9	10
10	11	my $bWriteSQLFiles = 1;
…	…
2697	2698	#$strXMLPath = "../sql/$strPlatformID-$strDate.kml";
2698	2699	$strXMLPath = "$strObsKMLFilePath/$strPlatformID-$strDate.kml";
	2700	#print( "$strXMLPath\n" );
2699	2701	obsKMLSubRoutines::BuildKMLFile( \%ObsHash, $strXMLPath );
2700	2702	}