File Coverage

blib/lib/Apache/Htpasswd/Perishable.pm

Criterion	Covered	Total	%
statement	12	43	27.9
branch	0	18	0.0
condition			n/a
subroutine	4	7	57.1
pod	1	3	33.3
total	17	71	23.9

package Apache::Htpasswd::Perishable;

use strict;
use warnings;
use Apache::Htpasswd;
use Date::Simple qw(today);

our @ISA = qw(Apache::Htpasswd);

our $VERSION = '1.00';


# Preloaded methods go here.

sub new {
  my $class = shift;
  my $file = shift;

  my $self = bless {}, $class;

  system("touch $file") unless -f $file;
  unless(-f $file){
    $self->{'ERROR'} = __PACKAGE__. "::new Cannot create $file: $!";
    croak $self->error();
  }

#i hope he cleans this up.
  $self->{'PASSWD'} = $file;
  $self->{'ERROR'} = "";
  $self->{'LOCK'} = 0;
  $self->{'OPEN'} = 0;

  return $self;
}

sub extend {
  my ($self,$login,$days) = @_;

  die "provide a login" unless $login;
  die "provide a login" unless $days;

  $self->fetchInfo($login);
  my $current = Date::Simple->new($self->fetchInfo($login));
  die "Invalid date already exists.  Cannot extend: $!" unless $current;

  my $extended = $current + $days;

  $self->writeInfo($login,$extended) or die "couldn't set expiration date: ".$self->error;
  return 1;
}

sub expire {
  my ($self,$login,$days) = @_;

  die "provide a login" unless $login;
  unless(defined $days){
    my $expires = $self->fetchInfo($login);
    my $today = today();
    return $expires - $today;
  }

  my $date = today();
  my $expire = $date + $days;

  $self->writeInfo($login,$expire) or die "couldn't set expiration date: ".$self->error;
  return 1;
}

# Autoload methods go after =cut, and are processed by the autosplit program.

1;
__END__