diff options
Diffstat (limited to '')
| -rw-r--r-- | scripts/localize.pl | 1642 |
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'; |