Changeset 197

Timestamp:

04/28/08 15:56:03

Author:

dan

Message:

Fixed date issue.

Files:

• obskml/trunk/General/ObsKMLToGeoRSS.pl (modified) (3 diffs)

obskml/trunk/General/ObsKMLToGeoRSS.pl

@@ -7 +7 @@
-use constant MICROSOFT_PLATFORM => 0;
-use constant USE_DEBUG_PRINTS => 1;
+
+my $strEmail = 'dan@inlet.geol.sc.edu (Dan Ramage)';
+#use $strRSSXML = "<?xml version="1.0" encoding="UTF-8"?>\n
-
-my %CommandLineOptions;
@@ -184 +187 @@
-    $strRow = '<channel>';
-    print( $GeoRSSFile  $strRow."\n" );
-
-
-
-
-
-
-
-
-
-
+
+
-    my $strRFCDate = $datetime;
-    $strRFCDate =~ s/Z//;
+    $strRFCDate =~ s/T/ /;
-    if( !MICROSOFT_PLATFORM )
-    {
+      #Convert the DB date into RFC822 as per the RSS spec.
-      $strRFCDate = `date --date=\"$strRFCDate\" -R`;
-
-
-
+
+
+
+
+
+
-      $strRFCDate = `\\UnixUtils\\usr\\local\\wbin\\date.exe --date=\"$strRFCDate\" -R`;
+      #Get the current RFC822 date to use as channel publication date.
+      $strChannelDate = `\\UnixUtils\\usr\\local\\wbin\\date.exe -R`;
-    }
-    chomp( $strRFCDate );
+    chomp( $strChannelDate );
+    
+    $strRow = "<title>$platform_id latest observations</title>\n<description>Latest observation data</description>\n<pubDate>$strChannelDate</pubDate>\n<webMaster>$strEmail</webMaster>\n";
+    print( $GeoRSSFile  $strRow );
+    
+    #We must have a valid link to add the tag.
+    if( length( $platform_url ) > 0 )
+    {
+      $strRow = "<link>$platform_url</link>\n";
+    }
+    else
+    {
+      #We MUST have a link for the georss, so if the obsKML file didn't have one, we dummy something up for now.
+      $strRow = "<link>http://$platform_id</link>\n";
+    }
+    print( $GeoRSSFile  $strRow );
+  
+    #######################################################################################################################################
+    # The <item> children begin here.
+    $strRow = '<item>';
+    print( $GeoRSSFile  $strRow."\n" );
+    
+    $strRow = "<title>$platform_id Latest observations</title>";
+    print( $GeoRSSFile  $strRow."\n" );
+
-    $strRow = "<pubDate>$strRFCDate</pubDate>";
-    print( $GeoRSSFile  $strRow."\n" );
-    
-
+
+
+
+
+
+
+
+
+
+
+
+
+
-    print( $GeoRSSFile  $strRow."\n" );
-
@@ -223 +262 @@
-      my $data_url          = sprintf("%s",$observation->find('dataURL'));
-      #Create the row. we use html table formatting to help present the data in a more readable fashion. 
-
+
+
-    } #obs
-    #We use the ![CDATA]] directive to tell teh parser not to mess with the contents so we can take advantage of the HTML table