33e4a02870
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@8145 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
23 lines
385 B
Perl
23 lines
385 B
Perl
package TEAL::Semaphore;
|
|
|
|
use strict;
|
|
use warnings;
|
|
require IPC::SysV;
|
|
|
|
sub new {
|
|
my $class = shift;
|
|
my $self = {};
|
|
my $key = IPC::SysV::ftok("/var/log/teal",0x646c6100);
|
|
$self->{ID} = semget($key,1,0);
|
|
bless $self,$class;
|
|
return $self;
|
|
}
|
|
|
|
sub post {
|
|
my $self = shift;
|
|
my $op = pack("s!3",0,1,0);
|
|
semop $self->{ID},$op || die "failed to post"
|
|
}
|
|
|
|
1;
|