From 204a49f5c1b3ca1798f5c4dcd7170750d72748f6 Mon Sep 17 00:00:00 2001 From: Peter Palfrader Date: Sun, 21 May 2006 17:07:38 +0000 Subject: Add list-servers git-svn-id: svn+ssh://asteria.noreply.org/svn/weaselutils/trunk@103 bc3d92e2-beff-0310-a7cd-cc87d7ac0ede --- list-servers | 34 ++++++++++++++++++++++++++++++++++ 1 file changed, 34 insertions(+) create mode 100755 list-servers diff --git a/list-servers b/list-servers new file mode 100755 index 0000000..9cec17b --- /dev/null +++ b/list-servers @@ -0,0 +1,34 @@ +#!/usr/bin/perl -w + +use strict; +my $in_connect = 0; +my $ipv6; +my $host; +my $name; +while (<>) { + if (/^connect /) { + $in_connect = 1; + $name = undef; + $host = undef; + $ipv6 = undef; + } elsif (/^\};/) { + $in_connect = 0; + if (defined $name && defined $host) { + print "$name $host\n"; + print "$name"."6 $ipv6\n" if defined $ipv6; + $name = undef; + $host = undef; + $ipv6 = undef; + } + } elsif ($in_connect) { + if (/^\s*name\s*=\s*"(\S+)\.oftc.net";\s*$/) { + $name = $1; + } elsif (/^\s*host\s*=\s*"(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})";\s*$/) { + $host = $1; + } elsif (/^\s*#\s*ipv6\s*address:\s*([0-9a-f:]+)/) { + $ipv6 = $1; + }; + }; +}; + + -- cgit v1.2.3