Changeset 606 for trunk


Ignore:
Timestamp:
Dec 14, 2007, 12:28:06 PM (12 years ago)
Author:
Dominic Hargreaves
Message:

add command line options

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/npemap.org.uk/scripts/process-problems

    r478 r606  
    55
    66use FindBin;
     7use AppConfig;
    78
    89# Find our private perl libraries
    910use lib "$FindBin::Bin/../perllib";
    1011use NPEMap;
     12
     13my $config =  AppConfig->new(
     14    {   GLOBAL => {
     15            ARGCOUNT => ARGCOUNT_ONE,
     16            EXPAND   => EXPAND_ALL
     17        }
     18    },
     19    'sameonly|s!',
     20}
     21
     22$config->args;
    1123
    1224# Optionally, limit by the postcode ID
     
    1628        $postcode_where = " AND p.id = $postcode_id ";
    1729}
     30
     31$postcode_where .= " AND prob_ip = sub_ip " if $config->sameonly;
    1832
    1933# Get the postcodes
Note: See TracChangeset for help on using the changeset viewer.