help need with mysql statement in freeradius

[Bishal]

Hello Ivan,

  I came up with this scripts but looks like it;s not working. In
radiusd.conf

perl{
  modules = /usr/local/etc/raddb/mac_check.pl
 }

Instantiate {
  exec
  expr
 dailycounter
 noresetcounter
 perl
}

radius debug shows perl modules loaded. But my script is not working. How
can I assign variables username and callingStationid in my script during
authentication process. rlm_perl doc show %RAD_REQUEST{'User-name'}
but it's not helping?






#!/usr/bin/perl
# Check for MAC Authentication is enable or not


#$username = $ARGV[4];

#$username = %RAD_REQUEST{'User-Name'};
#$callerid = %RAD_REQUEST{'Calling-Station-Id'};


use DBI;



        $database = "radius";
        $user = "freeradius";
        $password = "blaba2r";
        $option = "localhost";

        $dsn = "DBI:mysql:$database";
        $dsn = "DBI:mysql:database=$database;$option";
        $dbh = DBI->connect($dsn, $user, $password);

        my $sql = $dbh->prepare( "SELECT Usemac FROM radcheck WHERE
UserName='$RAD_REQUEST{'User-Name'}' AND Attribute='Expiration'
");
        my $sql2 = $dbh->prepare( "SELECT Value FROM radcheck WHERE
Attribute='Calling-Station-Id' AND UserName='tori' ");
        my $sql3 = $dbh->prepare( "INSERT INTO radcheck
(id,UserName,Attribute,op,Value)
VALUES('','$RAD_REQUEST{'User-Name'}','Calling-Statio
n-Id','+=','$RAD_REQUEST{'Calling-Station-Id'}' ");


        $rowcount = $sql->execute
        or die "Cannot execute SQL statement: $DBI::errstr\n";

        my @row;
        while ( @row = $sql->fetchrow_array() ) {
                $mac = $row[0];
                chomp($mac);
        }
# Check if MAC authentication is enabled or not if enabled then insert
the mac
        if ($mac == 1 ){

        $rowcount = $sql3->execute
        or die "Cannot execute SQL Statement: $DBI::errstr\n";


}else {
exit;
}
$sql->finish;
$dbh->disconnect()
or warn "Disconnection failed: $DBI::errstr\n";


On 5/14/2008, "Bishal" <bishal at baayu.com.np> wrote:

>
>Any sample scripts IVAN?
>
>
>
>On 5/14/2008, "Ivan Kalik" <tnt at kalik.net> wrote:
>
>>>
>>> I am using sql for AAA.
>>
>>I have news for you - you are not. You are using it to store attributes.
>>
>>>Can u give me some exaples how can I do that
>>>withl Rlm_perl modules.?
>>>
>>
>>Do Google: mysql perl tutorial. If it's not MySQL, replace that with the
>>name of your sql server.
>>
>>Ivan Kalik
>>Kalik Informatika ISP
>>
>>-
>>List info/subscribe/unsubscribe? See http://www.freeradius.org/list/users.html
>>
>>
>
>-
>List info/subscribe/unsubscribe? See http://www.freeradius.org/list/users.html
>
>