1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
|
#!/usr/bin/perl -Tw
#
# $Id: megapop.pl,v 1.1 1999-04-19 10:32:44 ivan Exp $
#
# this will break when megapop changes the URL or format of their listing page.
# that's stupid. perhaps they can provide a machine-readable listing?
use strict;
use LWP::UserAgent;
use FS::UID qw(adminsuidsetup);
use FS::svc_acct_pop;
my $url = "http://www.megapop.com/location.htm";
my $user = shift or die &usage;
adminsuidsetup($user);
my %state2usps = &state2usps;
$state2usps{'WASHINGTON STATE'} = 'WA'; #megapop's on crack
$state2usps{'CANADA'} = 'CANADA'; #freeside's on crack
my $ua = new LWP::UserAgent;
my $request = new HTTP::Request('GET', $url);
my $response = $ua->request($request);
die $response->error_as_HTML unless $response->is_success;
my $line;
my $usps = '';
foreach $line ( split("\n", $response->content) ) {
if ( $line =~ /\W(\w[\w\s]*\w)\s+LOCATIONS/i ) {
$usps = $state2usps{uc($1)}
or warn "warning: unknown state $1\n";
} elsif ( $line =~ /(\d{3})\-(\d{3})\-(\d{4})\s+(\w[\w\s]*\w)/ ) {
print "$1 $2 $3 $4 $usps\n";
my $svc_acct_pop = new FS::svc_acct_pop ( {
'city' => $4,
'state' => $usps,
'ac' => $1,
'exch' => $2,
} );
my $error = $svc_acct_pop->insert;
die $error if $error;
}
}
sub usage {
die "Usage:\n $0 user\n";
}
sub state2usps{ (
'ALABAMA' => 'AL',
'ALASKA' => 'AK',
'AMERICAN SAMOA' => 'AS',
'ARIZONA' => 'AZ',
'ARKANSAS' => 'AR',
'CALIFORNIA' => 'CA',
'COLORADO' => 'CO',
'CONNECTICUT' => 'CT',
'DELAWARE' => 'DE',
'DISTRICT OF COLUMBIA' => 'DC',
'FEDERATED STATES OF MICRONESIA' => 'FM',
'FLORIDA' => 'FL',
'GEORGIA' => 'GA',
'GUAM' => 'GU',
'HAWAII' => 'HI',
'IDAHO' => 'ID',
'ILLINOIS' => 'IL',
'INDIANA' => 'IN',
'IOWA' => 'IA',
'KANSAS' => 'KS',
'KENTUCKY' => 'KY',
'LOUISIANA' => 'LA',
'MAINE' => 'ME',
'MARSHALL ISLANDS' => 'MH',
'MARYLAND' => 'MD',
'MASSACHUSETTS' => 'MA',
'MICHIGAN' => 'MI',
'MINNESOTA' => 'MN',
'MISSISSIPPI' => 'MS',
'MISSOURI' => 'MO',
'MONTANA' => 'MT',
'NEBRASKA' => 'NE',
'NEVADA' => 'NV',
'NEW HAMPSHIRE' => 'NH',
'NEW JERSEY' => 'NJ',
'NEW MEXICO' => 'NM',
'NEW YORK' => 'NY',
'NORTH CAROLINA' => 'NC',
'NORTH DAKOTA' => 'ND',
'NORTHERN MARIANA ISLANDS' => 'MP',
'OHIO' => 'OH',
'OKLAHOMA' => 'OK',
'OREGON' => 'OR',
'PALAU' => 'PW',
'PENNSYLVANIA' => 'PA',
'PUERTO RICO' => 'PR',
'RHODE ISLAND' => 'RI',
'SOUTH CAROLINA' => 'SC',
'SOUTH DAKOTA' => 'SD',
'TENNESSEE' => 'TN',
'TEXAS' => 'TX',
'UTAH' => 'UT',
'VERMONT' => 'VT',
'VIRGIN ISLANDS' => 'VI',
'VIRGINIA' => 'VA',
'WASHINGTON' => 'WA',
'WEST VIRGINIA' => 'WV',
'WISCONSIN' => 'WI',
'WYOMING' => 'WY',
'ARMED FORCES AFRICA' => 'AE',
'ARMED FORCES AMERICAS' => 'AA',
'ARMED FORCES CANADA' => 'AE',
'ARMED FORCES EUROPE' => 'AE',
'ARMED FORCES MIDDLE EAST' => 'AE',
'ARMED FORCES PACIFIC' => 'AP',
) }
|
