view release on metacpan or  search on metacpan

UserSID.pm  view on Meta::CPAN

    my ($checksha, $checktime) = split(/\t/,$UserSID::DATA{$user},2);
    $sid->{'sha'} = $checksha;
    $sid->{'time'} = $checktime;
    $sid->{'user'} = $user;
    return 1;
  } else {
    return 0;
  }
}
##############################################################################
sub update {
  my $sid = shift;
  my $file = shift || $UserSID::FILE;
  
  if ((not $sid) || (not $sid->{'user'})) {
    return 0;
  }
  $sid->{'time'} = time;
  return &AddNewSID($sid);  
}
##############################################################################