--- OpenGuides.pm	2005-11-19 20:36:40.000000000 -0500
+++ OpenGuides-local.pm	2005-11-20 11:08:35.000000000 -0500
@@ -9,6 +9,7 @@
 use OpenGuides::Template;
 use OpenGuides::Utils;
 use Time::Piece;
+use LWP::Simple;
 use URI::Escape;
 
 use vars qw( $VERSION );
@@ -736,6 +701,15 @@
     $metadata{longitude} = delete $metadata{longitude_unmunged}
         if $metadata{longitude_unmunged};
 
+    if ($metadata{address} and $metadata{city} and !$metadata{longitude} and !$metadata{latitude}) {
+       my $where = "$metadata{address}, $metadata{city}, ".$config->default_state; 
+       my $addr = uri_escape($where);
+       my @result = get("http://rpc.geocoder.us/service/csv?address=$addr" );
+       my $result = "@result";
+       my ($lat, $long, @rest) = split(",", $result);
+       $metadata{latitude} = $lat;
+       $metadata{longitude} = $long;
+    }
     # Check to make sure all the indexable nodes are created
     foreach my $type (qw(Category Locale)) {
         my $lctype = lc($type);