scripts/localize.pl

#!/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&Uuml;",
	"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&Ouml;",
	"obhs" => "OB",
	"dus" => "D",
    );

    my %province = (
	1=>'Baden-W&uuml;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&uuml;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&uuml;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&uuml;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&Ouml;"=>{city=>"Alt&ouml;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&ouml;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&uuml;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&uuml;ckenau", province=>2},
	"BRL"=>{city=>"Braunlage", province=>9},
	"BRV"=>{city=>"Bremerv&ouml;rde", province=>9},
	"BS"=>{city=>"Braunschweig", province=>9},
	"BSB"=>{city=>"Bersenbr&uuml;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&Ouml;"=>{city=>"B&ouml;rdekreis", province=>14},
	"B&Uuml;D"=>{city=>"B&uuml;dingen", province=>7},
	"B&Uuml;R"=>{city=>"B&uuml;ren", province=>10},
	"B&Uuml;S"=>{city=>"B&uuml;singen", province=>1},
	"B&Uuml;Z"=>{city=>"B&uuml;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&uuml;sseldorf", province=>10},
	"DA"=>{city=>"Darmstadt", province=>7},
	"DAH"=>{city=>"Dachau ", province=>2},
	"DAN"=>{city=>"L&uuml;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&uuml;hl", province=>2},
	"DL"=>{city=>"D&ouml;beln", province=>13},
	"DLG"=>{city=>"Dillingen a. d. Donau", province=>2},
	"DM"=>{city=>"Demmin", province=>8},
	"DN"=>{city=>"D&uuml;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&szlig;eritzkreis", province=>13},
	"DZ"=>{city=>"Delitzsch", province=>13},
	"D&Uuml;W"=>{city=>"Bad D&uuml;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&ouml;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&uuml;ttenstadt", province=>4},
	"EHI"=>{city=>"Ehingen", province=>1},
	"EI"=>{city=>"Eichst&auml;tt", province=>2},
	"EIC"=>{city=>"Eichsfeld", province=>15},
	"EIH"=>{city=>"Eichst&auml;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&ouml;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&szlig;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&uuml;rstenfeldbruck", province=>2},
	"FG"=>{city=>"Freiberg", province=>13},
	"FH"=>{city=>"Frankfurt / Main-H&ouml;chst", province=>7},
	"FI"=>{city=>"Finsterwalde", province=>4},
	"FKB"=>{city=>"Frankenberg", province=>7},
	"FL"=>{city=>"Flensburg", province=>16},
	"FL&Ouml;"=>{city=>"Fl&ouml;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&uuml;rstenwalde", province=>4},
	"FZ"=>{city=>"Fritzlar", province=>7},
	"F&Uuml;"=>{city=>"F&uuml;rth", province=>2},
	"F&Uuml;S"=>{city=>"F&uuml;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&auml;bisch Gm&uuml;nd", province=>1},
	"GDB"=>{city=>"Gadebusch", province=>8},
	"GE"=>{city=>"Gelsenkirchen", province=>10},
	"GEL"=>{city=>"Geldern", province=>10},
	"GEM"=>{city=>"Gem&uuml;nden a.Main", province=>2},
	"GEO"=>{city=>"Gerolzhofen", province=>2},
	"GER"=>{city=>"Germersheim", province=>11},
	"GF"=>{city=>"Gifhorn", province=>9},
	"GG"=>{city=>"Gro&szlig;-Gerau", province=>7},
	"GHA"=>{city=>"Geithain", province=>13},
	"GHC"=>{city=>"Gr&auml;fenhainichen", province=>14},
	"GI"=>{city=>"Gie&szlig;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&ouml;ppingen", province=>1},
	"GR"=>{city=>"G&ouml;rlitz", province=>13},
	"GRA"=>{city=>"Grafenau", province=>2},
	"GRH"=>{city=>"Gro&szlig;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&uuml;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&uuml;hlen", province=>8},
	"GW"=>{city=>"Greifswald Land", province=>8},
	"GZ"=>{city=>"G&uuml;nzburg", province=>2},
	"G&Ouml;"=>{city=>"G&ouml;ttingen", province=>9},
	"G&Uuml;"=>{city=>"G&uuml;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&szlig;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&ouml;lsen", province=>14},
	"HI"=>{city=>"Hildesheim", province=>9},
	"HIG"=>{city=>"Eichsfeld, Heiligenstadt", province=>15},
	"HIP"=>{city=>"Hilpoltstein", province=>2},
	"HL"=>{city=>"L&uuml;beck", province=>16},
	"HM"=>{city=>"Hameln-Pyrmont", province=>9},
	"HM&Uuml;"=>{city=>"Hann. M&uuml;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&szlig;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&ouml;xter", province=>10},
	"HY"=>{city=>"Hoyerswerda", province=>13},
	"HZ"=>{city=>"Herzberg", province=>4},
	"H&Ouml;S"=>{city=>"H&ouml;chstadt a. d. Aisch", province=>2},
	"H&Uuml;N"=>{city=>"H&uuml;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&uuml;terbog", province=>4},
	"JE"=>{city=>"Jessen", province=>14},
	"JEV"=>{city=>"Jever", province=>9},
	"JL"=>{city=>"Jerichower Land", province=>14},
	"J&Uuml;L"=>{city=>"J&uuml;lich", province=>10},
	"K"=>{city=>"K&ouml;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&ouml;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&ouml;nigs-Wusterhausen", province=>4},
	"KY"=>{city=>"Kyritz", province=>4},
	"KYF"=>{city=>"Kyffh&auml;userkreis", province=>15},
	"K&Ouml;N"=>{city=>"Bad K&ouml;nigshofen i. Grabfeld", province=>2},
	"K&Ouml;T"=>{city=>"K&ouml;then", province=>14},
	"K&Ouml;Z"=>{city=>"K&ouml;tzting", province=>2},
	"K&Uuml;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&uuml;rnberger Land", province=>2},
	"LB"=>{city=>"Ludwigsburg", province=>1},
	"LBS"=>{city=>"Lobenstein", province=>15},
	"LBZ"=>{city=>"L&uuml;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&uuml;neburg", province=>9},
	"LH"=>{city=>"L&uuml;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&uuml;bbecke", province=>10},
	"LL"=>{city=>"Landsberg am Lech", province=>2},
	"LM"=>{city=>"Limburg-Weilburg", province=>7},
	"LN"=>{city=>"L&uuml;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&Ouml;"=>{city=>"L&ouml;rrach", province=>1},
	"L&Ouml;B"=>{city=>"L&ouml;bau", province=>13},
	"L&Uuml;D"=>{city=>"L&uuml;denscheid, Stadt", province=>10},
	"L&Uuml;N"=>{city=>"L&uuml;nen", province=>10},
	"M"=>{city=>"M&uuml;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&szlig;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&ouml;nchengladbach", province=>10},
	"MGH"=>{city=>"Bad Mergentheim", province=>1},
	"MGN"=>{city=>"Meiningen", province=>15},
	"MH"=>{city=>"M&uuml;lheim an der Ruhr", province=>"Nordrhein-Westfalen."},
	"MHL"=>{city=>"Unstrut-Hainich-Kreis, M&uuml;hlhausen", province=>15},
	"MI"=>{city=>"Minden", province=>10},
	"MIL"=>{city=>"Miltenberg", province=>2},
	"MK"=>{city=>"M&auml;rkischer Kreis", province=>10},
	"ML"=>{city=>"Mansfelder Land", province=>14},
	"MM"=>{city=>"Memmingen", province=>2},
	"MN"=>{city=>"Unterallg&auml;u", province=>2},
	"MO"=>{city=>"Moers", province=>10},
	"MOD"=>{city=>"Marktoberdorf", province=>2},
	"MOL"=>{city=>"M&auml;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&uuml;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&Uuml;"=>{city=>"M&uuml;hldorf am Inn", province=>2},
	"M&Uuml;B"=>{city=>"M&uuml;nchberg", province=>2},
	"M&Uuml;L"=>{city=>"M&uuml;llheim", province=>1},
	"M&Uuml;N"=>{city=>"M&uuml;nsingen", province=>1},
	"M&Uuml;R"=>{city=>"M&uuml;ritz", province=>8},
	"N"=>{city=>"N&uuml;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&ouml;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&uuml;ll", province=>16},
	"NK"=>{city=>"Neunkirchen", province=>12},
	"NM"=>{city=>"Neumarkt", province=>2},
	"NMB"=>{city=>"Naumburg", province=>14},
	"NMS"=>{city=>"Neum&uuml;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&Uuml;"=>{city=>"Neustadt a.R&uuml;benberge", province=>9},
	"NT"=>{city=>"N&uuml;rtingen", province=>1},
	"NU"=>{city=>"Neu-Ulm", province=>2},
	"NVP"=>{city=>"Nordvorpommern", province=>8},
	"NW"=>{city=>"Neustadt a. d. Weinstra&szlig;e", province=>11},
	"NWM"=>{city=>"Nordwestmecklenburg", province=>8},
	"NY"=>{city=>"Niesky", province=>13},
	"NZ"=>{city=>"Neustrelitz", province=>8},
	"N&Ouml;"=>{city=>"N&ouml;rdlingen", province=>2},
	"OA"=>{city=>"Oberallg&auml;u", province=>2},
	"OAL"=>{city=>"Ostallg&auml;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&uuml;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},
	"&Ouml;HR"=>{city=>"&Ouml;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&auml;chsische Schweiz", province=>13},
	"PK"=>{city=>"Pritzwalk", province=>4},
	"PL"=>{city=>"Plauen", province=>13},
	"PL&Ouml;"=>{city=>"Pl&ouml;n", province=>16},
	"PM"=>{city=>"Potsdam-Mittelmark", province=>4},
	"PN"=>{city=>"P&ouml;&szlig;neck", province=>15},
	"PR"=>{city=>"Prignitz", province=>4},
	"PR&Uuml;"=>{city=>"Pr&uuml;m", province=>11},
	"PS"=>{city=>"Pirmasens / S&uuml;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&ouml;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&szlig;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&ouml;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&uuml;mme)", province=>9},
	"RS"=>{city=>"Remscheid", province=>10},
	"RSL"=>{city=>"Ro&szlig;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&Uuml;D"=>{city=>"Rheingau-Taunus-Kreis", province=>7},
	"R&Uuml;G"=>{city=>"R&uuml;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&uuml;cken", province=>12},
	"SBG"=>{city=>"Strasburg", province=>8},
	"SBK"=>{city=>"Sch&ouml;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&szlig;furt", province=>14},
	"SG"=>{city=>"Solingen", province=>10},
	"SGH"=>{city=>"Sangerhausen", province=>14},
	"SHA"=>{city=>"Schw&auml;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&uuml;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&ouml;lln", province=>15},
	"SLS"=>{city=>"Saarlouis", province=>12},
	"SLZ"=>{city=>"Bad Salzungen", province=>15},
	"SL&Uuml;"=>{city=>"Schl&uuml;chtern", province=>7},
	"SM"=>{city=>"Schmalkalden-Meiningen", province=>15},
	"SM&Uuml;"=>{city=>"Schwabm&uuml;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&szlig;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&Auml;K"=>{city=>"S&auml;ckingen", province=>1},
	"S&Ouml;M"=>{city=>"S&ouml;mmerda", province=>15},
	"S&Uuml;W"=>{city=>"S&uuml;dliche Weinstra&szlig;e", province=>11},
	"TBB"=>{city=>"Main-Tauber-Kreis", province=>1},
	"TE"=>{city=>"Tecklenburg", province=>10},
	"TET"=>{city=>"Teterow", province=>8},
	"TF"=>{city=>"Teltow-Fl&auml;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&Ouml;L"=>{city=>"Bad T&ouml;lz-Wolfratshausen", province=>2},
	"T&Ouml;N"=>{city=>"T&ouml;nning", province=>16},
	"T&Uuml;"=>{city=>"T&uuml;bingen", province=>1},
	"UE"=>{city=>"Uelzen", province=>9},
	"UEM"=>{city=>"Ueckerm&uuml;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},
	"&Uuml;B"=>{city=>"&Uuml;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&ouml;lklingen", province=>12},
	"VL"=>{city=>"Villingen", province=>1},
	"VOF"=>{city=>"Vilshofen", province=>2},
	"VOH"=>{city=>"Vohenstrau&szlig;", 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&uuml;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&uuml;nde", province=>9},
	"WEN"=>{city=>"Weiden", province=>2},
	"WER"=>{city=>"Wertingen", province=>2},
	"WES"=>{city=>"Wesel", province=>10},
	"WF"=>{city=>"Wolfenb&uuml;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&szlig;enfels", province=>14},
	"WST"=>{city=>"Ammerland", province=>9},
	"WSW"=>{city=>"Wei&szlig;wasser", province=>13},
	"WT"=>{city=>"Waldshut", province=>1},
	"WTL"=>{city=>"Wittlage", province=>9},
	"WTM"=>{city=>"Wittmund", province=>9},
	"WUG"=>{city=>"Wei&szlig;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&Uuml;"=>{city=>"W&uuml;rzburg", province=>2},
	"W&Uuml;M"=>{city=>"Waldm&uuml;nchen", province=>2},
	"Z"=>{city=>"Zwickau (-Land)", province=>13},
	"ZE"=>{city=>"Zerbst", province=>14},
	"ZEL"=>{city=>"Zell / Mosel", province=>11},
	"ZI"=>{city=>"L&ouml;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&uuml;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/&auml;/ae/g;
	    #$city =~ s/&uuml;/ue/g;
	    #$city =~ s/&ouml;/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';