Changeset Navigation

Changeset 174

Timestamp:

04/08/08 13:10:33

Author:

dan

Message:

Files:

r173	r174
58	58	#Optional file creation arguments
59	59	my $FileCreationOption = 0;
	60	my $strObsKMLFilePath;
60	61	if( @ARGV > 1 )
61	62	{
62		if( @ARGV[1] >= DEFAULTWRITESQLONLY && @ARGV[1] <= WRITEBOTH )
63		{
	63	$strObsKMLFilePath = './';
	64	if( @ARGV[1] >= DEFAULTWRITESQLONLY && @ARGV[1] <= WRITEBOTH )
	65	{
64	66	$FileCreationOption = @ARGV[1];
65		}
66		else
67		{
	67	}
	68	else
	69	{
68	70	print( "ERROR: Command line argument 2: @ARGV[1] not valid\n. Valid values are: 0 Write only SQL files\n 1: Write only obsKML file\n or 2: Write both SQL files and obsKML file.\nDefault value will be 0.\n" );
69		}
70
	71	}
	72	# 3rd command line argument is the path to store the obsKML files.
	73	if( @ARGV[2] >= 3 )
	74	{
	75	$strObsKMLFilePath = @ARGV[2];
	76	}
71	77	}
72	78	#

r172	r174
2695	2695	my $strDate = `date +%Y-%m-%dT%H-%M-%S`;
2696	2696	chomp( $strDate );
2697		$strXMLPath = "../sql/$strPlatformID-$strDate.kml";
	2697	#$strXMLPath = "../sql/$strPlatformID-$strDate.kml";
	2698	$strXMLPath = "$strObsKMLFilePath/$strPlatformID-$strDate.kml";
2698	2699	obsKMLSubRoutines::BuildKMLFile( \%ObsHash, $strXMLPath );
2699	2700	}