#!/usr/bin/perl #open F, "/usr/bin/lynx -dump http://www.eecis.udel.edu/~mills/ntp/clock1a.html|"; open(my $G, "/usr/bin/lynx -dump http://www.eecis.udel.edu/~mills/ntp/clock2a.html|"); # Chris Kloiber writes: # > It's not considered polite to use the Stratum 1 servers for purposes that # > are not absolutely critical. I would use Stratum 2 servers and live with # > the few nanoseconds difference. #parse() while ; parse($_) while <$G>; my @all; my ($l, $nb); sub parse { local ($_) = @_; /Active Servers/ .. /Discontinued Service/ or return; if (/^\s+\d+\. ([A-Z ]*[A-Z]);?\s+([.\w-]+)/) { push @all, $l = { name => $2, indic => $1 }; $nb = 0; } else { s/^\s*//; s/\s*$//; my ($field, $val) = /^(.*):\s*(.*)/; if ($field =~ /policy/i) { $field = "policy"; $val = lc join(' ', split(' ', $val)); $val =~ s/glad to receive a note//; $val =~ s/(but )?please send (a )?message to notify//; $val =~ s/an email note is appreciated//; $val =~ s/please send a message with the//; $val =~ s/no need to notify//; $val =~ s/[(), .;]*$//; $val = "open access" if $val eq "public"; warn "$val ($all[-1]{name})\n" if $val ne 'open access'; } elsif ($field =~ /^Contact|Synchroni[sz]ation|Location|Geographic\s+Coordinates|Service\s+Area|Note$/i) { } else { # warn "bad line ($field) $_\n"; return; } $l->{$field} .= ($l->{$field} && ' ') . $val; } $nb++; } use Data::Dumper; #warn Dumper(\@all); foreach (grep { $_->{policy} eq 'open access' } @all) { my ($country, $state) = split ' ', $_->{indic}; $country = ucfirst(lc $country_codes{$country}); $country .= " $state" if $state; printf "\t'%s' => '%s',\n", lc($_->{name}), $country; } BEGIN { %country_codes = ( # from ftp://ftp.ripe.net/iso3166-countrycodes "AF", "AFGHANISTAN", "AL", "ALBANIA", "DZ", "ALGERIA", "AS", "AMERICAN SAMOA", "AD", "ANDORRA", "AO", "ANGOLA", "AI", "ANGUILLA", "AQ", "ANTARCTICA", "AG", "ANTIGUA AND BARBUDA", "AR", "ARGENTINA", "AM", "ARMENIA", "AW", "ARUBA", "AU", "AUSTRALIA", "AT", "AUSTRIA", "AZ", "AZERBAIJAN", "BS", "BAHAMAS", "BH", "BAHRAIN", "BD", "BANGLADESH", "BB", "BARBADOS", "BY", "BELARUS", "BE", "BELGIUM", "BZ", "BELIZE", "BJ", "BENIN", "BM", "BERMUDA", "BT", "BHUTAN", "BO", "BOLIVIA", "BA", "BOSNIA AND HERZEGOWINA", "BW", "BOTSWANA", "BV", "BOUVET ISLAND", "BR", "BRAZIL", "IO", "BRITISH INDIAN OCEAN TERRITORY", "BN", "BRUNEI DARUSSALAM", "BG", "BULGARIA", "BF", "BURKINA FASO", "BI", "BURUNDI", "KH", "CAMBODIA", "CM", "CAMEROON", "CA", "CANADA", "CV", "CAPE VERDE", "KY", "CAYMAN ISLANDS", "CF", "CENTRAL AFRICAN REPUBLIC", "TD", "CHAD", "CL", "CHILE", "CN", "CHINA", "CX", "CHRISTMAS ISLAND", "CC", "COCOS (KEELING) ISLANDS", "CO", "COLOMBIA", "KM", "COMOROS", "CG", "CONGO", "CD", "CONGO, THE DEMOCRATIC REPUBLIC OF THE", "CK", "COOK ISLANDS", "CR", "COSTA RICA", "CI", "COTE D'IVOIRE", "HR", "CROATIA", "CU", "CUBA", "CY", "CYPRUS", "CZ", "CZECH REPUBLIC", "DK", "DENMARK", "DJ", "DJIBOUTI", "DM", "DOMINICA", "DO", "DOMINICAN REPUBLIC", "TP", "EAST TIMOR", "EC", "ECUADOR", "EG", "EGYPT", "SV", "EL SALVADOR", "GQ", "EQUATORIAL GUINEA", "ER", "ERITREA", "EE", "ESTONIA", "ET", "ETHIOPIA", "FK", "FALKLAND ISLANDS (MALVINAS)", "FO", "FAROE ISLANDS", "FJ", "FIJI", "FI", "FINLAND", "FR", "FRANCE", "FX", "FRANCE, METROPOLITAN", "GF", "FRENCH GUIANA", "PF", "FRENCH POLYNESIA", "TF", "FRENCH SOUTHERN TERRITORIES", "GA", "GABON", "GM", "GAMBIA", "GE", "GEORGIA", "DE", "GERMANY", "GH", "GHANA", "GI", "GIBRALTAR", "GR", "GREECE", "GL", "GREENLAND", "GD", "GRENADA", "GP", "GUADELOUPE", "GU", "GUAM", "GT", "GUATEMALA", "GN", "GUINEA", "GW", "GUINEA-BISSAU", "GY", "GUYANA", "HT", "HAITI", "HM", "HEARD AND MC DONALD ISLANDS", "VA", "HOLY SEE (VATICAN CITY STATE)", "HN", "HONDURAS", "HK", "HONG KONG", "HU", "HUNGARY", "IS", "ICELAND", "IN", "INDIA", "ID", "INDONESIA", "IR", "IRAN (ISLAMIC REPUBLIC OF)", "IQ", "IRAQ", "IE", "IRELAND", "IL", "ISRAEL", "IT", "ITALY", "JM", "JAMAICA", "JP", "JAPAN", "JO", "JORDAN", "KZ", "KAZAKHSTAN", "KE", "KENYA", "KI", "KIRIBATI", "KP", "KOREA, DEMOCRATIC PEOPLE'S REPUBLIC OF", "KR", "KOREA, REPUBLIC OF", "KW", "KUWAIT", "KG", "KYRGYZSTAN", "LA", "LAO PEOPLE'S DEMOCRATIC REPUBLIC", "LV", "LATVIA", "LB", "LEBANON", "LS", "LESOTHO", "LR", "LIBERIA", "LY", "LIBYAN ARAB JAMAHIRIYA", "LI", "LIECHTENSTEIN", "LT", "LITHUANIA", "LU", "LUXEMBOURG", "MO", "MACAU", "MK", "MACEDONIA, THE FORMER YUGOSLAV REPUBLIC OF", "MG", "MADAGASCAR", "MW", "MALAWI", "MY", "MALAYSIA", "MV", "MALDIVES", "ML", "MALI", "MT", "MALTA", "MH", "MARSHALL ISLANDS", "MQ", "MARTINIQUE", "MR", "MAURITANIA", "MU", "MAURITIUS", "YT", "MAYOTTE", "MX", "MEXICO", "FM", "MICRONESIA, FEDERATED STATES OF", "MD", "MOLDOVA, REPUBLIC OF", "MC", "MONACO", "MN", "MONGOLIA", "MS", "MONTSERRAT", "MA", "MOROCCO", "MZ", "MOZAMBIQUE", "MM", "MYANMAR", "NA", "NAMIBIA", "NR", "NAURU", "NP", "NEPAL", "NL", "NETHERLANDS", "AN", "NETHERLANDS ANTILLES", "NC", "NEW CALEDONIA", "NZ", "NEW ZEALAND", "NI", "NICARAGUA", "NE", "NIGER", "NG", "NIGERIA", "NU", "NIUE", "NF", "NORFOLK ISLAND", "MP", "NORTHERN MARIANA ISLANDS", "NO", "NORWAY", "OM", "OMAN", "PK", "PAKISTAN", "PW", "PALAU", "PA", "PANAMA", "PG", "PAPUA NEW GUINEA", "PY", "PARAGUAY", "PE", "PERU", "PH", "PHILIPPINES", "PN", "PITCAIRN", "PL", "POLAND", "PT", "PORTUGAL", "PR", "PUERTO RICO", "QA", "QATAR", "RE", "REUNION", "RO", "ROMANIA", "RU", "RUSSIA", "RW", "RWANDA", "KN", "SAINT KITTS AND NEVIS", "LC", "SAINT LUCIA", "VC", "SAINT VINCENT AND THE GRENADINES", "WS", "SAMOA", "SM", "SAN MARINO", "ST", "SAO TOME AND PRINCIPE", "SA", "SAUDI ARABIA", "SN", "SENEGAL", "SC", "SEYCHELLES", "SL", "SIERRA LEONE", "SG", "SINGAPORE", "SK", "SLOVAKIA (Slovak Republic)", "SI", "SLOVENIA", "SB", "SOLOMON ISLANDS", "SO", "SOMALIA", "ZA", "SOUTH AFRICA", "GS", "SOUTH GEORGIA AND THE SOUTH SANDWICH ISLANDS", "ES", "SPAIN", "LK", "SRI LANKA", "SH", "ST. HELENA", "PM", "ST. PIERRE AND MIQUELON", "SD", "SUDAN", "SR", "SURINAME", "SJ", "SVALBARD AND JAN MAYEN ISLANDS", "SZ", "SWAZILAND", "SE", "SWEDEN", "CH", "SWITZERLAND", "SY", "SYRIAN ARAB REPUBLIC", "TW", "TAIWAN, PROVINCE OF CHINA", "TJ", "TAJIKISTAN", "TZ", "TANZANIA, UNITED REPUBLIC OF", "TH", "THAILAND", "TG", "TOGO", "TK", "TOKELAU", "TO", "TONGA", "TT", "TRINIDAD AND TOBAGO", "TN", "TUNISIA", "TR", "TURKEY", "TM", "TURKMENISTAN", "TC", "TURKS AND CAICOS ISLANDS", "TV", "TUVALU", "UG", "UGANDA", "UA", "UKRAINE", "AE", "UNITED ARAB EMIRATES", "GB", "UNITED KINGDOM", "US", "UNITED STATES", "UM", "UNITED STATES MINOR OUTLYING ISLANDS", "UY", "URUGUAY", "UZ", "UZBEKISTAN", "VU", "VANUATU", "VE", "VENEZUELA", "VN", "VIET NAM", "VG", "VIRGIN ISLANDS (BRITISH)", "VI", "VIRGIN ISLANDS (U.S.)", "WF", "WALLIS AND FUTUNA ISLANDS", "EH", "WESTERN SAHARA", "YE", "YEMEN", "YU", "YUGOSLAVIA", "ZM", "ZAMBIA", "ZW", "ZIMBABWE", #added "UK", "UNITED KINGDOM", ); } ='9'>9space:mode:

author	Pablo Saratxaga <pablo@mandriva.com>	2003-05-16 15:55:38 +0000
committer	Pablo Saratxaga <pablo@mandriva.com>	2003-05-16 15:55:38 +0000
commit	411e0e9d500d91cf111fb93209acd7d461ee2453 (patch)
tree	2ad2bc9508b90d8be8a0dc571ee75b43be5b0019 /perl-install/share/po/sv.po
parent	1af0da3b2f30c11993aaefd4a9271768cb2e1bf3 (diff)
download	drakx-411e0e9d500d91cf111fb93209acd7d461ee2453.tar drakx-411e0e9d500d91cf111fb93209acd7d461ee2453.tar.gz drakx-411e0e9d500d91cf111fb93209acd7d461ee2453.tar.bz2 drakx-411e0e9d500d91cf111fb93209acd7d461ee2453.tar.xz drakx-411e0e9d500d91cf111fb93209acd7d461ee2453.zip

updated pot file

Diffstat (limited to 'perl-install/share/po/sv.po')

-rw-r--r--

perl-install/share/po/sv.po

26142

1 files changed, 13116 insertions, 13026 deletions