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
=head1 VERSION
-$Id: session.pm,v 1.6 2001-04-09 23:05:15 ivan Exp $
+$Id: session.pm,v 1.8 2003-08-05 00:20:46 khoff Exp $
=head1 BUGS