Changeset 673

Timestamp:

Dec 29, 2008, 11:50:49 AM (12 years ago)

Author:

sheldon

Message:

Handle error with postcode and output message to stderr rather than truncating the output

File:

• trunk/npemap.org.uk/scripts/exporter/export.pl (modified) (3 diffs)

trunk/npemap.org.uk/scripts/exporter/export.pl

@@ -37 +37 @@
 #   -npeonly
 #       Only export NPE sourced postcodes, averaged if several for a postcode
+#   -postboxonly
+#       Only export dracos postbox data
 #   -all
 #       Outputs all postcodes, averaged if several for a postcode, along
@@ -91 +93 @@
         }
         
-        # Generate lat+long
-        my ($lat,$long) = eastingNorthingToLatLong($e,$n,$grid);
-        # Generate 2+6 NGR
-        my $ngr = eastingNorthingToNGR($e,$n,$grid);
-
-        # Make e+n look nicer
-        $e =~ s/^(\d+)\.\d+$/$1/;
-        $n =~ s/^(\-?\d+)\.\d+$/$1/;
-
-        # Make lat+long look nicer
-        $lat = sprintf("%0.6f", $lat);
-        $long = sprintf("%0.6f", $long);
-
-        # Make Source Nicer
-        $source =~ s/^\{//;
-        $source =~ s/\}$//;
-        $source =~ s/\"//g;
-        $source =~ s/,/;/g;
-
-        print "$outer,$inner,$e,$n,$lat,$long,$ngr,$grid,$source\n";
+        eval {
+                # Generate lat+long
+                my ($lat,$long) = eastingNorthingToLatLong($e,$n,$grid);
+                # Generate 2+6 NGR
+                my $ngr = eastingNorthingToNGR($e,$n,$grid);
+
+                # Make e+n look nicer
+                $e =~ s/^(\d+)\.\d+$/$1/;
+                $n =~ s/^(\-?\d+)\.\d+$/$1/;
+
+                # Make lat+long look nicer
+                $lat = sprintf("%0.6f", $lat);
+                $long = sprintf("%0.6f", $long);
+
+                # Make Source Nicer
+                $source =~ s/^\{//;
+                $source =~ s/\}$//;
+                $source =~ s/\"//g;
+                $source =~ s/,/;/g;
+
+                print "$outer,$inner,$e,$n,$lat,$long,$ngr,$grid,$source\n";
+        };
+        if ($@) {
+           print STDERR "Error processing $outer $inner\n";
+        };
 }
 
@@ -131 +138 @@
                 } elsif($mode eq "-postboxonly") {
                         $source = getSource("Dracos.co.uk Postbox Importer", $conn);
-                } elsif($mode eq "-npeonly") {
+                } else {
                         $source = getSource("NPE Postcode web submission", $conn);
                 }