QuoteHmm, ist dein Perl so uralt?
1 2 3 4 5 6
sub ichbins{ my $self = shift; return inet_ntoa(scalar gethostbyname($self->{BIN}{default}{fritz})) eq $ENV{REMOTE_ADDR} ? 1 : 0; }
QuoteThis IPv4-only function is provided largely for legacy reasons. Newly-written code should use getnameinfo() or inet_ntop() instead for IPv6 support.
— https://perldoc.perl.org/Socket#$string-=-inet_nto...
2023-08-13T10:49:27 GwenDragonREMOTE_HOST?