summaryrefslogtreecommitdiffstats
path: root/scripts/localize.pl
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--scripts/localize.pl1642
1 files changed, 1642 insertions, 0 deletions
diff --git a/scripts/localize.pl b/scripts/localize.pl
new file mode 100644
index 0000000..b836c92
--- /dev/null
+++ b/scripts/localize.pl
@@ -0,0 +1,1642 @@
+#!/usr/bin/perl
+#
+#
+# By Stefan 'tommie' Tomanek, stefan@kann-nix.org
+#
+#
+# This script works fine on DFN (german universities) and T-Oline sites
+#
+# 01.03.2002
+# *Changed to GPL
+#
+# 15.03.2002
+# *Now works on QUERIES as well
+#
+# 24.04.2002
+# *the nick does not have to be on the channel
+# *switched to /WHO
+#
+# 27.04.2002
+# *localization of hosts (/localize @hostname)
+#
+# 29.04.2002
+# *tweaked Design
+# *added channel statistics
+#
+# 04.05.2002
+# *added alternate database (IP Atlas)
+#
+# 05.05.2002
+# *the script is now able to use both databases simultaniously
+# */set localize_use_<database> to enable or disable them
+#
+# 10.05.2002
+# *non-blocking IO via fork()
+#
+# 13.05.2002
+# *finally improved forking and background localizing
+# *now using XML
+#
+# 26.05.2002
+# *Implemented auto-localize
+#
+# 28.05.2002
+# *major updates
+# *fixed race conditions
+#
+# 30.05.2002
+# *finally rendered traceroute support usefull
+#
+# 31.05.2002
+# *moved database to this file
+#
+# 03.07.2002
+# *switched to Data::Dumper
+#
+# 25.11.2014
+# Added utrace.de as a localizer
+# http://www.utrace.de/
+
+use strict;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "2017040101";
+%IRSSI = (
+ authors => "Stefan 'tommie' Tomanek",
+ contact => "stefan\@pico.ruhr.de",
+ name => "localize",
+ description => "Localizes users using traceroute, the localizer database or IP-Atlas",
+ license => "GPLv2",
+ url => "",
+ changed => "$VERSION",
+ modules => "Data::Dumper LWP::UserAgent HTML::Entities",
+ commands => "localize"
+);
+
+use Irssi 20020324;
+use LWP::UserAgent;
+use HTML::Entities;
+use Data::Dumper;
+use POSIX;
+use Socket;
+
+use vars qw(%queries %cache %ipdb $procs @tracer $debug);
+$debug = 0;
+$procs = 0;
+
+
+# host regexps for trace_host
+#
+
+@tracer = (
+ { provider => 'tonline',
+ regexp => [ '.*?-.*?\.(.*?)(\.DE|)\.net\.dtag\.de', ]
+ },
+ { provider => 'uunet',
+ regexp => [ '.*?-\d+-\d+\..*?\.(.*?)\d?\.uunet\.de', ]
+ },
+ { provider => 'kpnqwest',
+ regexp => [ '.*?-.*?\.(\w?)\.de\.kpnqwest\.net', ]
+ },
+ { provider => 'ewetel',
+ regexp => [ '.*?-.*?-.*?\.rt8\.(.*?)\.ewetel\.net',
+ '(.*?)[0-9]*-.*?\.ewetel\.net',
+ 'so\d+-\d+-\d+-bbrt\d+\.(.*?)\.ewe-ip-backbone\.de']
+ },
+ { provider => 'arcor',
+ regexp => [ '((?!dsl)\w+)-\d+-\d+-\d+-\d+\.arcor-ip\.net',
+ '.*?-(.*?)-.*?\d*\.arcor-online\.net']
+ },
+ { provider => 'mediaways',
+ regexp => ['.*-(.*)-de.*-.*-.*-.*\..*\.mediaways.net', ]
+ },
+ { provider => 'mobilcom',
+ regexp => ['.*\.(.*?)[0-9]+-.\.mcbone\.net',]
+ },
+ { provider => 'vianetworks',
+ regexp => ['\w+\.(.*?)\.revmap\.vianetworks\.de',
+ 'rt\d{3}(.*?)\.de\.vianw\.net',]
+ },
+ { provider => 'mfnx',
+ regexp => ['.+-\d+-\d+-\d+\..+\.(.*?)[0-9]+\.de\.mfnx\.net',]
+ },
+ { provider => 'colt',
+ regexp => ['.+-.*\..+\.(.*?)\.DE.COLT-ISC.NET',
+ '.+\.((?!dsl)(?!host)\w+)\.de\.colt\.net',
+ '..\d\.(\w+)\.de\.colt\.net',]
+ },
+ { provider => 'telia',
+ regexp => ['(.*?)-.+-.+-.+\.telia.net',]
+ },
+ { provider => 'hansanet',
+ regexp => ['.*\.(.*?)-[0-9]+\.hansenet\.net',]
+ },
+ { provider => 'isis',
+ regexp => ['isis-gw-(.*?)[0-9]\.de\.cw\.net', ]
+ },
+ { provider => 'cable & wireless',
+ regexp => ['.*-\d+-\d+-\d+-.*?-(.*?)\d+\.de\.cw\.net',
+ '.*?-.*?-(.*?)\d+\.de\.cw\.net']
+ },
+ { provider => 'NEFkom',
+ regexp => ['nefkom-gw-(.*?)\.de\.cw\.net',]
+ },
+ { provider => 'eastlink',
+ regexp => ['.*?-.*?-.*?-.*?-(.*?)\.eastlink.de',]
+ },
+ { provider => 'alternet',
+ regexp => ['.*\.(.*?)\d?\.de\.alter\.net',]
+ },
+ { provider => 'CompleTel',
+ regexp => ['.+-.+-.+-.+\.(.*)\.ipcenta\.de',]
+ },
+ { provider => 'mediascape',
+ regexp => ['.+\..+\.(.*?)\.mediascape\.net',]
+ },
+ { provider => 'schlund',
+ regexp => ['gw-prtr-[0-9]+-.+\.(.+)[0-9]+\.schlund.net',]
+ },
+ { provider => 'bisping',
+ regexp => ['(.*?)-gw-pmx[0-9]*\.bisping\.net',]
+ },
+ { provider => 'gatel',
+ regexp => ['ser[0-3]+-[0-3]+\.(.*?)[0-3]+\.de\.gatel\.net',]
+ },
+ { provider => 'qsc',
+ regexp => ['rqsc-(.*?)-de[0-9]+-.+[0-9]+-[0-9]+-[0-9]+\.nw\.mediaways\.net',
+ 'bsn\d+\.(.*?)\.qdsl-home\.de',
+ 'bsn\d+\.(.*?)\.qsc\.de',
+ 'core1\.(.*?)\.qsc\.de']
+ },
+ { provider => 'dfn',
+ regexp => ['.r-(.*?)[0-9]+\.g-win.dfn.de',
+ '.*\.uni-(.*?)\.de',
+ '.*\.fh-(.*?)\.de',
+ '.*\.tu-(.*?)\.de',
+ '.*\.fu-(.*?)\.de',]
+ },
+ { provider => 'mops.net',
+ regexp => ['.*?\.core\d\.(.*?)\.mops\.net',]
+ },
+ { provider => 'schule.de',
+ regexp => ['.*\.(.*?)\..*?\.Schule\.DE',]
+ },
+ { provider => 'belwue',
+ regexp => ['(?:.*?-)?(.*?)\d+\.BelWue\.DE',]
+ },
+ { provider => 'lambdanet',
+ regexp => ['.*?\.(.*?)\.de\.lambdanet\.net',]
+ }
+);
+
+%ipdb = (
+ # For utrace.de API documentation, see http://en.utrace.de/api.php
+ d1utrace=>{ name=>'utrace',
+ active=>1,
+ url=>'http://xml.utrace.de/?query=',
+ city=>'<region>(.*?)<\/region>',
+ province=>'<org>(.*?)<\/org>',
+ country=>'<countrycode>(.*?)<\/countrycode>',
+ provider=>'<isp>(.*?)<\/isp>',
+ failure=>'request-limit-exceeded|Host not found'},
+ d2ipatlas=> { name=>'IP-Atlas',
+ active=>0,
+ url=>'http://www.xpenguin.com/plot.php?address=',
+ city=>'is located in (.*?),',
+ province=>'is located in.*, (.*?) \(state\),',
+ country=>'is located in.*, (.*?)\. ',
+ failure=>'cannot be located|does not resolve' },
+ d3netgeo => { name=>'NetGeo',
+ active=>0,
+ url=>'http://netgeo.caida.org/perl/netgeo.cgi?target=',
+ city=>'CITY:\ *(\w+)<br>',
+ province=>'STATE:.*?, (.*?) \(state\)<br>',
+ country=>'COUNTRY:\ *(\w+)<br>',
+ failure=> "SHOULD NOT"},
+);
+
+sub draw_box ($$$) {
+ my ($title, $text, $footer) = @_;
+ my $box = '';
+ $box .= '%R,--[%n%9%U'.$title.'%U%9%R]%n'."\n";
+ foreach (split(/\n/, $text)) {
+ $box .= '%R|%n '.$_."\n";
+ }
+ $box .= '%R`--<%n'.$footer.'%R>->%n';
+ return $box;
+}
+
+sub show_help() {
+ my $help="Localize $VERSION
+/localize <nickname>
+ Try to localize the user 'nickname'
+/localize @<hostname>
+ Try to localize the host
+/localize <#channel>
+ Create a tree of the people inside the channel
+/localize -s
+ Save the localize cache and settings
+/localize -r
+ Reload the localize cache from file
+/localize -c
+ Clear the cache
+/localize -sc
+ Shows the current content of the cache
+/localize -h
+ Display this help
+";
+ my $text = "";
+ foreach (split(/\n/, $help)) {
+ $_ =~ s/^\/(.*)$/%9\/$1%9/;
+ $text .= $_."\n";
+ }
+ print CLIENTCRAP draw_box("Localize", $text, "Help");
+}
+
+sub get ($) {
+ my ($url) = @_;
+ my $ua = LWP::UserAgent->new(env_proxy => 1,keep_alive => 1,timeout => 30);
+ $ua->agent('Irssi');
+ my $request = HTTP::Request->new('GET', $url);
+ my $response = $ua->request($request);
+ if ($response->is_success()) {
+ return $response->content();
+ } else {
+ return undef;
+ }
+}
+
+sub parse_page ($$) {
+ my ($page, $item) = @_;
+ my %empty;
+ my (%location);
+ $_ = $page;
+ my $regexp = $item->{failure};
+ return(%location) if /$regexp/;
+ foreach my $key ('city', 'province', 'country') {
+ $location{$key} = '';
+ my $regexp = $item->{$key};
+ if (/$regexp/) {
+ $location{$key} = $1;
+ } else {
+ return(%empty);
+ }
+ }
+ if (defined $item->{provider}) {
+ if (/$item->{provider}/) {
+ $location{provider} = $1;
+ }
+ }
+ $location{map} = $item->{name} if (%location);
+ return (%location);
+}
+
+sub trace_host ($) {
+ my ($host) = @_;
+ my $cmd = Irssi::settings_get_str('localize_trace_cmd');
+ local *F;
+ my $pid = open(F, '-|', $cmd.' '.$host.' 2>/dev/null');
+ my $loc_host;
+ my $provider;
+ my $hops = 0;
+ my $maxhops = Irssi::settings_get_int('localize_trace_distance');
+ $_ = $host;
+ while (defined $_) {
+ print $_ if $debug;
+ $hops++;
+ if (/\*/) {
+ kill 15, $pid;
+ close(F);
+ return([$loc_host, $provider]) if ($hops < $maxhops && $hops >= 0);
+ return([undef, undef]);
+ } else {
+ foreach my $traced (@tracer) {
+ foreach my $regexp (@{$traced->{regexp}}) {
+ if (/[0-9]+ $regexp /i) {
+ $loc_host = $1;
+ $provider = $traced->{provider};
+ print $regexp if $debug;
+ print "$loc_host <-> $provider" if $debug;
+ $hops = 0;
+ last;
+ }
+ }
+ }
+ }
+ $_ = <F>;
+ }
+ close(F);
+ if ( ($hops < $maxhops) && ($hops >= 0)) {
+ if ($debug) {
+ print $loc_host."-".$provider foreach (1..10);
+ }
+ return([$loc_host, $provider]);
+ } else {
+ print $hops." -> ".$maxhops if $debug;
+ }
+ return([undef, undef]);
+}
+
+sub localize($$) {
+ my ($nicks, $query) = @_;
+ if (Irssi::settings_get_bool('localize_background')) {
+ bg_fetch($nicks, $query);
+ } else {
+ fg_fetch($nicks, $query);
+ }
+}
+
+sub fg_fetch ($$) {
+ my ($nicks, $query) = @_;
+ my $data = create_output(@{$nicks});
+ my $auto = $queries{$query}->[0]{auto};
+ remove_request($query);
+ process_input($query, $auto, $data);
+}
+
+sub bg_fetch ($$) {
+ my ($nicks, $query) = @_;
+ my ($rh, $wh);
+ pipe($rh, $wh);
+ my $pid = fork();
+ $procs++;
+ if ($pid > 0) {
+ close $wh;
+ my $size = scalar(@{$nicks});
+ my $auto = $queries{$query}->[0]{auto};
+ remove_request($query);
+ unless ($auto ne '') {
+ print CLIENTCRAP '%R>>%n Localizing '.$size.' host(s) in background [pid '.$pid.']...' if Irssi::settings_get_bool('localize_show_message');
+ }
+ Irssi::pidwait_add($pid);
+ my $pipetag;
+ my @args = ($rh, $query, $auto, \$pipetag);
+ $pipetag = Irssi::input_add(fileno($rh), INPUT_READ, \&pipe_input, \@args);
+ } else {
+ my $data = create_output(@{$nicks});
+ eval {
+ print($wh $data);
+ close($wh)
+ };
+ POSIX::_exit(1);
+ }
+}
+
+
+sub create_output(@) {
+ my (@nicks) = @_;
+ my @new_db;
+ my @stuff;
+ my @data;
+ my $i = 0;
+ foreach (@nicks) {
+ my $nick = $$_[0];
+ my $host = $$_[1];
+ my (%location);
+ if (defined $cache{$host}) {
+ %location = %{$cache{$host}};
+ $location{$_} = $location{$_} foreach (keys %location);
+ $location{'map'} .= " (cached)";
+ } else {
+ if (Irssi::settings_get_bool('localize_use_traceroute')) {
+ unless (%location) {
+ my ($sign, $provider) = @{ trace_host($host) };
+ print "\n\n>>>>".$sign if $debug;
+ %location = kfz2location($sign) if $sign;
+ $location{map} = 'traceroute' if (%location);
+ $location{provider} = $provider if (%location);
+ }
+ }
+ if (Irssi::settings_get_bool('localize_use_databases')) {
+ unless (%location) {
+ foreach (sort keys(%ipdb)) {
+ my $item = $ipdb{$_};
+ next unless $item->{active};
+ #my $ip = gethostbyname($host);
+ #next unless $ip;
+ my $url = $item->{url}.$host; #inet_ntoa($ip);
+ my $text = get($url);
+ %location = parse_page($text, $item);
+ }
+ }
+ }
+ if (Irssi::settings_get_bool('localize_get_coordinates')) {
+ if (%location) {
+ my $city = $location{city};
+ my $ua = LWP::UserAgent->new(env_proxy=>1, keep_alive=>1, timeout=>30);
+ my $data = $ua->get('http://www.astro.com/atlas/horoscope/?expr='.$city)->content();
+ foreach (split /\n/, $data) {
+ decode_entities($_);
+ if (/^<li><a href="\/cgi\/ade\.cgi\?&(?:.*?)">(.*?)<\/a>, (?:.*?): <b>(\d+)n(\d+)<\/b>, <b>(\d+)e(\d+)<\/b>/i) {
+ $location{latitude} = "$2.$3";
+ $location{longitude} = "$4.$5";
+ last;
+ }
+ }
+ }
+ }
+ }
+ $location{'nick'} = $nick if (%location);
+ $location{'host'} = $host if (%location);
+ #$location{$_} = $location{$_} foreach (keys %location);
+ push @stuff, \%location;
+ $i++;
+ }
+ my %foo = ("nicks" => \@stuff);
+ my $dumper = Data::Dumper->new([\%foo]);
+ $dumper->Purity(1)->Deepcopy(1);
+ my $data = $dumper->Dump;
+ return($data);
+}
+
+sub pipe_input ($$$$) {
+ my ($rh, $query, $auto, $pipetag) = @{$_[0]};
+ my @lines = <$rh>;
+ close($rh);
+ Irssi::input_remove($$pipetag);
+ my $text = join("", @lines);
+ process_input($query, $auto, $text);
+}
+
+sub process_input($$$) {
+ my ($query, $auto, $text) = @_;
+ my $channel_prefix = '^(\#|\+|\!)';
+ my %stuff;
+ $procs--;
+ no strict;
+ %stuff = %{ eval "$text" };
+ return(0) unless (%stuff);
+ my @items = @{$stuff{nicks}};
+ my %channel;
+ foreach (@items) {
+ my %location = %{$_};
+ if (not %location) {
+ unless ($query =~ /$channel_prefix/) {
+ print CLIENTCRAP '%R>>%n Unable to localize '.$query if ($auto eq '');
+ }
+ } else {
+ my $nocache = Irssi::settings_get_str('localize_ipatlas_nocache');
+ add_to_cache(%location) unless ($location{'map'} eq 'IP-Atlas' && $location{'host'} =~ /$nocache/);
+
+ $location{$_} = $location{$_} foreach (keys %location);
+ my $nick = $location{'nick'};
+ if ($query =~ /$channel_prefix/) {
+ push @{ $channel{$location{"country"}}{$location{"province"}}{$location{"city"}} }, [$nick, $location{"map"}];
+ } else {
+ if ($auto eq '') {
+ show_location(%location);
+ } else {
+ auto_localize($auto, %location);
+ }
+ }
+ #remove_request($query);
+ }
+ }
+ if ($query =~ /$channel_prefix/) {
+ show_cities($query, %channel);
+ }
+}
+
+sub add_to_cache (%) {
+ my (%location) = @_;
+ my $host = $location{'host'};
+ return if defined $cache{$host};
+ foreach (keys %location) {
+ next if ($_ eq 'nick' || $_ eq 'host');
+ $cache{$host}{$_} = $location{$_};
+ }
+}
+
+sub save_cache {
+ my $filename = Irssi::settings_get_str('localize_cache_filename');
+ my $data = Dumper(\%cache);
+ local *F;
+ open(F, '>',$filename);
+ print(F $data);
+ close(F);
+ print CLIENTCRAP "%R>>%n localize cache (".scalar(keys(%cache))." entries/".length($data)." bytes) saved to ".$filename;
+}
+
+sub load_cache {
+ no strict;
+ my $filename = Irssi::settings_get_str('localize_cache_filename');
+ my (%new_cache, $text);
+ local *F;
+ open F, "<",$filename || return;
+ $text .= $_ foreach (<F>);
+ close(F);
+ eval { %new_cache = %{ eval "$text" }; };
+ foreach (keys %new_cache) {
+ $cache{$_} = $new_cache{$_} unless defined $cache{$_};
+ }
+ print CLIENTCRAP "%R>>%n localize cache (".scalar(keys %new_cache)." hosts) loaded";
+}
+
+sub clear_cache {
+ foreach (keys(%cache)) {
+ delete $cache{$_};
+ }
+ print CLIENTCRAP "%R>>%n localize cache cleared";
+}
+
+sub show_location (%) {
+ my (%location) = @_;
+ my $query = Irssi::query_find($location{"nick"});
+ my $output = \&Irssi::print;
+ $output = sub { $query->print(@_); } if ($query);
+ my $text = "";
+ my $headline = '%R,--[%n%9%ULocation of '.$location{"nick"}." (".$location{"host"}.")%U%9%R]%n";
+ foreach ('Country', 'Province', 'City', 'Provider') {
+ my $fill = ' 'x(9-length($_));
+ $text .= '%B'.$fill.$_.':%n '.$location{lc $_}."\n" if defined $location{lc $_};
+ }
+ #$text .= $location{latitude}."/".$location{longitude};
+ &$output(draw_box('Location of '.$location{nick}.' ('.$location{host}.')', $text, $location{map}), MSGLEVEL_CLIENTCRAP);
+ show_map($location{latitude}, $location{longitude}, $location{nick}) if Irssi::settings_get_bool('localize_xplanet_show_map');
+}
+
+sub show_map ($$$) {
+ my ($lat, $long, $nick) = @_;
+ return unless defined $lat && defined $long;
+ my $cmd = Irssi::settings_get_str('localize_xplanet_cmd');
+ my $file = Irssi::settings_get_str('localize_xplanet_temp_file');
+ local *F;
+ open F, '>',$file;
+ print F $lat.' '.$long.' "'.$nick.'"';
+ close F;
+ system("$cmd -markerf $file &");
+}
+
+sub show_cities ($%) {
+ my ($channel, %cities) = @_;
+ print CLIENTCRAP "%R,---[%n%9%U".$channel."%U%9%R]%n";
+ foreach (sort keys %cities) {
+ print CLIENTCRAP "%R+-+[%n".$_."%R]%n";
+ print CLIENTCRAP "%R| | %n";
+ my $n_provs = scalar( keys %{$cities{$_}});
+ foreach my $province (sort keys %{$cities{$_}}) {
+ my $cp = '|';
+ $cp = ' ' if ($n_provs == 1);
+ print CLIENTCRAP "%R| +-+%n"."%R[%n".$province."%R]%n";
+ my $n_cities = scalar(keys %{$cities{$_}{$province}});
+ foreach my $city (sort keys %{$cities{$_}{$province}}) {
+ my $cc = '|';
+ $cc = ' ' if ($n_cities == 1);
+ print CLIENTCRAP "%R| $cp +-+%n"."%R[%n".$city."%R]%n";
+ my $n_nicks = scalar(@{$cities{$_}{$province}{$city}});
+ foreach my $nick (sort @{$cities{$_}{$province}{$city}}) {
+ my $cn = '|`';
+ $cn = '`-' if ($n_nicks == 1);
+ print CLIENTCRAP "%R| $cp $cc $cn-----%n%B[%n".$nick->[0]."%B]%n";
+ $n_nicks--;
+ }
+ $n_cities--;
+ }
+ print CLIENTCRAP "%R| $cp ";
+ $n_provs--;
+ }
+ #print CLIENTCRAP "%R| ";
+ }
+ print CLIENTCRAP "%R`----->%n";
+}
+
+
+sub cmd_localize ($$$) {
+ my ($args, $server, $witem) = @_;
+ my @names = split(/ /, $args);
+ foreach (@names) {
+ if ( substr($_, 0, 1) eq '@' ) {
+ my $ip = substr(lc($_), 1);
+ new_request($server, $ip, 2, '');
+ localize([[$ip, $ip]], $ip);
+ } elsif ($_ eq '-h') {
+ show_help();
+ } elsif ($_ eq '-c') {
+ clear_cache();
+ } elsif ($_ eq '-s') {
+ save_cache();
+ } elsif ($_ eq '-r') {
+ load_cache();
+ } elsif ($_ eq '-sc') {
+ show_cache(@names);
+ return();
+ } else {
+ new_request($server, lc($_), 0, '');
+ }
+ }
+}
+
+sub show_cache (@) {
+ my (@params) = @_;
+ unless (defined $params[1] && $params[1] eq '-i_am_insane') {
+ my $entries = scalar(keys(%cache));
+ print CLIENTCRAP '%R>>%n There are '.$entries.' saved locations in the cache. If you really want to display them all, type /localize -sc -i_am_insane';
+ } else {
+ my $text = "";
+ foreach my $key (sort keys %cache) {
+ my %item = %{$cache{$key}};
+ $item{$_} = $item{$_} foreach (keys %item);
+ my $string .= $key;
+ foreach ('country', 'province', 'city', 'map') {
+ $string .= ' | '.$item{$_};
+ }
+ $text .= $string."\n";
+ }
+ print CLIENTCRAP draw_box("Localize Cache", $text, "cache listing");
+ }
+}
+
+sub process_reply ($$$$) {
+ my ($server, $args, $sender, $address) = @_;
+ if ($args =~ /^(.*?) (.*?) (.*?) (.*?) (.*?) (.*?) (.*?)/) {
+ if (defined $queries{lc $6} && scalar(@{$queries{lc $6}}) > 0) {
+ foreach (@{$queries{lc $6}}) {
+ my %query = %{$_};
+ next unless ($query{status} <2);
+ Irssi::signal_stop();
+ push @{${$_}{buffer}},[$6, $4];
+ ${$_}{status} = 1;
+ }
+ } elsif (defined $queries{lc $2} && scalar(@{$queries{lc $2}}) > 0) {
+ foreach (@{$queries{lc $2}}) {
+ my %query = %{$_};
+ next unless ($query{status} <2);
+ Irssi::signal_stop();
+ push @{${$_}{buffer}},[$6, $4];
+ ${$_}{status} = 1;
+ }
+ }
+ } elsif ($args =~ /^(.*?) (.*?) :End of (|\/)WHO list\./) {
+ my ($self, $target) = ($1, $2);
+ return unless (defined $queries{lc $target} && scalar(@{$queries{lc $target}}) > 0);
+ my $needed = 0;
+ foreach (@{$queries{lc $target}}) {
+ my %query = %{$_};
+ $needed = 1 if $query{status} < 2;
+ next unless ($query{status} == 1);
+ if ($query{status} == 1) {
+ Irssi::signal_stop;
+ $query{status} = 2;
+ localize \@{$query{buffer}}, $target;
+ delete $query{buffer};
+ return();
+ }
+ }
+ if ($needed) {
+ Irssi::signal_stop;
+ unless ($queries{lc $target}[0]{auto} ne '') {
+ print CLIENTCRAP '%R>>%n No such nick '.$target;
+ }
+ remove_request($target);
+ }
+ }
+}
+
+sub event_message_join ($$$$) {
+ my ($server, $channel, $nick, $address) = @_;
+ return() unless Irssi::settings_get_bool('localize_auto_localize_on_join');
+ my $maxreq = Irssi::settings_get_int('localize_auto_localize_maxrequests');
+ my $channels = Irssi::settings_get_str('localize_auto_localize_channel_list');
+ if ($channel =~ /$channels/i) {
+ $address =~ /(.*)@(.*)/;
+ my $host = $2;
+ if ($procs < $maxreq) {
+ new_request($server, $nick, 2, lc($channel));
+ localize([[lc($nick), $host]], lc($nick));
+ } else {
+ #Irssi::print "%R>>%n Too many processes running";
+ }
+ }
+}
+
+sub event_query_created($$) {
+ my ($query, $auto) = @_;
+ my $nick = $query->{name};
+ my $server = $query->{server};
+ my $maxreq = Irssi::settings_get_int('localize_auto_localize_maxrequests');
+ return(0) unless (scalar(keys %queries) < $maxreq && Irssi::settings_get_bool('localize_auto_localize_on_query'));
+ $nick = substr($nick, 1) if (substr($nick, 0, 1) eq '=');
+ new_request($server, $nick, 0, lc($query->{name}));
+}
+
+sub auto_localize ($%) {
+ my ($auto, %location) = @_;
+ my $nick = lc($location{'nick'});
+ my $channel = Irssi::window_item_find($auto);
+ $channel->printformat(MSGLEVEL_CLIENTCRAP, 'auto_localize', $nick, $location{host}, $location{'city'}, $location{'province'}, $location{'country'}, $location{'map'}) if defined $channel;
+}
+
+sub new_request ($$$$) {
+ my ($server, $nick, $status, $auto) = @_;
+ return unless ref $server;
+ # 0 nothing done
+ # 1 started to fetch hosts
+ # 2 all hosts fetched
+ push(@{$queries{lc $nick}}, {status => $status, auto=>$auto});
+ $server->command('who '.lc($nick)) if $status == 0;
+}
+
+sub remove_request ($) {
+ my ($nick) = @_;
+ shift @{$queries{$nick}};
+ delete $queries{$nick} if scalar(@{$queries{$nick}}) == 0;
+}
+
+# Yes, I know tat this i huge
+sub kfz2location($) {
+ my %trans = (
+ "rklh"=> "RE",
+ "wstk"=> "Wk",
+ "essn"=> "E",
+ "stgt"=> "S",
+ "ffm" => "F",
+ "mnz" => "MZ",
+ "fra" => "F",
+ "esn" => "E",
+ "dtm" => "DO",
+ "kln" => "K",
+ "dus" => "D",
+ "mue" => "M",
+ "mnch"=> "M",
+ "brln"=> "B",
+ "hmb" => "HH",
+ "brmn"=> "HB",
+ "hmbg"=> "HH",
+ "han" => "H",
+ "kiel"=> "KI",
+ "lpz" => "L",
+ "bln" => "B",
+ "ber" => "B",
+ "mch" => "M",
+ "erf" => "EF",
+ "mdb" => "MD",
+ "nbg" => "N",
+ "hnv" => "H",
+ "dui" => "DU",
+ "mnhm" => "MA",
+ "mhm" => "MA",
+ "flf" => "FL",
+ "lwhf" => "LU",
+ "wue" => "WÜ",
+ "frnk" => "F",
+ "dsdf" => "D",
+ "sgt" => "S",
+ "aug" => "A",
+ "mch" => "M",
+ "ddn" => "DD",
+ "drs" => "DD",
+ "jen" => "J",
+ "che" => "C",
+ "nuremberg" => "N",
+ "weingarten" => "RV",
+ "munich" => "M",
+ "muc" => "M",
+ "goe" => "GÖ",
+ "obhs" => "OB",
+ "dus" => "D",
+ );
+
+ my %province = (
+ 1=>'Baden-Württemberg',
+ 2=>'Bayern',
+ 3=>'Berlin',
+ 4=>'Brandenburg',
+ 5=>'Bremen',
+ 6=>'Hamburg',
+ 7=>'Hessen',
+ 8=>'Mecklenburg-Vorpommern',
+ 9=>'Niedersachsen',
+ 10=>'Nordrhein-Westfalen',
+ 11=>'Rheinland-Pfalz',
+ 12=>'Saarland',
+ 13=>'Sachsen',
+ 14=>'Sachsen-Anhalt',
+ 15=>'Thüringen',
+ 16=>'Schleswig-Holstein'
+ );
+
+ my %added = (
+ "PLA"=>{city=>"Plattling", province=>2},
+ );
+ my %de_kfz = (
+ "A"=>{city=>"Augsburg", province=>2},
+ "AA"=>{city=>"Ostalbkreis", province=>1},
+ "AB"=>{city=>"Aschaffenburg", province=>2},
+ "ABG"=>{city=>"Altenburger Land", province=>15},
+ "AC"=>{city=>"Aachen", province=>10},
+ "AE"=>{city=>"Auerbach", province=>13},
+ "AH"=>{city=>"Ahaus ", province=>10},
+ "AIB"=>{city=>"Bad Aibling", province=>2},
+ "AIC"=>{city=>"Aichach-Friedberg", province=>2},
+ "AK"=>{city=>"Altenkirchen", province=>11},
+ "AL"=>{city=>"Altena", province=>10},
+ "ALF"=>{city=>"Alfeld (Leine)", province=>9},
+ "ALS"=>{city=>"Alsfeld", province=>7},
+ "ALZ"=>{city=>"Alzenau", province=>2},
+ "AM"=>{city=>"Amberg", province=>2},
+ "AN"=>{city=>"Ansbach", province=>2},
+ "ANA"=>{city=>"Annaberg", province=>13},
+ "ANG"=>{city=>"Angermünde", province=>4},
+ "ANK"=>{city=>"Ostvorpommern, Anklam", province=>8},
+ "AP"=>{city=>"Weimarer-Land", province=>15},
+ "APD"=>{city=>"Weimarer Land, Apolda", province=>15},
+ "AR"=>{city=>"Arnsberg", province=>10},
+ "ARN"=>{city=>"Ilm-Kreis", province=>15},
+ "ART"=>{city=>"Artern", province=>15},
+ "AS"=>{city=>"Amberg-Sulzbach", province=>2},
+ "ASD"=>{city=>"Aschendorf-Hümmling", province=>9},
+ "ASL"=>{city=>"Aschersleben", province=>14},
+ "ASZ"=>{city=>"Aue-Schwarzenberg", province=>13},
+ "AT"=>{city=>"Altentreptow", province=>8},
+ "AU"=>{city=>"Aue", province=>13},
+ "AUR"=>{city=>"Aurich", province=>9},
+ "AW"=>{city=>"Ahrweiler", province=>11},
+ "AZ"=>{city=>"Alzey", province=>11},
+ "AZE"=>{city=>"Anhalt-Zerbst", province=>14},
+ "AÖ"=>{city=>"Altötting", province=>2},
+ "B"=>{city=>"Berlin", province=>"3"},
+ "BA"=>{city=>"Bamberg", province=>2},
+ "BAD"=>{city=>"Baden-Baden", province=>1},
+ "BAR"=>{city=>"Barnim", province=>4},
+ "BB"=>{city=>"Böblingen", province=>1},
+ "BBG"=>{city=>"Bernburg", province=>14},
+ "BC"=>{city=>"Biberach", province=>1},
+ "BCH"=>{city=>"Buchen", province=>1},
+ "BE"=>{city=>"Beckum", province=>10},
+ "BED"=>{city=>"Brand-Erbisdorf", province=>13},
+ "BEI"=>{city=>"Beilngries", province=>2},
+ "BEL"=>{city=>"Belzig", province=>4},
+ "BER"=>{city=>"Bernau", province=>4},
+ "BF"=>{city=>"Burgsteinfurt", province=>10},
+ "BGD"=>{city=>"Berchtesgaden", province=>2},
+ "BGL"=>{city=>"Berchtesgadener Land", province=>2},
+ "BH"=>{city=>"Bühl", province=>1},
+ "BI"=>{city=>"Bielefeld", province=>10},
+ "BID"=>{city=>"Biedenkopf", province=>7},
+ "BIN"=>{city=>"Bingen", province=>11},
+ "BIR"=>{city=>"Birkenfeld", province=>11},
+ "BIT"=>{city=>"Bitburg", province=>11},
+ "BIW"=>{city=>"Bischofswerda", province=>13},
+ "BK"=>{city=>"Backnang", province=>1},
+ "BKS"=>{city=>"Bernkastel", province=>11},
+ "BL"=>{city=>"Zollernalbkreis", province=>1},
+ "BLB"=>{city=>"Bad Berleburg", province=>10},
+ "BLK"=>{city=>"Burgenlandkreis", province=>14},
+ "BM"=>{city=>"Erftkreis", province=>10},
+ "BN"=>{city=>"Bonn", province=>10},
+ "BNA"=>{city=>"Borna", province=>13},
+ "BO"=>{city=>"Bochum", province=>10},
+ "BOG"=>{city=>"Bogen", province=>2},
+ "BOH"=>{city=>"Bocholt", province=>10},
+ "BOR"=>{city=>"Borken", province=>10},
+ "BOT"=>{city=>"Bottrop", province=>10},
+ "BR"=>{city=>"Bruchsal", province=>1},
+ "BRA"=>{city=>"Wesermarsch", province=>9},
+ "BRB"=>{city=>"Brandenburg", province=>4},
+ "BRG"=>{city=>"Burg", province=>14},
+ "BRI"=>{city=>"Brilon", province=>10},
+ "BRK"=>{city=>"Bad Brückenau", province=>2},
+ "BRL"=>{city=>"Braunlage", province=>9},
+ "BRV"=>{city=>"Bremervörde", province=>9},
+ "BS"=>{city=>"Braunschweig", province=>9},
+ "BSB"=>{city=>"Bersenbrück", province=>9},
+ "BSK"=>{city=>"Beeskow", province=>4},
+ "BT"=>{city=>"Bayreuth", province=>2},
+ "BTF"=>{city=>"Bitterfeld", province=>14},
+ "BU"=>{city=>"Burgdorf", province=>9},
+ "BUL"=>{city=>"Burglengenfeld", province=>2},
+ "BZ"=>{city=>"Bautzen", province=>13},
+ "BZA"=>{city=>"Bergzabern", province=>11},
+ "BÖ"=>{city=>"Bördekreis", province=>14},
+ "BÜD"=>{city=>"Büdingen", province=>7},
+ "BÜR"=>{city=>"Büren", province=>10},
+ "BÜS"=>{city=>"Büsingen", province=>1},
+ "BÜZ"=>{city=>"Bützow", province=>8},
+ "C"=>{city=>"Chemnitz", province=>13},
+ "CA"=>{city=>"Calau", province=>4},
+ "CAS"=>{city=>"Castrop-Rauxel", province=>10},
+ "CB"=>{city=>"Cottbus", province=>4},
+ "CE"=>{city=>"Celle", province=>9},
+ "CHA"=>{city=>"Cham", province=>2},
+ "CLP"=>{city=>"Cloppenburg", province=>9},
+ "CLZ"=>{city=>"Clausthal-Zellerfeld", province=>9},
+ "CO"=>{city=>"Coburg", province=>2},
+ "COC"=>{city=>"Cochem-Zell", province=>11},
+ "COE"=>{city=>"Coesfeld", province=>10},
+ "CR"=>{city=>"Crailsheim", province=>1},
+ "CUX"=>{city=>"Cuxhaven", province=>9},
+ "CW"=>{city=>"Calw", province=>1},
+ "D"=>{city=>"Düsseldorf", province=>10},
+ "DA"=>{city=>"Darmstadt", province=>7},
+ "DAH"=>{city=>"Dachau ", province=>2},
+ "DAN"=>{city=>"Lüchow-Dannenberg", province=>9},
+ "DAU"=>{city=>"Daun", province=>11},
+ "DBR"=>{city=>"Bad Doberan", province=>8},
+ "DD"=>{city=>"Dresden", province=>13},
+ "DE"=>{city=>"Dessau", province=>14},
+ "DEG"=>{city=>"Deggendorf", province=>2},
+ "DEL"=>{city=>"Delmenhorst", province=>9},
+ "DGF"=>{city=>"Dingolfing-Landau", province=>2},
+ "DH"=>{city=>"Diepholz", province=>9},
+ "DI"=>{city=>"Dieburg", province=>7},
+ "DIL"=>{city=>"Dillenburg", province=>7},
+ "DIN"=>{city=>"Dinslaken", province=>10},
+ "DIZ"=>{city=>"Diez", province=>11},
+ "DKB"=>{city=>"Dinkelsbühl", province=>2},
+ "DL"=>{city=>"Döbeln", province=>13},
+ "DLG"=>{city=>"Dillingen a. d. Donau", province=>2},
+ "DM"=>{city=>"Demmin", province=>8},
+ "DN"=>{city=>"Düren", province=>10},
+ "DO"=>{city=>"Dortmund", province=>10},
+ "DON"=>{city=>"Donau-Ries", province=>2},
+ "DS"=>{city=>"Donaueschingen", province=>1},
+ "DT"=>{city=>"Detmold", province=>10},
+ "DU"=>{city=>"Duisburg", province=>10},
+ "DUD"=>{city=>"Duderstadt", province=>9},
+ "DW"=>{city=>"Weißeritzkreis", province=>13},
+ "DZ"=>{city=>"Delitzsch", province=>13},
+ "DÜW"=>{city=>"Bad Dürkheim", province=>11},
+ "E"=>{city=>"Essen", province=>10},
+ "EA"=>{city=>"Eisenach, Stadt", province=>15},
+ "EB"=>{city=>"Eilenburg", province=>13},
+ "EBE"=>{city=>"Ebersberg", province=>2},
+ "EBN"=>{city=>"Ebern", province=>2},
+ "EBS"=>{city=>"Ebermannstadt", province=>2},
+ "ECK"=>{city=>"Eckernförde", province=>16},
+ "ED"=>{city=>"Erding", province=>2},
+ "EE"=>{city=>"Elbe-Elster", province=>4},
+ "EF"=>{city=>"Erfurt", province=>15},
+ "EG"=>{city=>"Eggenfelden", province=>2},
+ "EH"=>{city=>"Eisenhüttenstadt", province=>4},
+ "EHI"=>{city=>"Ehingen", province=>1},
+ "EI"=>{city=>"Eichstätt", province=>2},
+ "EIC"=>{city=>"Eichsfeld", province=>15},
+ "EIH"=>{city=>"Eichstätt-Kreis", province=>2},
+ "EIL"=>{city=>"Eisleben", province=>14},
+ "EIN"=>{city=>"Einbeck", province=>9},
+ "EIS"=>{city=>"Saale-Holzlandkreis, Eisenberg", province=>15},
+ "EL"=>{city=>"Emsland", province=>9},
+ "EM"=>{city=>"Emmendingen", province=>1},
+ "EMD"=>{city=>"Emden", province=>9},
+ "EMS"=>{city=>"Rhein-Lahn-Kreis", province=>11},
+ "EN"=>{city=>"Ennepe-Ruhr-Kreis", province=>10},
+ "ER"=>{city=>"Erlangen", province=>2},
+ "ERB"=>{city=>"Odenwaldkreis", province=>7},
+ "ERH"=>{city=>"Erlangen-Höchstadt", province=>2},
+ "ERK"=>{city=>"Erkelenz", province=>10},
+ "ES"=>{city=>"Esslingen", province=>1},
+ "ESA"=>{city=>"Eisenach", province=>15},
+ "ESB"=>{city=>"Eschenbach i.d.Oberpfalz", province=>2},
+ "ESW"=>{city=>"Werra-Meißner-Kreis", province=>7},
+ "EU"=>{city=>"Euskirchen", province=>10},
+ "EUT"=>{city=>"Eutin", province=>16},
+ "EW"=>{city=>"Eberswalde", province=>4},
+ "F"=>{city=>"Frankfurt am Main", province=>7},
+ "FAL"=>{city=>"Fallingbostel", province=>9},
+ "FB"=>{city=>"Wetteraukreis", province=>7},
+ "FD"=>{city=>"Fulda", province=>7},
+ "FDB"=>{city=>"Friedberg", province=>2},
+ "FDS"=>{city=>"Freudenstadt", province=>1},
+ "FEU"=>{city=>"Feuchtwangen", province=>2},
+ "FF"=>{city=>"Frankfurt / Oder", province=>4},
+ "FFB"=>{city=>"Fürstenfeldbruck", province=>2},
+ "FG"=>{city=>"Freiberg", province=>13},
+ "FH"=>{city=>"Frankfurt / Main-Höchst", province=>7},
+ "FI"=>{city=>"Finsterwalde", province=>4},
+ "FKB"=>{city=>"Frankenberg", province=>7},
+ "FL"=>{city=>"Flensburg", province=>16},
+ "FLÖ"=>{city=>"Flöha", province=>13},
+ "FN"=>{city=>"Bodenseekreis", province=>1},
+ "FO"=>{city=>"Forchheim", province=>2},
+ "FOR"=>{city=>"Forst", province=>4},
+ "FR"=>{city=>"Freiburg", province=>1},
+ "FRG"=>{city=>"Freyung-Grafenau", province=>2},
+ "FRI"=>{city=>"Friesland", province=>9},
+ "FRW"=>{city=>"Bad Freienwalde", province=>4},
+ "FS"=>{city=>"Freising", province=>2},
+ "FT"=>{city=>"Frankenthal", province=>11},
+ "FTL"=>{city=>"Freital", province=>13},
+ "FW"=>{city=>"Fürstenwalde", province=>4},
+ "FZ"=>{city=>"Fritzlar", province=>7},
+ "FÜ"=>{city=>"Fürth", province=>2},
+ "FÜS"=>{city=>"Füssen", province=>2},
+ "G"=>{city=>"Gera", province=>15},
+ "GA"=>{city=>"Gardelegen", province=>14},
+ "GAN"=>{city=>"Bad Gandersheim", province=>9},
+ "GAP"=>{city=>"Garmisch-Partenkirchen", province=>2},
+ "GC"=>{city=>"Chemnitzer Land", province=>13},
+ "GD"=>{city=>"Schwäbisch Gmünd", province=>1},
+ "GDB"=>{city=>"Gadebusch", province=>8},
+ "GE"=>{city=>"Gelsenkirchen", province=>10},
+ "GEL"=>{city=>"Geldern", province=>10},
+ "GEM"=>{city=>"Gemünden a.Main", province=>2},
+ "GEO"=>{city=>"Gerolzhofen", province=>2},
+ "GER"=>{city=>"Germersheim", province=>11},
+ "GF"=>{city=>"Gifhorn", province=>9},
+ "GG"=>{city=>"Groß-Gerau", province=>7},
+ "GHA"=>{city=>"Geithain", province=>13},
+ "GHC"=>{city=>"Gräfenhainichen", province=>14},
+ "GI"=>{city=>"Gießen", province=>7},
+ "GK"=>{city=>"Geilenkirchen-Heinsberg", province=>10},
+ "GL"=>{city=>"Rheinisch-Bergischer Kreis", province=>10},
+ "GLA"=>{city=>"Gladbeck", province=>10},
+ "GM"=>{city=>"Oberbergischer Kreis", province=>10},
+ "GMN"=>{city=>"Grimmen", province=>8},
+ "GN"=>{city=>"Gelnhausen", province=>7},
+ "GNT"=>{city=>"Genthin", province=>14},
+ "GOA"=>{city=>"St. Goar", province=>11},
+ "GOH"=>{city=>"St. Goarshausen", province=>11},
+ "GP"=>{city=>"Göppingen", province=>1},
+ "GR"=>{city=>"Görlitz", province=>13},
+ "GRA"=>{city=>"Grafenau", province=>2},
+ "GRH"=>{city=>"Großenhain", province=>13},
+ "GRI"=>{city=>"Griesbach i. Rottal", province=>2},
+ "GRM"=>{city=>"Grimma", province=>13},
+ "GRS"=>{city=>"Gransee", province=>4},
+ "GRZ"=>{city=>"Greiz", province=>15},
+ "GS"=>{city=>"Goslar", province=>9},
+ "GT"=>{city=>"Gütersloh", province=>10},
+ "GTH"=>{city=>"Gotha", province=>15},
+ "GUB"=>{city=>"Guben", province=>4},
+ "GUN"=>{city=>"Gunzenhausen", province=>2},
+ "GV"=>{city=>"Grevenbroich", province=>10},
+ "GVM"=>{city=>"Grevesmühlen", province=>8},
+ "GW"=>{city=>"Greifswald Land", province=>8},
+ "GZ"=>{city=>"Günzburg", province=>2},
+ "GÖ"=>{city=>"Göttingen", province=>9},
+ "GÜ"=>{city=>"Güstrow", province=>8},
+ "H"=>{city=>"Hannover", province=>9},
+ "HA"=>{city=>"Hagen", province=>10},
+ "HAB"=>{city=>"Hammelburg", province=>2},
+ "HAL"=>{city=>"Halle", province=>14},
+ "HAM"=>{city=>"Hamm", province=>10},
+ "HAS"=>{city=>"Haßberge", province=>2},
+ "HB"=>{city=>"Bremen", province=>5},
+ "HBN"=>{city=>"Hildburghausen", province=>15},
+ "HBS"=>{city=>"Halberstadt", province=>14},
+ "HC"=>{city=>"Hainichen", province=>13},
+ "HCH"=>{city=>"Hechingen", province=>1},
+ "HD"=>{city=>"Rhein-Neckar-Kreis", province=>1},
+ "HDH"=>{city=>"Heidenheim (Brenz)", province=>1},
+ "HDL"=>{city=>"Haldensleben", province=>14},
+ "HE"=>{city=>"Helmstedt", province=>9},
+ "HEB"=>{city=>"Hersbruck", province=>2},
+ "HEF"=>{city=>"Hersfeld-Rotenburg", province=>7},
+ "HEI"=>{city=>"Dithmarschen", province=>16},
+ "HER"=>{city=>"Herne", province=>10},
+ "HET"=>{city=>"Hettstedt", province=>14},
+ "HF"=>{city=>"Herford", province=>10},
+ "HG"=>{city=>"Hochtaunus-Kreis", province=>7},
+ "HGN"=>{city=>"Hagenow", province=>8},
+ "HGW"=>{city=>"Greifswald", province=>8},
+ "HH"=>{city=>"Hamburg", province=>6},
+ "HHM"=>{city=>"Hohenmölsen", province=>14},
+ "HI"=>{city=>"Hildesheim", province=>9},
+ "HIG"=>{city=>"Eichsfeld, Heiligenstadt", province=>15},
+ "HIP"=>{city=>"Hilpoltstein", province=>2},
+ "HL"=>{city=>"Lübeck", province=>16},
+ "HM"=>{city=>"Hameln-Pyrmont", province=>9},
+ "HMÜ"=>{city=>"Hann. Münden", province=>9},
+ "HN"=>{city=>"Heilbronn", province=>1},
+ "HO"=>{city=>"Hof", province=>2},
+ "HOG"=>{city=>"Hofgeismar", province=>7},
+ "HOH"=>{city=>"Hofheim i. Ufr.", province=>2},
+ "HOL"=>{city=>"Holzminden", province=>9},
+ "HOM"=>{city=>"Saarpfalz-Kreis", province=>12},
+ "HOR"=>{city=>"Horb", province=>1},
+ "HOT"=>{city=>"Hohenstein-Ernstthal", province=>13},
+ "HP"=>{city=>"Bergstraße", province=>7},
+ "HR"=>{city=>"Schwalm-Eder-Kreis", province=>7},
+ "HRO"=>{city=>"Rostock", province=>8},
+ "HS"=>{city=>"Heinsberg", province=>10},
+ "HSK"=>{city=>"Hochsauerland-Kreis", province=>10},
+ "HST"=>{city=>"Stralsund", province=>8},
+ "HU"=>{city=>"Main-Kinzig-Kreis", province=>7},
+ "HUS"=>{city=>"Husum", province=>16},
+ "HV"=>{city=>"Havelberg", province=>14},
+ "HVL"=>{city=>"Havelland", province=>4},
+ "HW"=>{city=>"Halle/Westfalen", province=>10},
+ "HWI"=>{city=>"Wismar", province=>8},
+ "HX"=>{city=>"Höxter", province=>10},
+ "HY"=>{city=>"Hoyerswerda", province=>13},
+ "HZ"=>{city=>"Herzberg", province=>4},
+ "HÖS"=>{city=>"Höchstadt a. d. Aisch", province=>2},
+ "HÜN"=>{city=>"Hünfeld", province=>7},
+ "IGB"=>{city=>"St. Ingbert", province=>12},
+ "IK"=>{city=>"Ilm-Kreis", province=>15},
+ "IL"=>{city=>"Ilmenau", province=>15},
+ "ILL"=>{city=>"Illertissen", province=>2},
+ "IN"=>{city=>"Ingolstadt", province=>2},
+ "IS"=>{city=>"Iserlohn", province=>10},
+ "IZ"=>{city=>"Steinburg", province=>16},
+ "J"=>{city=>"Jena", province=>15},
+ "JB"=>{city=>"Jüterbog", province=>4},
+ "JE"=>{city=>"Jessen", province=>14},
+ "JEV"=>{city=>"Jever", province=>9},
+ "JL"=>{city=>"Jerichower Land", province=>14},
+ "JÜL"=>{city=>"Jülich", province=>10},
+ "K"=>{city=>"Köln", province=>10},
+ "KA"=>{city=>"Karlsruhe", province=>1},
+ "KAR"=>{city=>"Karlstadt", province=>2},
+ "KB"=>{city=>"Waldeck-Frankenberg", province=>7},
+ "KC"=>{city=>"Kronach", province=>2},
+ "KE"=>{city=>"Kempten", province=>2},
+ "KEH"=>{city=>"Kelheim", province=>2},
+ "KEL"=>{city=>"Kehl", province=>1},
+ "KEM"=>{city=>"Kemnath", province=>2},
+ "KF"=>{city=>"Kaufbeuren", province=>2},
+ "KG"=>{city=>"Bad Kissingen", province=>2},
+ "KH"=>{city=>"Bad Kreuznach", province=>11},
+ "KI"=>{city=>"Kiel", province=>16},
+ "KIB"=>{city=>"Donnersberg-Kreis", province=>11},
+ "KK"=>{city=>"Kempen-Krefeld", province=>10},
+ "KL"=>{city=>"Kaiserslautern", province=>11},
+ "KLE"=>{city=>"Kleve", province=>10},
+ "KLZ"=>{city=>"Klötze", province=>14},
+ "KM"=>{city=>"Kamenz", province=>13},
+ "KN"=>{city=>"Konstanz", province=>1},
+ "KO"=>{city=>"Koblenz", province=>11},
+ "KR"=>{city=>"Krefeld", province=>10},
+ "KRU"=>{city=>"Krumbach", province=>2},
+ "KS"=>{city=>"Kassel", province=>7},
+ "KT"=>{city=>"Kitzingen", province=>2},
+ "KU"=>{city=>"Kulmbach", province=>2},
+ "KUS"=>{city=>"Kusel", province=>11},
+ "KW"=>{city=>"Königs-Wusterhausen", province=>4},
+ "KY"=>{city=>"Kyritz", province=>4},
+ "KYF"=>{city=>"Kyffhäuserkreis", province=>15},
+ "KÖN"=>{city=>"Bad Königshofen i. Grabfeld", province=>2},
+ "KÖT"=>{city=>"Köthen", province=>14},
+ "KÖZ"=>{city=>"Kötzting", province=>2},
+ "KÜN"=>{city=>"Hohenlohekreis", province=>1},
+ "L"=>{city=>"Leipzig / Leipziger Land", province=>13},
+ "LA"=>{city=>"Landshut", province=>2},
+ "LAN"=>{city=>"Landau a.d.Isar", province=>2},
+ "LAT"=>{city=>"Lauterbach", province=>7},
+ "LAU"=>{city=>"Nürnberger Land", province=>2},
+ "LB"=>{city=>"Ludwigsburg", province=>1},
+ "LBS"=>{city=>"Lobenstein", province=>15},
+ "LBZ"=>{city=>"Lübz", province=>8},
+ "LC"=>{city=>"Luckau", province=>4},
+ "LD"=>{city=>"Landau i. d. Pfalz", province=>11},
+ "LDK"=>{city=>"Lahn-Dill-Kreis", province=>7},
+ "LDS"=>{city=>"Dahme-Spreewald", province=>4},
+ "LE"=>{city=>"Lemgo", province=>10},
+ "LEO"=>{city=>"Leonberg", province=>1},
+ "LER"=>{city=>"Leer", province=>9},
+ "LEV"=>{city=>"Leverkusen", province=>10},
+ "LF"=>{city=>"Laufen", province=>2},
+ "LG"=>{city=>"Lüneburg", province=>9},
+ "LH"=>{city=>"Lüdinghausen", province=>10},
+ "LI"=>{city=>"Lindau", province=>2},
+ "LIB"=>{city=>"Bad Liebenwerda", province=>4},
+ "LIF"=>{city=>"Lichtenfels", province=>2},
+ "LIN"=>{city=>"Lingen", province=>9},
+ "LIP"=>{city=>"Lippe", province=>10},
+ "LK"=>{city=>"Lübbecke", province=>10},
+ "LL"=>{city=>"Landsberg am Lech", province=>2},
+ "LM"=>{city=>"Limburg-Weilburg", province=>7},
+ "LN"=>{city=>"Lübben", province=>4},
+ "LOH"=>{city=>"Lohr a.Main", province=>2},
+ "LOS"=>{city=>"Oder-Spree", province=>4},
+ "LP"=>{city=>"Lippstadt", province=>10},
+ "LR"=>{city=>"Lahr", province=>1},
+ "LSZ"=>{city=>"Bad Langensalza", province=>15},
+ "LU"=>{city=>"Ludwigshafen", province=>11},
+ "LUK"=>{city=>"Luckenwalde", province=>4},
+ "LWL"=>{city=>"Ludwigslust", province=>8},
+ "LÖ"=>{city=>"Lörrach", province=>1},
+ "LÖB"=>{city=>"Löbau", province=>13},
+ "LÜD"=>{city=>"Lüdenscheid, Stadt", province=>10},
+ "LÜN"=>{city=>"Lünen", province=>10},
+ "M"=>{city=>"München", province=>2},
+ "MA"=>{city=>"Mannheim", province=>1},
+ "MAB"=>{city=>"Marienberg", province=>13},
+ "MAI"=>{city=>"Mainburg", province=>2},
+ "MAK"=>{city=>"Marktredwitz", province=>2},
+ "MAL"=>{city=>"Mallersdorf", province=>2},
+ "MAR"=>{city=>"Marktheidenfeld", province=>2},
+ "MB"=>{city=>"Miesbach", province=>2},
+ "MC"=>{city=>"Malchin", province=>8},
+ "MD"=>{city=>"Magdeburg", province=>14},
+ "ME"=>{city=>"Mettmann", province=>10},
+ "MED"=>{city=>"Meldorf /Suderdithmarschen", province=>16},
+ "MEG"=>{city=>"Melsungen", province=>7},
+ "MEI"=>{city=>"Meißen", province=>13},
+ "MEK"=>{city=>"Mittlerer Erzgebirgskreis", province=>13},
+ "MEL"=>{city=>"Melle", province=>9},
+ "MEP"=>{city=>"Meppen", province=>9},
+ "MER"=>{city=>"Merseburg", province=>14},
+ "MES"=>{city=>"Meschede", province=>10},
+ "MET"=>{city=>"Mellrichstadt", province=>2},
+ "MG"=>{city=>"Mönchengladbach", province=>10},
+ "MGH"=>{city=>"Bad Mergentheim", province=>1},
+ "MGN"=>{city=>"Meiningen", province=>15},
+ "MH"=>{city=>"Mülheim an der Ruhr", province=>"Nordrhein-Westfalen."},
+ "MHL"=>{city=>"Unstrut-Hainich-Kreis, Mühlhausen", province=>15},
+ "MI"=>{city=>"Minden", province=>10},
+ "MIL"=>{city=>"Miltenberg", province=>2},
+ "MK"=>{city=>"Märkischer Kreis", province=>10},
+ "ML"=>{city=>"Mansfelder Land", province=>14},
+ "MM"=>{city=>"Memmingen", province=>2},
+ "MN"=>{city=>"Unterallgäu", province=>2},
+ "MO"=>{city=>"Moers", province=>10},
+ "MOD"=>{city=>"Marktoberdorf", province=>2},
+ "MOL"=>{city=>"Märkisch-Oderland", province=>4},
+ "MON"=>{city=>"Monschau", province=>10},
+ "MOS"=>{city=>"Neckar-Odenwald-Kreis", province=>1},
+ "MQ"=>{city=>"Merseburg-Querfurt", province=>14},
+ "MR"=>{city=>"Marburg-Biedenkopf", province=>7},
+ "MS"=>{city=>"Münster", province=>10},
+ "MSP"=>{city=>"Main-Spessart", province=>2},
+ "MST"=>{city=>"Mecklenburg-Strelitz", province=>8},
+ "MT"=>{city=>"Montabaur", province=>11},
+ "MTK"=>{city=>"Main-Taunus-Kreis", province=>7},
+ "MTL"=>{city=>"Muldentalkreis", province=>13},
+ "MW"=>{city=>"Mittweida", province=>13},
+ "MY"=>{city=>"Mayen", province=>11},
+ "MYK"=>{city=>"Mayen-Koblenz", province=>11},
+ "MZ"=>{city=>"Mainz (-Bingen)", province=>11},
+ "MZG"=>{city=>"Merzig-Saar", province=>12},
+ "MÜ"=>{city=>"Mühldorf am Inn", province=>2},
+ "MÜB"=>{city=>"Münchberg", province=>2},
+ "MÜL"=>{city=>"Müllheim", province=>1},
+ "MÜN"=>{city=>"Münsingen", province=>1},
+ "MÜR"=>{city=>"Müritz", province=>8},
+ "N"=>{city=>"Nürnberg", province=>2},
+ "NAB"=>{city=>"Nabburg", province=>2},
+ "NAI"=>{city=>"Naila", province=>2},
+ "NAU"=>{city=>"Nauen", province=>4},
+ "NB"=>{city=>"Neubrandenburg", province=>8},
+ "ND"=>{city=>"Neuburg-Schrobenhausen", province=>2},
+ "NDH"=>{city=>"Nordhausen", province=>15},
+ "NE"=>{city=>"Neuss", province=>10},
+ "NEA"=>{city=>"Neustadt a. d. Aisch", province=>2},
+ "NEB"=>{city=>"Nebra", province=>14},
+ "NEC"=>{city=>"Neustadt b.Coburg", province=>2},
+ "NEN"=>{city=>"Neunburg vorm Wald", province=>2},
+ "NES"=>{city=>"Rhön-Grabfeld", province=>2},
+ "NEU"=>{city=>"Titisee-Neustadt im Schwarzwald", province=>1},
+ "NEW"=>{city=>"Neustadt an der Waldnaab", province=>2},
+ "NF"=>{city=>"Nordfriesland", province=>16},
+ "NH"=>{city=>"Neuhaus am Rennweg", province=>15},
+ "NI"=>{city=>"Nienburg", province=>9},
+ "NIB"=>{city=>"Niebüll", province=>16},
+ "NK"=>{city=>"Neunkirchen", province=>12},
+ "NM"=>{city=>"Neumarkt", province=>2},
+ "NMB"=>{city=>"Naumburg", province=>14},
+ "NMS"=>{city=>"Neumünster", province=>16},
+ "NOH"=>{city=>"Bentheim", province=>9},
+ "NOL"=>{city=>"Niederschlesische Oberlausitz", province=>13},
+ "NOM"=>{city=>"Northeim", province=>9},
+ "NOR"=>{city=>"Norden", province=>9},
+ "NP"=>{city=>"Neuruppin", province=>4},
+ "NR"=>{city=>"Neuwied", province=>11},
+ "NRÜ"=>{city=>"Neustadt a.Rübenberge", province=>9},
+ "NT"=>{city=>"Nürtingen", province=>1},
+ "NU"=>{city=>"Neu-Ulm", province=>2},
+ "NVP"=>{city=>"Nordvorpommern", province=>8},
+ "NW"=>{city=>"Neustadt a. d. Weinstraße", province=>11},
+ "NWM"=>{city=>"Nordwestmecklenburg", province=>8},
+ "NY"=>{city=>"Niesky", province=>13},
+ "NZ"=>{city=>"Neustrelitz", province=>8},
+ "NÖ"=>{city=>"Nördlingen", province=>2},
+ "OA"=>{city=>"Oberallgäu", province=>2},
+ "OAL"=>{city=>"Ostallgäu", province=>2},
+ "OB"=>{city=>"Oberhausen", province=>10},
+ "OBB"=>{city=>"Obernburg a. Main", province=>2},
+ "OBG"=>{city=>"Osterburg", province=>14},
+ "OC"=>{city=>"Oschersleben", province=>14},
+ "OCH"=>{city=>"Ochsenfurt", province=>2},
+ "OD"=>{city=>"Stormarn", province=>16},
+ "OE"=>{city=>"Olpe", province=>10},
+ "OF"=>{city=>"Offenbach", province=>7},
+ "OG"=>{city=>"Ortenaukreis", province=>1},
+ "OH"=>{city=>"Ostholstein", province=>16},
+ "OHA"=>{city=>"Osterode am Harz", province=>9},
+ "OHV"=>{city=>"Oberhavel", province=>4},
+ "OHZ"=>{city=>"Osterholz-Scharmbeck", province=>9},
+ "OK"=>{city=>"Ohre-Kreis", province=>14},
+ "OL"=>{city=>"Oldenburg", province=>9},
+ "OLD"=>{city=>"Oldenburg/Holstein", province=>16},
+ "OP"=>{city=>"Opladen", province=>10},
+ "OPR"=>{city=>"Ostprignitz-Ruppin", province=>4},
+ "OR"=>{city=>"Oranienburg", province=>4},
+ "OS"=>{city=>"Osnabrück", province=>9},
+ "OSL"=>{city=>"Oberspreewald-Lausitz", province=>4},
+ "OTT"=>{city=>"Otterndorf", province=>9},
+ "OTW"=>{city=>"Ottweiler", province=>12},
+ "OVI"=>{city=>"Oberviechtach", province=>2},
+ "OVL"=>{city=>"Obervogtland", province=>13},
+ "OVP"=>{city=>"Ostvorpommern", province=>8},
+ "OZ"=>{city=>"Oschatz", province=>13},
+ "ÖHR"=>{city=>"Öhringen", province=>1},
+ "P"=>{city=>"Potsdam", province=>4},
+ "PA"=>{city=>"Passau", province=>2},
+ "PAF"=>{city=>"Pfaffenhofen", province=>2},
+ "PAN"=>{city=>"Rottal-Inn", province=>2},
+ "PAR"=>{city=>"Parsberg", province=>2},
+ "PB"=>{city=>"Paderborn", province=>10},
+ "PCH"=>{city=>"Parchim", province=>8},
+ "PE"=>{city=>"Peine", province=>9},
+ "PEG"=>{city=>"Pegnitz", province=>2},
+ "PER"=>{city=>"Perleberg", province=>4},
+ "PF"=>{city=>"Pforzheim / Enzkreis", province=>1},
+ "PI"=>{city=>"Pinneberg", province=>16},
+ "PIR"=>{city=>"Sächsische Schweiz", province=>13},
+ "PK"=>{city=>"Pritzwalk", province=>4},
+ "PL"=>{city=>"Plauen", province=>13},
+ "PLÖ"=>{city=>"Plön", province=>16},
+ "PM"=>{city=>"Potsdam-Mittelmark", province=>4},
+ "PN"=>{city=>"Pößneck", province=>15},
+ "PR"=>{city=>"Prignitz", province=>4},
+ "PRÜ"=>{city=>"Prüm", province=>11},
+ "PS"=>{city=>"Pirmasens / Südwestpfalz", province=>11},
+ "PW"=>{city=>"Pasewalk", province=>8},
+ "PZ"=>{city=>"Prenzlau", province=>4},
+ "QFT"=>{city=>"Querfurt", province=>14},
+ "QLB"=>{city=>"Quedlinburg", province=>14},
+ "R"=>{city=>"Regensburg", province=>2},
+ "RA"=>{city=>"Rastatt", province=>1},
+ "RC"=>{city=>"Reichenbach", province=>13},
+ "RD"=>{city=>"Rendsburg-Eckernförde", province=>16},
+ "RDG"=>{city=>"Ribnitz-Damgarten", province=>8},
+ "RE"=>{city=>"Recklinghausen", province=>10},
+ "REG"=>{city=>"Regen", province=>2},
+ "REH"=>{city=>"Rehau", province=>2},
+ "REI"=>{city=>"Bad Reichenhall", province=>2},
+ "RG"=>{city=>"Großenhain", province=>13},
+ "RH"=>{city=>"Roth", province=>2},
+ "RI"=>{city=>"Rinteln", province=>9},
+ "RID"=>{city=>"Riedenburg", province=>2},
+ "RIE"=>{city=>"Riesa", province=>13},
+ "RL"=>{city=>"Rochlitz", province=>13},
+ "RM"=>{city=>"Röbel", province=>8},
+ "RN"=>{city=>"Rathenow", province=>4},
+ "RO"=>{city=>"Rosenheim", province=>2},
+ "ROD"=>{city=>"Roding", province=>2},
+ "ROF"=>{city=>"Rotenburg/Fulda", province=>7},
+ "ROK"=>{city=>"Rockenhausen", province=>11},
+ "ROL"=>{city=>"Rottenburg a. d. Laaber", province=>2},
+ "ROS"=>{city=>"Rostock-Kreis", province=>8},
+ "ROT"=>{city=>"Rothenburg o.d.Tauber", province=>2},
+ "ROW"=>{city=>"Rotenburg (Wümme)", province=>9},
+ "RS"=>{city=>"Remscheid", province=>10},
+ "RSL"=>{city=>"Roßlau", province=>14},
+ "RT"=>{city=>"Reutlingen", province=>1},
+ "RU"=>{city=>"Rudolstadt", province=>15},
+ "RV"=>{city=>"Ravensburg", province=>1},
+ "RW"=>{city=>"Rottweil", province=>1},
+ "RY"=>{city=>"Rheydt", province=>10},
+ "RZ"=>{city=>"Herzogtum Lauenburg", province=>16},
+ "RÜD"=>{city=>"Rheingau-Taunus-Kreis", province=>7},
+ "RÜG"=>{city=>"Rügen", province=>8},
+ "S"=>{city=>"Stuttgart", province=>1},
+ "SAB"=>{city=>"Saarburg", province=>11},
+ "SAD"=>{city=>"Schwandorf in Bayern", province=>2},
+ "SAN"=>{city=>"Stadtsteinach", province=>2},
+ "SAW"=>{city=>"Altmarkkreis Salzwedel", province=>14},
+ "SB"=>{city=>"Saarbrücken", province=>12},
+ "SBG"=>{city=>"Strasburg", province=>8},
+ "SBK"=>{city=>"Schönebeck", province=>"Sachsen Anhalt"},
+ "SC"=>{city=>"Schwabach", province=>2},
+ "SCZ"=>{city=>"Schleiz", province=>15},
+ "SDH"=>{city=>"Sondershausen", province=>15},
+ "SDL"=>{city=>"Stendal", province=>14},
+ "SDT"=>{city=>"Schwedt", province=>4},
+ "SE"=>{city=>"Bad Segeberg", province=>16},
+ "SEB"=>{city=>"Sebnitz", province=>13},
+ "SEE"=>{city=>"Seelow", province=>4},
+ "SEF"=>{city=>"Scheinfeld", province=>2},
+ "SEL"=>{city=>"Selb", province=>2},
+ "SF"=>{city=>"Sonthofen", province=>2},
+ "SFA"=>{city=>"Soltau-Fallingbostel", province=>9},
+ "SFB"=>{city=>"Senftenberg", province=>4},
+ "SFT"=>{city=>"Staßfurt", province=>14},
+ "SG"=>{city=>"Solingen", province=>10},
+ "SGH"=>{city=>"Sangerhausen", province=>14},
+ "SHA"=>{city=>"Schwäbisch Hall", province=>1},
+ "SHG"=>{city=>"Schaumburg", province=>9},
+ "SHK"=>{city=>"Saale-Holzland-Kreis", province=>15},
+ "SHL"=>{city=>"Suhl", province=>15},
+ "SI"=>{city=>"Siegen", province=>10},
+ "SIG"=>{city=>"Sigmaringen", province=>1},
+ "SIM"=>{city=>"Rhein-Hunsrück-Kreis", province=>11},
+ "SK"=>{city=>"Saalkreis", province=>14},
+ "SL"=>{city=>"Schleswig-Flensburg", province=>16},
+ "SLE"=>{city=>"Schleiden", province=>10},
+ "SLF"=>{city=>"Saalfeld-Rudolstadt", province=>15},
+ "SLG"=>{city=>"Saulgau", province=>1},
+ "SLN"=>{city=>"Schmölln", province=>15},
+ "SLS"=>{city=>"Saarlouis", province=>12},
+ "SLZ"=>{city=>"Bad Salzungen", province=>15},
+ "SLÜ"=>{city=>"Schlüchtern", province=>7},
+ "SM"=>{city=>"Schmalkalden-Meiningen", province=>15},
+ "SMÜ"=>{city=>"Schwabmünchen", province=>2},
+ "SN"=>{city=>"Schwerin", province=>8},
+ "SNH"=>{city=>"Sinsheim Elsenz", province=>1},
+ "SO"=>{city=>"Soest", province=>10},
+ "SOB"=>{city=>"Schrobenhausen", province=>2},
+ "SOG"=>{city=>"Schongau", province=>2},
+ "SOK"=>{city=>"Saale-Orla-Kreis", province=>15},
+ "SOL"=>{city=>"Soltau", province=>9},
+ "SON"=>{city=>"Sonneberg", province=>15},
+ "SP"=>{city=>"Speyer", province=>11},
+ "SPB"=>{city=>"Spremberg", province=>4},
+ "SPN"=>{city=>"Spree-Neiße", province=>4},
+ "SPR"=>{city=>"Springe", province=>9},
+ "SR"=>{city=>"Straubing (-Bogen)", province=>2},
+ "SRB"=>{city=>"Strausberg", province=>4},
+ "SRO"=>{city=>"Stadtroda", province=>15},
+ "ST"=>{city=>"Steinfurt", province=>10},
+ "STA"=>{city=>"Starnberg", province=>2},
+ "STB"=>{city=>"Sternberg", province=>8},
+ "STD"=>{city=>"Stade", province=>9},
+ "STE"=>{city=>"Staffelstein", province=>2},
+ "STH"=>{city=>"Schaumburg-Lippe", province=>9},
+ "STL"=>{city=>"Stollberg", province=>13},
+ "STO"=>{city=>"Stockach", province=>1},
+ "SU"=>{city=>"Rhein-Sieg-Kreis", province=>10},
+ "SUL"=>{city=>"Sulzbach-Rosenberg", province=>2},
+ "SW"=>{city=>"Schweinfurt", province=>2},
+ "SWA"=>{city=>"Bad Schwalbach", province=>7},
+ "SY"=>{city=>"Syke", province=>9},
+ "SZ"=>{city=>"Salzgitter", province=>9},
+ "SZB"=>{city=>"Schwarzenberg", province=>13},
+ "SÄK"=>{city=>"Säckingen", province=>1},
+ "SÖM"=>{city=>"Sömmerda", province=>15},
+ "SÜW"=>{city=>"Südliche Weinstraße", province=>11},
+ "TBB"=>{city=>"Main-Tauber-Kreis", province=>1},
+ "TE"=>{city=>"Tecklenburg", province=>10},
+ "TET"=>{city=>"Teterow", province=>8},
+ "TF"=>{city=>"Teltow-Fläming", province=>4},
+ "TG"=>{city=>"Torgau", province=>13},
+ "TIR"=>{city=>"Tirschenreuth", province=>2},
+ "TO"=>{city=>"Torgau-Oschatz", province=>13},
+ "TP"=>{city=>"Templin", province=>4},
+ "TR"=>{city=>"Trier", province=>11},
+ "TS"=>{city=>"Traunstein", province=>2},
+ "TT"=>{city=>"Tettnang", province=>1},
+ "TUT"=>{city=>"Tuttlingen", province=>1},
+ "TÖL"=>{city=>"Bad Tölz-Wolfratshausen", province=>2},
+ "TÖN"=>{city=>"Tönning", province=>16},
+ "TÜ"=>{city=>"Tübingen", province=>1},
+ "UE"=>{city=>"Uelzen", province=>9},
+ "UEM"=>{city=>"Ueckermünde", province=>8},
+ "UER"=>{city=>"Uecker-Randow", province=>8},
+ "UFF"=>{city=>"Uffenheim", province=>2},
+ "UH"=>{city=>"Unstrut-Hainich-Kreis", province=>15},
+ "UL"=>{city=>"Ulm / Alb-Donau-Kreis", province=>1},
+ "UM"=>{city=>"Uckermark", province=>4},
+ "UN"=>{city=>"Unna", province=>10},
+ "USI"=>{city=>"Usingen", province=>7},
+ "ÜB"=>{city=>"Überlingen", province=>1},
+ "V"=>{city=>"Vogtlandkreis", province=>13},
+ "VAI"=>{city=>"Vaihingen", province=>1},
+ "VB"=>{city=>"Vogelsbergkreis", province=>7},
+ "VEC"=>{city=>"Vechta", province=>9},
+ "VER"=>{city=>"Verden", province=>9},
+ "VIB"=>{city=>"Vilsbiburg", province=>2},
+ "VIE"=>{city=>"Viersen", province=>10},
+ "VIT"=>{city=>"Viechtach", province=>2},
+ "VK"=>{city=>"Völklingen", province=>12},
+ "VL"=>{city=>"Villingen", province=>1},
+ "VOF"=>{city=>"Vilshofen", province=>2},
+ "VOH"=>{city=>"Vohenstrauß", province=>2},
+ "VS"=>{city=>"Schwarzwald-Baar-Kreis", province=>1},
+ "W"=>{city=>"Wuppertal", province=>10},
+ "WA"=>{city=>"Waldeck", province=>7},
+ "WAF"=>{city=>"Warendorf", province=>10},
+ "WAK"=>{city=>"Wartburgkreis", province=>15},
+ "WAM"=>{city=>"Westlicher Altmark-Kreis", province=>14},
+ "WAN"=>{city=>"Wanne-Eickel", province=>10},
+ "WAR"=>{city=>"Warburg", province=>10},
+ "WAT"=>{city=>"Wattenscheid", province=>10},
+ "WB"=>{city=>"Wittenberg", province=>14},
+ "WBS"=>{city=>"Worbis", province=>15},
+ "WD"=>{city=>"Wiedenbrück", province=>10},
+ "WDA"=>{city=>"Werdau", province=>13},
+ "WE"=>{city=>"Weimar", province=>15},
+ "WEB"=>{city=>"Westerburg-Westerwald", province=>11},
+ "WEG"=>{city=>"Wegscheid", province=>2},
+ "WEL"=>{city=>"Weilburg", province=>7},
+ "WEM"=>{city=>"Wesermünde", province=>9},
+ "WEN"=>{city=>"Weiden", province=>2},
+ "WER"=>{city=>"Wertingen", province=>2},
+ "WES"=>{city=>"Wesel", province=>10},
+ "WF"=>{city=>"Wolfenbüttel", province=>9},
+ "WG"=>{city=>"Wangen", province=>1},
+ "WHV"=>{city=>"Wilhelmshaven", province=>9},
+ "WI"=>{city=>"Wiesbaden", province=>7},
+ "WIL"=>{city=>"Wittlich", province=>11},
+ "WIS"=>{city=>"Wismar, Kreis", province=>8},
+ "WIT"=>{city=>"Witten", province=>10},
+ "WIZ"=>{city=>"Witzenhausen", province=>7},
+ "WK"=>{city=>"Wittstock", province=>4},
+ "WL"=>{city=>"Harburg", province=>9},
+ "WLG"=>{city=>"Wolgast", province=>8},
+ "WM"=>{city=>"Weilheim-Schongau", province=>2},
+ "WMS"=>{city=>"Wolmirstedt", province=>14},
+ "WN"=>{city=>"Rems-Murr-Kreis", province=>1},
+ "WND"=>{city=>"St. Wendel", province=>12},
+ "WO"=>{city=>"Worms", province=>11},
+ "WOB"=>{city=>"Wolfsburg", province=>9},
+ "WOH"=>{city=>"Wolfhagen", province=>7},
+ "WOL"=>{city=>"Wolfach", province=>1},
+ "WOR"=>{city=>"Wolfratshausen", province=>2},
+ "WOS"=>{city=>"Wolfstein", province=>2},
+ "WR"=>{city=>"Wernigerode", province=>14},
+ "WRN"=>{city=>"Waren", province=>8},
+ "WS"=>{city=>"Wasserburg a. Inn", province=>2},
+ "WSF"=>{city=>"Weißenfels", province=>14},
+ "WST"=>{city=>"Ammerland", province=>9},
+ "WSW"=>{city=>"Weißwasser", province=>13},
+ "WT"=>{city=>"Waldshut", province=>1},
+ "WTL"=>{city=>"Wittlage", province=>9},
+ "WTM"=>{city=>"Wittmund", province=>9},
+ "WUG"=>{city=>"Weißenburg-Gunzenhausen", province=>2},
+ "WUN"=>{city=>"Wunsiedel", province=>2},
+ "WUR"=>{city=>"Wurzen", province=>13},
+ "WW"=>{city=>"Westerwald-Kreis", province=>11},
+ "WZ"=>{city=>"Wetzlar", province=>7},
+ "WZL"=>{city=>"Wanzleben", province=>14},
+ "WÜ"=>{city=>"Würzburg", province=>2},
+ "WÜM"=>{city=>"Waldmünchen", province=>2},
+ "Z"=>{city=>"Zwickau (-Land)", province=>13},
+ "ZE"=>{city=>"Zerbst", province=>14},
+ "ZEL"=>{city=>"Zell / Mosel", province=>11},
+ "ZI"=>{city=>"Löbau-Zittau", province=>13},
+ "ZIG"=>{city=>"Ziegenhain", province=>7},
+ "ZP"=>{city=>"Zschopau", province=>13},
+ "ZR"=>{city=>"Zeulenroda", province=>15},
+ "ZS"=>{city=>"Zossen", province=>4},
+ "ZW"=>{city=>"Zweibrücken", province=>11},
+ "ZZ"=>{city=>"Zeitz", province=>14}
+ );
+ my ($key) = @_;
+ $key = $trans{lc $key} if defined $trans{lc $key};
+ my %location;
+ $key = uc($key);
+ my %base = %de_kfz;
+ if (defined $base{$key}) {
+ $location{country} = 'Germany';
+ $location{city} = $base{$key}{'city'};
+ $location{province} = $province{$base{$key}->{province}};
+ } else {
+ #Irssi::print $key;
+ foreach (keys %base) {
+ my $city = $base{$_}{city};
+ #$city = lc($city);
+ #$city =~ s/ä/ae/g;
+ #$city =~ s/ü/ue/g;
+ #$city =~ s/ö/oe/g;
+ #$city = uc($city);
+ if ($city =~ /(^| |-)$key( |-|$)/i) {
+ $location{country} = 'Germany';
+ $location{city} = $base{$_}{city};
+ $location{province} = $province{$base{$_}{province}};
+ }
+ }
+ }
+ return %location;
+}
+
+
+foreach ((352, 315)) {
+ Irssi::signal_add_first('event '.$_, 'process_reply');
+}
+
+sub pre_unload { save_cache(); }
+
+Irssi::signal_add('message join', 'event_message_join');
+Irssi::signal_add('query created', 'event_query_created');
+Irssi::signal_add('setup saved', 'save_cache');
+
+Irssi::settings_add_bool($IRSSI{'name'}, 'localize_background', 1);
+
+Irssi::settings_add_str($IRSSI{'name'}, 'localize_cache_filename', Irssi::get_irssi_dir()."/localize_cache");
+Irssi::settings_add_str($IRSSI{'name'}, 'localize_trace_cmd', "/usr/sbin/traceroute -q 1 -w 2 -I");
+Irssi::settings_add_int($IRSSI{'name'}, 'localize_trace_distance', 3);
+
+Irssi::settings_add_str($IRSSI{'name'}, 'localize_auto_localize_channel_list', '.*');
+Irssi::settings_add_bool($IRSSI{'name'}, 'localize_auto_localize_on_join', 0);
+Irssi::settings_add_bool($IRSSI{'name'}, 'localize_auto_localize_on_query', 1);
+Irssi::settings_add_int($IRSSI{'name'}, 'localize_auto_localize_maxrequests', 5);
+Irssi::settings_add_bool($IRSSI{'name'}, 'localize_get_coordinates', 0);
+Irssi::settings_add_bool($IRSSI{'name'}, 'localize_use_databases', 1);
+Irssi::settings_add_bool($IRSSI{'name'}, 'localize_use_traceroute', 1);
+Irssi::settings_add_bool($IRSSI{'name'}, 'localize_show_message', 1);
+Irssi::settings_add_str($IRSSI{'name'}, 'localize_ipatlas_nocache', '.*\.dip\.t-dialin\.net');
+
+Irssi::settings_add_bool($IRSSI{'name'}, 'localize_xplanet_show_map', 0);
+Irssi::settings_add_str($IRSSI{'name'}, 'localize_xplanet_temp_file', Irssi::get_irssi_dir()."/localize_xplanet_temp");
+Irssi::settings_add_str($IRSSI{'name'}, 'localize_xplanet_cmd', "xplanet -w");
+
+Irssi::theme_register([
+ auto_localize => '%B`->%n $0 ($1) has been localized in $2, $3, $4 %B[%n$5%B]%n',
+]);
+
+Irssi::command_bind('localize', 'cmd_localize');
+
+load_cache();
+print CLIENTCRAP '%B>>%n '.$IRSSI{name}.' '.$VERSION.' loaded: /localize -h for help';