diff options
| author | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-04-09 13:11:53 +0000 |
|---|---|---|
| committer | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-04-09 13:11:53 +0000 |
| commit | 655cb1b8222b0a587bbdd5c1357d55682332c665 (patch) | |
| tree | 65a83d3c36e6d4c4d57cec63f63d2019b2dfc93b /make_ip_del.pl | |
| parent | Initial commit. (diff) | |
| download | whois-655cb1b8222b0a587bbdd5c1357d55682332c665.tar.xz whois-655cb1b8222b0a587bbdd5c1357d55682332c665.zip | |
Adding upstream version 5.5.21.upstream/5.5.21
Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
Diffstat (limited to 'make_ip_del.pl')
| -rwxr-xr-x | make_ip_del.pl | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/make_ip_del.pl b/make_ip_del.pl new file mode 100755 index 0000000..6475918 --- /dev/null +++ b/make_ip_del.pl @@ -0,0 +1,30 @@ +#!/usr/bin/perl +# SPDX-License-Identifier: GPL-2.0-or-later + +use warnings; +use strict; + +while (<>) { + chomp; + s/#.*$//; + s/^\s+//; s/\s+$//; + next if /^$/; + + die "format error: $_" if not /^([\d\.]+)\/(\d+)\s+([\w\.]+)$/; + my $m = $2; my $s = $3; + + my ($i1, $i2, $i3, $i4) = split(/\./, $1); + print '{ ' . (($i1 << 24) + ($i2 << 16) + ($i3 << 8) + $i4) . 'UL, '. + ((~(0xffffffff >> $m)) & 0xffffffff) . 'UL, "'; + if ($s =~ /\./) { + print $s; + } elsif ($s eq 'UNKNOWN') { + print "\\005"; + } elsif ($s eq 'UNALLOCATED') { + print "\\006"; + } else { + print "whois.$s.net"; + } + print qq|" },\n|; +} + |