Marcin o2.pl pisze:

Witam, czy mógłby się ktoś pochwalić skryptem "zamykającym" przerwane sesje ? za wyjątkiem najnowszej, która może trwać nadal...

mój jest taki

baza radiusa na innej maszynie stąd nalezy ustawić dodatkowe opcja w lms.ini

paweł

#!/usr/bin/perl -Tw # # LMS version 1.10.4 Pyrus # # Copyright (C) 2001-2008 LMS Developers # # Please, see the doc/AUTHORS for more information about authors! # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License Version 2 as # published by the Free Software Foundation. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, # USA. # # $Id: lms-radiusclean,v 1.15.2.2 2008/01/04 07:57:18 alec Exp $

use strict; use DBI; use Config::IniFiles; use Getopt::Long; use vars qw($configfile $quiet $help $version);

$ENV{'PATH'}='/sbin:/usr/sbin:/usr/local/sbin:/bin:/usr/bin:/usr/local/bin';

my $_version = '1.10.4 Pyrus';

my %options = ( "--config-file|C=s" => $configfile, "--quiet|q" => $quiet, "--help|h" => $help, "--version|v" => $version );

Getopt::Long::config("no_ignore_case"); GetOptions(%options);

sub mask2prefix($) { my $mask = shift @_; my @tmp = split('.',$mask,4); my $q = sprintf("%b%b%b%b",$tmp[0],$tmp[1],$tmp[2],$tmp[3]); $q =~ s/0*$//; if ($q =~ /0/) { print " You idiot. error in mask\n"; } my $len = length($q) ; return $len; }

if($help) { print STDERR <<EOF; lms-radiusclean, version $_version (C) 2001-2008 LMS Developers

-C, --config-file=/etc/lms/lms.ini alternate config file (default: /etc/lms/lms.ini); -h, --help print this help and exit; -v, --version print version info and exit; -q, --quiet suppress any output, except errors;

EOF exit 0; }

if($version) { print STDERR <<EOF; lms-rediusclean, version $_version (C) 2001-2008 LMS Developers

EOF exit 0; }

if(!$configfile) { $configfile = "/etc/lms/lms.ini"; }

if(!$quiet) { print STDOUT "lms-radiusclean, version $_version\n"; print STDOUT "(C) 2001-2008 LMS Developers\n"; print STDOUT "Using file $configfile as config.\n"; }

if(! -r $configfile) { print STDERR "Fatal error: Unable to read configuration file $configfile, exiting.\n"; exit 1; }

my $ini = new Config::IniFiles -file => $configfile; print @Config::IniFiles::errors;

my $rad_dbtype = $ini->val('radius','type') || 'mysql'; my $rad_dbhost = $ini->val('radius','host') || 'localhost'; my $rad_dbuser = $ini->val('radius','user') || 'user'; my $rad_dbpasswd = $ini->val('radius','passwd') || ''; my $rad_dbname = $ini->val('radius','database') || 'radius';

# Connect to radius database my $rad_dbase; my $rad_utsfmt;

if($rad_dbtype =~ /mysql/) { $rad_dbase = DBI->connect("DBI:mysql:database=$rad_dbname;host=$rad_dbhost","$rad_dbuser","$rad_dbpasswd", { RaiseError => 1 }); $rad_dbase->do("SET NAMES utf8"); $rad_utsfmt = "UNIX_TIMESTAMP()"; } elsif($rad_dbtype eq "postgres") { $rad_dbase = DBI->connect("DBI:Pg:dbname=$rad_dbname;host=$rad_dbhost","$rad_dbuser","$rad_dbpasswd", { RaiseError => 1 }); $rad_utsfmt = "EXTRACT(EPOCH FROM CURRENT_TIMESTAMP(0))"; } else { print STDERR "Fatal error: unsupported database type: $rad_dbtype, exiting.\n"; exit 1; }

# my $rad_dbq = $rad_dbase->prepare("update radacct set AcctStopTime = now(), AcctSessionTime = unix_timestamp(now()) - unix_timestamp(AcctStartTime), AcctTerminateCause = 'Port-Error' where AcctSessionTime = 0 and AcctStopTime = 0"); $rad_dbq->execute();

$rad_dbq = $rad_dbase->prepare("update radacct set AcctStopTime = now(), AcctSessionTime = unix_timestamp(now()) - unix_timestamp(AcctStartTime), AcctTerminateCause = 'NAS-Reboot' where AcctStopTime = 0 and unix_timestamp(AcctStartTime)+AcctSessionTime < unix_timestamp(now())-600"); $rad_dbq->execute();

$rad_dbq->finish();

$rad_dbase->disconnect();