From 204a49f5c1b3ca1798f5c4dcd7170750d72748f6 Mon Sep 17 00:00:00 2001
From: Peter Palfrader <peter@palfrader.org>
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

(limited to '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