1 files changed, 54 insertions, 0 deletions
diff --git a/storage/ndb/tools/old_dirs/ndbnet/lib/NDB/Net/ServerUNIX.pm b/storage/ndb/tools/old_dirs/ndbnet/lib/NDB/Net/ServerUNIX.pm
new file mode 100644
index 00000000000..b3fa245d5ee
--- /dev/null
+++ b/storage/ndb/tools/old_dirs/ndbnet/lib/NDB/Net/ServerUNIX.pm
@@ -0,0 +1,54 @@
+package NDB::Net::ServerUNIX;
+
+use strict;
+use Carp;
+use Socket;
+
+require NDB::Net::Server;
+
+use vars qw(@ISA);
+@ISA = qw(NDB::Net::Server);
+
+# constructors 
+
+my $log;
+
+sub initmodule {
+    $log = NDB::Util::Log->instance;
+}
+
+NDB::Net::ServerUNIX->attributes(
+    path => sub { s/^\s+|\s+$//g; /^\S+$/ },
+);
+
+sub new {
+    my $class = shift;
+    @_ % 2 == 0 or confess 0+@_;
+    my(%attr) = @_;
+    my $server = $class->SUPER::new(%attr);
+    $server->setid($attr{id})
+	or $log->push, return undef;
+    $server->setdomain(PF_UNIX)
+	or $log->push, return undef;
+    $server->setpath($attr{path})
+	or $log->push, return undef;
+    $server->add or
+    	$log->push, return undef;
+    return $server;
+}
+
+# client side
+
+sub connect {
+    my $server = shift;
+    @_ == 0 or confess 0+@_;
+    my $socket;
+    $socket = NDB::Util::SocketUNIX->new or
+	$log->push, return undef;
+    $socket->connect($server->getpath) or
+	$log->push, return undef;
+    return $socket;
+}
+
+1;
+# vim:set sw=4: