File Coverage

blib/lib/File/LckPwdF.pm

Criterion	Covered	Total	%
statement	9	54	16.6
branch	0	30	0.0
condition	0	3	0.0
subroutine	3	5	60.0
pod	2	2	100.0
total	14	94	14.8

package File::LckPwdF;
require 5.002;
use Carp;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);

require Exporter;
require DynaLoader;

#use diagnostics;

@ISA = qw(Exporter DynaLoader);
@EXPORT = qw(lock_passwd unlock_passwd);
@EXPORT_OK =
  qw(lckpwdf ulckpwdf $Default_Timeout $Rand_Wait $Passwd_Locked $EAGAIN);

BEGIN: {
  undef($@);
  my($Errno_OK) = eval "use Errno qw(EAGAIN EACCES EINVAL EALREADY); 1;";

  if ($Errno_OK && (!defined($@) || ($@ eq ""))) {
    $EAGAIN = &EAGAIN();
  } else {
    undef($@);
    my($Errno_OK) =
      eval "use Errno qw(EWOULDBLOCK EACCES EINVAL EALREADY); 1;";
    if ($Errno_OK && (!defined($@) || ($@ eq ""))) {
      $EAGAIN = &EWOULDBLOCK();
    } else {
      undef($@);
      my($POSIX_OK) = eval "use POSIX qw(EAGAIN EACCES EINVAL EALREADY); 1;";

      if ($POSIX_OK && (!defined($@) || ($@ eq ""))) {
	$EAGAIN = &EAGAIN();
      } else {
	my($POSIX_OK) =
	  eval "use POSIX qw(EWOULDBLOCK EACCES EINVAL EALREADY); 1;";

	if ($POSIX_OK && (!defined($@) || ($@ eq ""))) {
	  $EAGAIN = &EWOULDBLOCK();
	} else {
	  require ("errno.ph");
	  $EAGAIN = eval "&EAGAIN();" || eval "&EWOULDBLOCK();";
	}
      }
    }
  }
  $VERSION = '0.01';
  $Default_Timeout = 15;
  $Rand_Wait = 10;
  $Passwd_Locked = 0;
}

bootstrap File::LckPwdF $VERSION;

# Preloaded methods go here.

sub lock_passwd (;$) {
  my($time) = time;

  unless ($> == 0) {
    if (&lckpwdf() >= 0) {
      $Passwd_Locked = 1;
      return 1;
    } else {
      if ($Passwd_Locked) {
	$! = &EALREADY();
      } else {
	$! = &EACCES();
      }
      return 0;
    }
  }

  if ($Passwd_Locked) {
    if (&lckpwdf() >= 0) {
      return 1;
    } else {
      $! = &EALREADY();
      return 0;
    }
  }

  my($timeout) = $Default_Timeout;

  if ($#_ > -1) {
    $timeout = $_[0];
  }

  if ($timeout < 0) {
    $! = &EINVAL();
    carp("File::LckPwdF::lock_passwd fed a timeout value below 0");
    return 0;
  } elsif ($timeout == 0) {
    until (&lckpwdf() >= 0) {
      if ($Rand_Wait > 0) {
	sleep int(rand($Rand_Wait) + 1);
      }
    }
    $Passwd_Locked = 1;
    return 1;
  } else {
    if (&lckpwdf() >= 0) {
      $Passwd_Locked = 1;
      return 1;
    } else {
      until ((($status = &lckpwdf()) >= 0) || ((time - $time) >= $timeout)) {
	if ($Rand_Wait > 0) {
	  sleep int(rand($Rand_Wait) + 1);
	}
      }
      if ($status >= 0) {
	$Passwd_Locked = 1;
	return 1;
      } else {
	$! = $EAGAIN;
	return 0;
      }
    }
  }
}

sub unlock_passwd () {
  if (&ulckpwdf() >= 0) {
    $Passwd_Locked = 0;
    return 1;
  } else {
    if (! $Passwd_Locked) {
      $! = &EALREADY();
    } elsif ($> == 0) {
      $! = &EINVAL;
    } else {
      $! = &EACCES;
    }
    return 0;
  }
}

END: {
  if ($Passwd_Locked) {
    unlock_passwd();
  }
}

1;
__END__