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;