#!/usr/bin/perl

use Crypt::CBC;

use Asterisk::AGI;

use Authen::Radius;

use DBD::mysql;

use Thread;

my $i;

for ($i=1;$i<=20;$i++)

{

my $thr = new Thread \&sub1;

sleep(0.010);

print $i;

}

sub sub1

{

my $j;

my $r = new Authen::Radius(Host => '192.168.1.13:1813', Secret => 'testing123');

        if( !defined $r )

        {

                exit;

        }

Authen::Radius->load_dictionary('/var/lib/asterisk/agi-bin/radius/raddict.dat');

for ($j=1;$j<=5;$j++)

{

 $r->add_attributes (

        { Name => 'User-Name', Value => "82723EH5F75" },

          { Name => 'Password', Value => "123456" },

          { Name => 'Acct-Link-Count', Value => "111" },

           { Name => 'Acct-Multi-Session-Id', Value => "NGI" },

        { Name => 'Move-ID', Value => "4" },

         { Name => 'Accounting-Type', Value => "1" },

        { Name => 'Group-ID', Value => "0" }

        );

$r->send_packet (ACCOUNTING_REQUEST) and $type = $r->recv_packet;

print $j." ";

}

}

> Date: Mon, 1 Oct 2012 16:33:23 +0700
> Subject: Re: Radius Stress testing
> From: list@fajar.net
> To: freeradius-users@lists.freeradius.org
>
> On Mon, Oct 1, 2012 at 4:27 PM, QASIM RAO <qasim2490@hotmail.com> wrote:
> > when i run perl script i runs and gives output, but in log file it genrate
> > an error:q
> >
> >
> > Mon Oct 1 04:45:46 2012
> > : Error: rlm_radutmp: No Accounting-Status-Type record.
>
> Hmmm ... this kind of question seems to come up a lot.
>
> If you simply want that error gone, and you don't use "radlast", then
> just remove all reference to "radutmp" on sites-available/default,
> inner-tunnel, and whatever other virtual server that you use.
>
> --
> Fajar
> -
> List info/subscribe/unsubscribe? See http://www.freeradius.org/list/users.html