line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
# |
2
|
|
|
|
|
|
|
# $Date: 2008-01-05 12:12:42 $ |
3
|
|
|
|
|
|
|
# |
4
|
|
|
|
|
|
|
# Copyright (c) 2007-2008 Alexandre Aufrere |
5
|
|
|
|
|
|
|
# Licensed under the terms of the GPL (see perldoc MRIM.pm) |
6
|
|
|
|
|
|
|
# |
7
|
|
|
|
|
|
|
|
8
|
1
|
|
|
1
|
|
6249
|
use 5.008; |
|
1
|
|
|
|
|
4
|
|
|
1
|
|
|
|
|
32
|
|
9
|
1
|
|
|
1
|
|
5
|
use strict; |
|
1
|
|
|
|
|
1
|
|
|
1
|
|
|
|
|
48
|
|
10
|
|
|
|
|
|
|
|
11
|
|
|
|
|
|
|
package Net::MRIM::Data; |
12
|
|
|
|
|
|
|
|
13
|
|
|
|
|
|
|
=pod |
14
|
|
|
|
|
|
|
|
15
|
|
|
|
|
|
|
=head1 NAME |
16
|
|
|
|
|
|
|
|
17
|
|
|
|
|
|
|
Net::MRIM::Data - Optional data for MRIM Protocol |
18
|
|
|
|
|
|
|
|
19
|
|
|
|
|
|
|
=head1 DESCRIPTION |
20
|
|
|
|
|
|
|
|
21
|
|
|
|
|
|
|
Contains country codes from http://agent.mail.ru/region.txt |
22
|
|
|
|
|
|
|
|
23
|
|
|
|
|
|
|
=head1 AUTHOR |
24
|
|
|
|
|
|
|
|
25
|
|
|
|
|
|
|
Alexandre Aufrere |
26
|
|
|
|
|
|
|
|
27
|
|
|
|
|
|
|
=head1 COPYRIGHT |
28
|
|
|
|
|
|
|
|
29
|
|
|
|
|
|
|
Copyright (c) 2007-2008 Alexandre Aufrere. This code may be used under the terms of the GPL version 2 (see at http://www.gnu.org/licenses/old-licenses/gpl-2.0.html). The protocol remains the property of Mail.Ru (see at http://www.mail.ru). |
30
|
|
|
|
|
|
|
|
31
|
|
|
|
|
|
|
=cut |
32
|
|
|
|
|
|
|
|
33
|
1
|
|
|
1
|
|
872
|
use utf8; |
|
1
|
|
|
|
|
9
|
|
|
1
|
|
|
|
|
4
|
|
34
|
|
|
|
|
|
|
|
35
|
|
|
|
|
|
|
our %COUNTRIES= ( |
36
|
|
|
|
|
|
|
'Россия'=>'24', |
37
|
|
|
|
|
|
|
'Россия,Дальневосточный ФО'=>'24', |
38
|
|
|
|
|
|
|
'Азия,Азербайджан'=>'81', |
39
|
|
|
|
|
|
|
'Азия,Армения'=>'82', |
40
|
|
|
|
|
|
|
'Азия,Афганистан'=>'97', |
41
|
|
|
|
|
|
|
'Азия,Бангладеш'=>'96', |
42
|
|
|
|
|
|
|
'Азия,Бахрейн'=>'99', |
43
|
|
|
|
|
|
|
'Азия,Бруней-Даруссалам'=>'100', |
44
|
|
|
|
|
|
|
'Азия,Бутан'=>'101', |
45
|
|
|
|
|
|
|
'Азия,Вьетнам'=>'102', |
46
|
|
|
|
|
|
|
'Азия,Грузия'=>'83', |
47
|
|
|
|
|
|
|
'Азия,Израиль'=>'86', |
48
|
|
|
|
|
|
|
'Азия,Индия'=>'95', |
49
|
|
|
|
|
|
|
'Азия,Индонезия'=>'103', |
50
|
|
|
|
|
|
|
'Азия,Иордания'=>'79', |
51
|
|
|
|
|
|
|
'Азия,Ирак'=>'85', |
52
|
|
|
|
|
|
|
'Азия,Иран'=>'87', |
53
|
|
|
|
|
|
|
'Азия,Йемен'=>'104', |
54
|
|
|
|
|
|
|
'Азия,Казахстан'=>'84', |
55
|
|
|
|
|
|
|
'Азия,Камбоджа'=>'105', |
56
|
|
|
|
|
|
|
'Азия,Катар'=>'106', |
57
|
|
|
|
|
|
|
'Азия,Кипр'=>'107', |
58
|
|
|
|
|
|
|
'Азия,Киргизия (Кыргызстан)'=>'92', |
59
|
|
|
|
|
|
|
'Азия,Китай'=>'76', |
60
|
|
|
|
|
|
|
'Азия,Кокосовые острова (Австр.)'=>'3215', |
61
|
|
|
|
|
|
|
'Азия,Корея (КНДР)'=>'29', |
62
|
|
|
|
|
|
|
'Азия,Корея, Республика'=>'108', |
63
|
|
|
|
|
|
|
'Азия,Кувейт'=>'88', |
64
|
|
|
|
|
|
|
'Азия,Лаос'=>'109', |
65
|
|
|
|
|
|
|
'Азия,Ливан'=>'110', |
66
|
|
|
|
|
|
|
'Азия,Малайзия'=>'111', |
67
|
|
|
|
|
|
|
'Азия,Мальдивы'=>'112', |
68
|
|
|
|
|
|
|
'Азия,Монголия'=>'113', |
69
|
|
|
|
|
|
|
'Азия,Мьянма'=>'114', |
70
|
|
|
|
|
|
|
'Азия,Непал'=>'115', |
71
|
|
|
|
|
|
|
'Азия,Объединенные Арабские Эмираты'=>'116', |
72
|
|
|
|
|
|
|
'Азия,Оман'=>'117', |
73
|
|
|
|
|
|
|
'Азия,Остров Рождества (Австр.)'=>'3216', |
74
|
|
|
|
|
|
|
'Азия,Пакистан'=>'122', |
75
|
|
|
|
|
|
|
'Азия,Палестина'=>'89', |
76
|
|
|
|
|
|
|
'Азия,Саудовская Аравия'=>'94', |
77
|
|
|
|
|
|
|
'Азия,Сингапур'=>'118', |
78
|
|
|
|
|
|
|
'Азия,Сирия'=>'78', |
79
|
|
|
|
|
|
|
'Азия,Таджикистан'=>'91', |
80
|
|
|
|
|
|
|
'Азия,Таиланд'=>'119', |
81
|
|
|
|
|
|
|
'Азия,Тайвань'=>'120', |
82
|
|
|
|
|
|
|
'Азия,Тимор'=>'132', |
83
|
|
|
|
|
|
|
'Азия,Туркмения'=>'90', |
84
|
|
|
|
|
|
|
'Азия,Турция'=>'77', |
85
|
|
|
|
|
|
|
'Азия,Узбекистан'=>'93', |
86
|
|
|
|
|
|
|
'Азия,Филиппины'=>'121', |
87
|
|
|
|
|
|
|
'Азия,Шри Ланка'=>'98', |
88
|
|
|
|
|
|
|
'Азия,Япония'=>'75', |
89
|
|
|
|
|
|
|
'Австралия и Океания,Австралия'=>'123', |
90
|
|
|
|
|
|
|
'Австралия и Океания,Американское Самоа'=>'454', |
91
|
|
|
|
|
|
|
'Австралия и Океания,Вануату'=>'124', |
92
|
|
|
|
|
|
|
'Австралия и Океания,Гуам (США)'=>'453', |
93
|
|
|
|
|
|
|
'Австралия и Океания,Кирибати'=>'126', |
94
|
|
|
|
|
|
|
'Австралия и Океания,Маршалловы Острова'=>'127', |
95
|
|
|
|
|
|
|
'Австралия и Океания,Микронезия (Федеративные Штаты Микронезии)'=>'128', |
96
|
|
|
|
|
|
|
'Австралия и Океания,Науру'=>'129', |
97
|
|
|
|
|
|
|
'Австралия и Океания,Ниуэ (Н.Зел.)'=>'3220', |
98
|
|
|
|
|
|
|
'Австралия и Океания,Новая Зеландия'=>'130', |
99
|
|
|
|
|
|
|
'Австралия и Океания,Новая Каледония (Фр.)'=>'3218', |
100
|
|
|
|
|
|
|
'Австралия и Океания,Острова Кука (Н.Зел.)'=>'3221', |
101
|
|
|
|
|
|
|
'Австралия и Океания,Острова Херд и Макдональд (Австр.)'=>'3230', |
102
|
|
|
|
|
|
|
'Австралия и Океания,Палау'=>'131', |
103
|
|
|
|
|
|
|
'Австралия и Океания,Папуа - Новая Гвинея'=>'133', |
104
|
|
|
|
|
|
|
'Австралия и Океания,Питкерн (Брит.)'=>'3222', |
105
|
|
|
|
|
|
|
'Австралия и Океания,Самоа'=>'125', |
106
|
|
|
|
|
|
|
'Австралия и Океания,Сев. Марианские острова (США)'=>'3219', |
107
|
|
|
|
|
|
|
'Австралия и Океания,Соломоновы Острова'=>'134', |
108
|
|
|
|
|
|
|
'Австралия и Океания,Токелау (Н.Зел.)'=>'3223', |
109
|
|
|
|
|
|
|
'Австралия и Океания,Тонга'=>'135', |
110
|
|
|
|
|
|
|
'Австралия и Океания,Тувалу'=>'136', |
111
|
|
|
|
|
|
|
'Австралия и Океания,Уоллис и Футуна острова (Фр.)'=>'3224', |
112
|
|
|
|
|
|
|
'Австралия и Океания,Фиджи'=>'137', |
113
|
|
|
|
|
|
|
'Австралия и Океания,Французская Полинезия'=>'3226', |
114
|
|
|
|
|
|
|
'Австралия и Океания,Французские Южные территории'=>'3225', |
115
|
|
|
|
|
|
|
'Америка,Канада'=>'138', |
116
|
|
|
|
|
|
|
'Америка,США'=>'139', |
117
|
|
|
|
|
|
|
'Америка,Ангилья (Брит.)'=>'3200', |
118
|
|
|
|
|
|
|
'Америка,Антигуа и Барбуда'=>'140', |
119
|
|
|
|
|
|
|
'Америка,Аргентина'=>'141', |
120
|
|
|
|
|
|
|
'Америка,Аруба (Нид.)'=>'3202', |
121
|
|
|
|
|
|
|
'Америка,Багамы'=>'142', |
122
|
|
|
|
|
|
|
'Америка,Барбадос'=>'143', |
123
|
|
|
|
|
|
|
'Америка,Белиз'=>'146', |
124
|
|
|
|
|
|
|
'Америка,Бермуды (Брит.)'=>'3203', |
125
|
|
|
|
|
|
|
'Америка,Боливия'=>'144', |
126
|
|
|
|
|
|
|
'Америка,Бразилия'=>'145', |
127
|
|
|
|
|
|
|
'Америка,Венесуэла'=>'147', |
128
|
|
|
|
|
|
|
'Америка,Виргинские острова (Брит.)'=>'3204', |
129
|
|
|
|
|
|
|
'Америка,Виргинские острова (США)'=>'452', |
130
|
|
|
|
|
|
|
'Америка,Гаити'=>'149', |
131
|
|
|
|
|
|
|
'Америка,Гайана'=>'148', |
132
|
|
|
|
|
|
|
'Америка,Гваделупа (Фр.)'=>'3205', |
133
|
|
|
|
|
|
|
'Америка,Гватемала'=>'173', |
134
|
|
|
|
|
|
|
'Америка,Гондурас'=>'150', |
135
|
|
|
|
|
|
|
'Америка,Гренада'=>'151', |
136
|
|
|
|
|
|
|
'Америка,Гренландия (Дат.)'=>'152', |
137
|
|
|
|
|
|
|
'Америка,Доминика'=>'153', |
138
|
|
|
|
|
|
|
'Америка,Доминиканская Республика'=>'154', |
139
|
|
|
|
|
|
|
'Америка,Колумбия'=>'155', |
140
|
|
|
|
|
|
|
'Америка,Коста-Рика'=>'156', |
141
|
|
|
|
|
|
|
'Америка,Куба'=>'157', |
142
|
|
|
|
|
|
|
'Америка,Мартиника (Фр.)'=>'3208', |
143
|
|
|
|
|
|
|
'Америка,Мексика'=>'158', |
144
|
|
|
|
|
|
|
'Америка,Монтсеррат (Брит)'=>'3209', |
145
|
|
|
|
|
|
|
'Америка,Нидерландские Антилы'=>'3201', |
146
|
|
|
|
|
|
|
'Америка,Никарагуа'=>'159', |
147
|
|
|
|
|
|
|
'Америка,Остров Кайман (Брит.)'=>'3207', |
148
|
|
|
|
|
|
|
'Америка,Острова Теркс и Кайкос (Брит.)'=>'3211', |
149
|
|
|
|
|
|
|
'Америка,Панама'=>'160', |
150
|
|
|
|
|
|
|
'Америка,Парагвай'=>'161', |
151
|
|
|
|
|
|
|
'Америка,Перу'=>'162', |
152
|
|
|
|
|
|
|
'Америка,Сальвадор'=>'163', |
153
|
|
|
|
|
|
|
'Америка,Сент-Винсент и Гренадины'=>'164', |
154
|
|
|
|
|
|
|
'Америка,Сент-Китс и Невис'=>'165', |
155
|
|
|
|
|
|
|
'Америка,Сент-Люсия'=>'166', |
156
|
|
|
|
|
|
|
'Америка,Сент-Пьер и Микелон (Фр.)'=>'3210', |
157
|
|
|
|
|
|
|
'Америка,Суринам'=>'167', |
158
|
|
|
|
|
|
|
'Америка,Тринидат и Тобаго'=>'168', |
159
|
|
|
|
|
|
|
'Америка,Уругвай'=>'169', |
160
|
|
|
|
|
|
|
'Америка,Фолклендские острова (Брит.)'=>'3212', |
161
|
|
|
|
|
|
|
'Америка,Французская Гвиана'=>'3206', |
162
|
|
|
|
|
|
|
'Америка,Чили'=>'170', |
163
|
|
|
|
|
|
|
'Америка,Эквадор'=>'171', |
164
|
|
|
|
|
|
|
'Америка,Юж. Джорджия и Юж. Сандвичевы о-ва (Брит.)'=>'3213', |
165
|
|
|
|
|
|
|
'Америка,Ямайка'=>'172', |
166
|
|
|
|
|
|
|
'Африка,Алжир'=>'174', |
167
|
|
|
|
|
|
|
'Африка,Ангола'=>'175', |
168
|
|
|
|
|
|
|
'Африка,Бенин'=>'176', |
169
|
|
|
|
|
|
|
'Африка,Ботсвана'=>'177', |
170
|
|
|
|
|
|
|
'Африка,Британская территория в Индийском океане'=>'3228', |
171
|
|
|
|
|
|
|
'Африка,Буркина-Фасо'=>'178', |
172
|
|
|
|
|
|
|
'Африка,Бурунди'=>'179', |
173
|
|
|
|
|
|
|
'Африка,Габон'=>'180', |
174
|
|
|
|
|
|
|
'Африка,Гамбия'=>'181', |
175
|
|
|
|
|
|
|
'Африка,Гана'=>'182', |
176
|
|
|
|
|
|
|
'Африка,Гвинея'=>'183', |
177
|
|
|
|
|
|
|
'Африка,Гвинея-Бисау'=>'184', |
178
|
|
|
|
|
|
|
'Африка,Джибути'=>'185', |
179
|
|
|
|
|
|
|
'Африка,Египет'=>'186', |
180
|
|
|
|
|
|
|
'Африка,Замбия'=>'187', |
181
|
|
|
|
|
|
|
'Африка,Зап. Сахара'=>'3198', |
182
|
|
|
|
|
|
|
'Африка,Зимбабве'=>'23', |
183
|
|
|
|
|
|
|
'Африка,Кабо-Верде'=>'188', |
184
|
|
|
|
|
|
|
'Африка,Камерун'=>'189', |
185
|
|
|
|
|
|
|
'Африка,Кения'=>'190', |
186
|
|
|
|
|
|
|
'Африка,Коморы'=>'191', |
187
|
|
|
|
|
|
|
'Африка,Конго (Заир)'=>'193', |
188
|
|
|
|
|
|
|
'Африка,Конго, Республика'=>'192', |
189
|
|
|
|
|
|
|
'Африка,Кот-д`Ивуар'=>'194', |
190
|
|
|
|
|
|
|
'Африка,Лесото'=>'195', |
191
|
|
|
|
|
|
|
'Африка,Либерия'=>'196', |
192
|
|
|
|
|
|
|
'Африка,Ливия'=>'197', |
193
|
|
|
|
|
|
|
'Африка,Маврикий'=>'198', |
194
|
|
|
|
|
|
|
'Африка,Мавритания'=>'199', |
195
|
|
|
|
|
|
|
'Африка,Мадагаскар'=>'200', |
196
|
|
|
|
|
|
|
'Африка,Майотт (Фр.)'=>'3229', |
197
|
|
|
|
|
|
|
'Африка,Малави'=>'201', |
198
|
|
|
|
|
|
|
'Африка,Мали'=>'202', |
199
|
|
|
|
|
|
|
'Африка,Марокко'=>'203', |
200
|
|
|
|
|
|
|
'Африка,Мозамбик'=>'204', |
201
|
|
|
|
|
|
|
'Африка,Намибия'=>'205', |
202
|
|
|
|
|
|
|
'Африка,Нигер'=>'206', |
203
|
|
|
|
|
|
|
'Африка,Нигерия'=>'207', |
204
|
|
|
|
|
|
|
'Африка,Остров Буве (Норв.)'=>'3227', |
205
|
|
|
|
|
|
|
'Африка,Реюньон (Фр.)'=>'3197', |
206
|
|
|
|
|
|
|
'Африка,Руанда'=>'208', |
207
|
|
|
|
|
|
|
'Африка,Сан-Томе и Принсипи'=>'209', |
208
|
|
|
|
|
|
|
'Африка,Свазиленд'=>'210', |
209
|
|
|
|
|
|
|
'Африка,Святая Елена (Брит.)'=>'3199', |
210
|
|
|
|
|
|
|
'Африка,Сейшелы'=>'211', |
211
|
|
|
|
|
|
|
'Африка,Сенегал'=>'212', |
212
|
|
|
|
|
|
|
'Африка,Сомали'=>'213', |
213
|
|
|
|
|
|
|
'Африка,Судан'=>'214', |
214
|
|
|
|
|
|
|
'Африка,Сьерра-Леоне'=>'215', |
215
|
|
|
|
|
|
|
'Африка,Танзания'=>'216', |
216
|
|
|
|
|
|
|
'Африка,Того'=>'217', |
217
|
|
|
|
|
|
|
'Африка,Тунис'=>'218', |
218
|
|
|
|
|
|
|
'Африка,Уганда'=>'219', |
219
|
|
|
|
|
|
|
'Африка,Центральноафриканская Республика'=>'220', |
220
|
|
|
|
|
|
|
'Африка,Чад'=>'222', |
221
|
|
|
|
|
|
|
'Африка,Экваториальная Гвинея'=>'223', |
222
|
|
|
|
|
|
|
'Африка,Эритрея'=>'221', |
223
|
|
|
|
|
|
|
'Африка,Эфиопия'=>'224', |
224
|
|
|
|
|
|
|
'Африка,Южно-Африканская Республика (ЮАР)'=>'225', |
225
|
|
|
|
|
|
|
'Европа,Украина'=>'39', |
226
|
|
|
|
|
|
|
'Европа,Австрия'=>'40', |
227
|
|
|
|
|
|
|
'Европа,Албания'=>'32', |
228
|
|
|
|
|
|
|
'Европа,Андорра'=>'33', |
229
|
|
|
|
|
|
|
'Европа,Белоруссия'=>'340', |
230
|
|
|
|
|
|
|
'Европа,Бельгия'=>'38', |
231
|
|
|
|
|
|
|
'Европа,Болгария'=>'41', |
232
|
|
|
|
|
|
|
'Европа,Босния и Герцеговина'=>'42', |
233
|
|
|
|
|
|
|
'Европа,Ватикан'=>'43', |
234
|
|
|
|
|
|
|
'Европа,Великобритания'=>'45', |
235
|
|
|
|
|
|
|
'Европа,Венгрия'=>'44', |
236
|
|
|
|
|
|
|
'Европа,Германия'=>'46', |
237
|
|
|
|
|
|
|
'Европа,Гернси (Брит.)'=>'3193', |
238
|
|
|
|
|
|
|
'Европа,Гибралтар (Брит.)'=>'47', |
239
|
|
|
|
|
|
|
'Европа,Греция'=>'48', |
240
|
|
|
|
|
|
|
'Европа,Дания'=>'49', |
241
|
|
|
|
|
|
|
'Европа,Джерси (Брит.)'=>'3194', |
242
|
|
|
|
|
|
|
'Европа,Ирландия'=>'50', |
243
|
|
|
|
|
|
|
'Европа,Исландия'=>'51', |
244
|
|
|
|
|
|
|
'Европа,Испания'=>'34', |
245
|
|
|
|
|
|
|
'Европа,Италия'=>'52', |
246
|
|
|
|
|
|
|
'Европа,Латвия'=>'53', |
247
|
|
|
|
|
|
|
'Европа,Литва'=>'54', |
248
|
|
|
|
|
|
|
'Европа,Лихтенштейн'=>'55', |
249
|
|
|
|
|
|
|
'Европа,Люксембург'=>'56', |
250
|
|
|
|
|
|
|
'Европа,Македония'=>'57', |
251
|
|
|
|
|
|
|
'Европа,Мальта'=>'58', |
252
|
|
|
|
|
|
|
'Европа,Молдавия'=>'59', |
253
|
|
|
|
|
|
|
'Европа,Монако'=>'36', |
254
|
|
|
|
|
|
|
'Европа,Нидерланды'=>'60', |
255
|
|
|
|
|
|
|
'Европа,Норвегия'=>'61', |
256
|
|
|
|
|
|
|
'Европа,Остров Мэн (Брит.)'=>'3195', |
257
|
|
|
|
|
|
|
'Европа,Польша'=>'62', |
258
|
|
|
|
|
|
|
'Европа,Португалия'=>'35', |
259
|
|
|
|
|
|
|
'Европа,Румыния'=>'63', |
260
|
|
|
|
|
|
|
'Европа,Сан-Марино'=>'64', |
261
|
|
|
|
|
|
|
'Европа,Сербия и Черногория'=>'74', |
262
|
|
|
|
|
|
|
'Европа,Словакия'=>'65', |
263
|
|
|
|
|
|
|
'Европа,Словения'=>'66', |
264
|
|
|
|
|
|
|
'Европа,Фарерские о-ва (Дания)'=>'67', |
265
|
|
|
|
|
|
|
'Европа,Финляндия'=>'68', |
266
|
|
|
|
|
|
|
'Европа,Франция'=>'37', |
267
|
|
|
|
|
|
|
'Европа,Хорватия'=>'69', |
268
|
|
|
|
|
|
|
'Европа,Чехия'=>'70', |
269
|
|
|
|
|
|
|
'Европа,Швейцария'=>'71', |
270
|
|
|
|
|
|
|
'Европа,Швеция'=>'72', |
271
|
|
|
|
|
|
|
'Европа,Шпицберген (Норв.)'=>'3196', |
272
|
|
|
|
|
|
|
'Европа,Эстония'=>'73' |
273
|
|
|
|
|
|
|
); |
274
|
|
|
|
|
|
|
|
275
|
|
|
|
|
|
|
1; |