37 lines
484 B
Perl
Executable File
37 lines
484 B
Perl
Executable File
#!/usr/bin/perl -w
|
|
|
|
use Fcntl ':flock'; # import LOCK_* constants
|
|
|
|
$res=flock("/tmp/my.lock", LOCK_EX);
|
|
print $res . "\n";
|
|
# system ("ls -alrt /tmp");
|
|
sleep 10;
|
|
|
|
exit 0
|
|
__END__
|
|
|
|
|
|
|
|
|
|
sub lock {
|
|
flock(MBOX,LOCK_EX);
|
|
# and, in case someone appended
|
|
# while we were waiting...
|
|
seek(MBOX, 0, 2);
|
|
}
|
|
|
|
|
|
sub unlock {
|
|
flock(MBOX,LOCK_UN);
|
|
}
|
|
|
|
open(MBOX, ">>/usr/spool/mail/$ENV{'USER'}")
|
|
or die "Can't open mailbox: $!";
|
|
|
|
lock();
|
|
print MBOX $msg,"\n\n";
|
|
unlock();
|
|
|
|
|
|
|