package FS::session;
use strict;
-use vars qw( @ISA $conf $start $stop );
+use vars qw( @ISA $conf );
use FS::UID qw( dbh );
use FS::Record qw( qsearchs );
use FS::svc_acct;
$FS::UID::callback{'FS::session'} = sub {
$conf = new FS::Conf;
- $start = $conf->exists('session-start') ? $conf->config('session-start') : '';
- $stop = $conf->exists('session-stop') ? $conf->config('session-stop') : '';
};
=head1 NAME
my $nas = qsearchs('nas',{'nasnum'=>$port->nasnum});
#kcuy
my( $ip, $nasip, $nasfqdn ) = ( $port->ip, $nas->nasip, $nas->nasfqdn );
- system( eval qq("$start") ) if $start;
$dbh->commit or die $dbh->errstr if $oldAutoCommit;
'';
my $nas = qsearchs('nas',{'nasnum'=>$port->nasnum});
#kcuy
my( $ip, $nasip, $nasfqdn ) = ( $port->ip, $nas->nasip, $nas->nasfqdn );
- system( eval qq("$stop") ) if $stop;
$dbh->commit or die $dbh->errstr if $oldAutoCommit;
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.7 2001-04-15 13:35:12 ivan Exp $
-
=head1 BUGS
Maybe you shouldn't be able to insert a session if there's currently an open