X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fsession.pm;h=78af2e9ad861ab7b4968c739191a40b2a3a23ad9;hp=615c8ae8b49ecfd8bfce93e0216125635b9eb20d;hb=4af73859347d8d56a9552eb4b5ebaffdda14edd2;hpb=3cbdd85a96348a287623e3b97c937c7749e99392 diff --git a/FS/FS/session.pm b/FS/FS/session.pm index 615c8ae8b..78af2e9ad 100644 --- a/FS/FS/session.pm +++ b/FS/FS/session.pm @@ -1,7 +1,7 @@ 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; @@ -12,8 +12,6 @@ use FS::nas; $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 @@ -126,7 +124,6 @@ sub insert { 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; ''; @@ -186,7 +183,6 @@ sub replace { 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;