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

76
ndb/tools/old_dirs/ndbnet/lib/NDB/Util/SocketUNIX.pm Normal file
View File

@ -0,0 +1,76 @@
package NDB::Util::SocketUNIX;
use strict;
use Carp;
use Symbol;
use Socket;
use Errno;
require NDB::Util::Socket;
use vars qw(@ISA);
@ISA = qw(NDB::Util::Socket);
# constructors
my $log;
sub initmodule {
$log = NDB::Util::Log->instance;
}
NDB::Util::SocketUNIX->attributes(
path => sub { /^\S+$/ },
);
sub new {
my $class = shift;
@_ % 2 == 0 or confess 0+@_;
my(%attr) = @_;
my $socket = $class->SUPER::new(%attr,
domain => PF_UNIX, type => SOCK_STREAM, proto => 0)
or $log->push, return undef;
return $socket;
}
sub connect {
my $socket = shift;
@_ == 1 or confess 0+@_;
my($path) = @_;
$path =~ /^\S+$/ or confess 'oops';
my $paddr = pack_sockaddr_un($path);
$socket->SUPER::connect($paddr)
or $log->push, return undef;
$socket->setpath($path)
or $log->push, return undef;
return 1;
}
sub bind {
my $socket = shift;
@_ == 1 or confess 0+@_;
my($path) = @_;
$path =~ /^\S+$/ or confess 'oops';
my $paddr = pack_sockaddr_un($path);
$socket->SUPER::bind($paddr)
or $log->push, return undef;
$socket->setpath($path)
or $log->push, return undef;
return 1;
}
sub acceptaddr {
my $csocket = shift;
@_ == 1 or confess 0+@_;
my($paddr) = @_;
return 1; # crash
my $path = unpack_sockaddr_un($paddr);
$csocket->setpath($path)
or $log->push, return undef;
$log->put("%s accept: path=%s",
$csocket->getpath)->push($csocket)->debug;
return 1;
}
1;
# vim:set sw=4: