return $error;
}
- #transactional accuracy not essential; just an indication of data freshness
$self->nas_heartbeat($self->getfield('login'));
#session-starting callback
return $error;
}
- #transactional accuracy not essential; just an indication of data freshness
$self->nas_heartbeat($self->getfield('logout'));
#session-ending callback
return $error if $error;
return "Unknown svcnum"
unless qsearchs('svc_acct', { 'svcnum' => $self->svcnum } );
- '';
+ $self->SUPER::check;
}
=item nas_heartbeat
=back
-=head1 VERSION
-
-$Id: session.pm,v 1.6 2001-04-09 23:05:15 ivan Exp $
-
=head1 BUGS
Maybe you shouldn't be able to insert a session if there's currently an open