view release on metacpan or  search on metacpan

Notice/Notice.pm  view on Meta::CPAN

my %multx = (
	'w'	=> 604800,
	'd'	=> 86400,
	'h'	=> 3600,
	'm'	=> 60,
	's'	=> 1,
);

##################

sub check($$\{}) {
  my($self,$p) = @_;
  return () unless 
	exists $p->{expires} && $p->{expires} && 
	$p->{expires} !~ /[^\d]/ && $p->{expires} > 0 &&
	exists $p->{path} && $p->{path} && (-r $p->{path});
  $sendmail_command	= $p->{ACTION} if exists $p->{ACTION};
  $tmp_dir		= $p->{TMPDIR} if exists $p->{TMPDIR};
  $intervals		= $p->{INTERVALS} if exists $p->{INTERVALS};
  $TO			= $p->{TO} if exists $p->{TO};