From 3ef04b51daa1b24dcf559f83f2de8fb33a83ec45 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Sat, 22 Nov 2003 23:18:56 +0000
Subject: [PATCH] + IPV6 test program by Johannes Berg

---
 packages/base/netdb/ip6test.pp | 41 ++++++++++++++++++++++++++++++++++
 1 file changed, 41 insertions(+)
 create mode 100644 packages/base/netdb/ip6test.pp

diff --git a/packages/base/netdb/ip6test.pp b/packages/base/netdb/ip6test.pp
new file mode 100644
index 0000000000..f3642e3f96
--- /dev/null
+++ b/packages/base/netdb/ip6test.pp
@@ -0,0 +1,41 @@
+program ip6test;
+
+uses
+  sockets,
+  unix,
+  errors,
+  netdb,
+  baseunix;
+
+var
+  dest: TInetSockAddr6;
+  sock: LongInt;
+  s: shortstring;
+  i: integer;
+  t1,t2:text;
+  x: array of thostaddr6;
+
+begin
+  setlength(x, 100);
+  setlength(x,resolvename6('www.6bone.net', x));
+  if length(x) = 0 then halt(2);
+  with dest do begin
+    sin6_family := PF_INET6;
+    sin6_port   := shorthosttonet(80);
+    sin6_addr.u6_addr16 := x[0];
+  end;
+  sock := socket(PF_INET6, SOCK_STREAM, 6 {TCP});
+
+  if Connect(sock, dest, sizeof(dest)) then begin
+    sock2text(sock,t1,t2);
+    writeln(t2, 'GET / HTTP/1.0');
+    writeln(t2);
+    while not eof(t1) do begin
+      readln(t1, s);
+      writeln(s);
+    end;
+  end else begin
+    writeln('not connected: ',getlasterror, ': ', StrError(getlasterror));
+  end;
+  closesocket(sock);
+end.