database/mariadb
1
0
Fork 0
mirror of https://github.com/MariaDB/server.git synced 2025-08-01 03:47:19 +03:00
Code Activity

neww ndb automake

Browse Source
This commit is contained in:
tomas@poseidon.(none)
2004-05-26 15:36:55 +00:00
parent fff33634be
commit 8327a68438
284 changed files with 267 additions and 29 deletions
Download Patch File Download Diff File Expand all files Collapse all files

54
ndb/tools/old_dirs/ndbnet/lib/NDB/Net/ServerUNIX.pm Normal file
View File

@ -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: