Re: help need with mysql statement in freeradius

2008-05-17 Thread A . L . M . Buxey
Hi,

>$RAD_REPLY{'Reply-Message'} = "Mac Address Successfully
> updated in database $RAD_REQUEST{'Calling-Station-Id'}";
>return RLM_MODULE_OK;
> 
># Do some logging.
>&radiusd::radlog(1,"rlm_perl:: NEW MAC updated in database.");

note the order of your code here. you are 'return'ing before you've
donr the radlog bit. ie the radlog will never be hit because
you've already returned from the subroutine.  slap the radlog
straight before the return and you'll get the values
in the radius.log

alan
-
List info/subscribe/unsubscribe? See http://www.freeradius.org/list/users.html


Re: help need with mysql statement in freeradius

2008-05-17 Thread Ivan Kalik
Put the log line before return.

Ivan Kalik
Kalik Informatika ISP


Dana 17/5/2008, "Bishal" <[EMAIL PROTECTED]> piše:

>
>Hi all,
>
> After many trial and errors my perl modules is working great. Thanks
>IVan, Alan and all of who helped me a lot. Well I am not programmer but
>search in google and you guys helped me a lot.
> One thing is I am not able to log my custom message of perl modules in
>radius.log. Is it possible to show the custom log message in radius.log
>
>sub authorize{
>  if ( $mac == 1 && $RAD_CHECK{'Calling-Station-Id'} eq ""){
>my $sql2 = $dbh->prepare("INSERT INTO radcheck
>(id,username,attribute,op,value)
>VALUES('','$RAD_REQUEST{'User-Name'}','Calling
>-Station-Id','+=','$RAD_REQUEST{'Calling-Station-Id'}')");
>$rowcount = $sql2->execute();
>#or die "Cannot execute SQL Statement: $DBI::errstr\n";
>   $RAD_REPLY{'Reply-Message'} = "Mac Address Successfully
>updated in database $RAD_REQUEST{'Calling-Station-Id'}";
>   return RLM_MODULE_OK;
>
>   # Do some logging.
>   &radiusd::radlog(1,"rlm_perl:: NEW MAC updated in database.");
>}
>
>
>
>
>>request (ie. mobile). Same applies to $sql3. Also I would use == instead
>>of += as the operator there.
>
>I am using += operator because it helps me to store multiple CID in
>database and also after using this operator it logs the correct
>information in radius.log like why user are being reject. Before I was
>using == but it only gives Login incorrect.
>
>
>>
>>-
>>List info/subscribe/unsubscribe? See http://www.freeradius.org/list/users.html
>>
>>
>
>-
>List info/subscribe/unsubscribe? See http://www.freeradius.org/list/users.html
>
>

-
List info/subscribe/unsubscribe? See http://www.freeradius.org/list/users.html


Re: help need with mysql statement in freeradius

2008-05-17 Thread Bishal

Hi all,

 After many trial and errors my perl modules is working great. Thanks
IVan, Alan and all of who helped me a lot. Well I am not programmer but
search in google and you guys helped me a lot.
 One thing is I am not able to log my custom message of perl modules in
radius.log. Is it possible to show the custom log message in radius.log

sub authorize{
  if ( $mac == 1 && $RAD_CHECK{'Calling-Station-Id'} eq ""){
my $sql2 = $dbh->prepare("INSERT INTO radcheck
(id,username,attribute,op,value)
VALUES('','$RAD_REQUEST{'User-Name'}','Calling
-Station-Id','+=','$RAD_REQUEST{'Calling-Station-Id'}')");
$rowcount = $sql2->execute();
#or die "Cannot execute SQL Statement: $DBI::errstr\n";
   $RAD_REPLY{'Reply-Message'} = "Mac Address Successfully
updated in database $RAD_REQUEST{'Calling-Station-Id'}";
   return RLM_MODULE_OK;

   # Do some logging.
   &radiusd::radlog(1,"rlm_perl:: NEW MAC updated in database.");
}




>request (ie. mobile). Same applies to $sql3. Also I would use == instead
>of += as the operator there.

I am using += operator because it helps me to store multiple CID in
database and also after using this operator it logs the correct
information in radius.log like why user are being reject. Before I was
using == but it only gives Login incorrect.


>
>-
>List info/subscribe/unsubscribe? See http://www.freeradius.org/list/users.html
>
>

-
List info/subscribe/unsubscribe? See http://www.freeradius.org/list/users.html


Re: help need with mysql statement in freeradius

2008-05-16 Thread Ivan Kalik
Ugh, even if your script was working user still can't make it.

>rad_recv: Access-Request packet from host 202.xx.xx.xx:52743, id=81,
>length=151
>NAS-Identifier = "pppoe-test.lumbininet.com.np"
>NAS-Port = 12
>NAS-Port-Type = Ethernet
>Service-Type = Framed-User
>Framed-Protocol = PPP
>Calling-Station-Id = "001a4daf4ead"
>Called-Station-Id = "WIFITEST"
>User-Name = "mobile"
>CHAP-Password = 0x0102e814e5d756effb7319a534e354dcd2
>CHAP-Challenge =
>0xbb1e687616119cbcd0156169c9b45cb65bd4ce0daf99b5788e

But you have hacked configuration to make sure that user can't connect:

>authorize {
>
>  checkval
>dailycounter
>monthlycounter
>noresetcounter
>perl
>}

How are you going to do chap if you remove chap module from the
configuration? Don't make changes to default configuration unless you
know what you are doing. Default configuration *works*. Add perl but
dont remove things that might turn out to be essential.

>my $sql = $dbh->prepare( "SELECT Usemac FROM radcheck WHERE
>UserName='$username' AND Attribute='Expiration' ");

This is wrong. I have told you to use $query and print it out to see what
is your query string. Perhaps then you will notice the difference
between variable name and variable value. Your string will have
$username in it and not the value of User-Name attribute from the
request (ie. mobile). Same applies to $sql3. Also I would use == instead
of += as the operator there.

You had pointers about using authoruze function from others.

Ivan Kalik
Kalik Informatika ISP

-
List info/subscribe/unsubscribe? See http://www.freeradius.org/list/users.html


Re: help need with mysql statement in freeradius

2008-05-16 Thread A . L . M . Buxey
Hi,

> $username = $RAD_REQUEST{'User-Name'};
> $callerid = $RAD_REQUEST{'Calling-Station-Id'};
> 
> Is this the right process of getting value from the request ? How can I
> bypass perl function Authorization, authentication, accounting so that
> only MAC assignment process will be done by this script?

theres a great little example PERL function... example.pl I think
it is, which clearly shows the structure of code needed
for PERL to work for each called function. its supplied in the
FreeRADIUS source tarball and should be in any package installed
environment too.

alan
-
List info/subscribe/unsubscribe? See http://www.freeradius.org/list/users.html


Re: help need with mysql statement in freeradius

2008-05-15 Thread Alan DeKok
Bishal wrote:
> I am getting core dumped while running that script.
> 
> rlm_perl: perl_embed:: module = /usr/local/etc/raddb/mac_check.pl , func
> = authorize exit status= Undefined subroutine &main::authorize called

  You're supposed to define that function if you use rlm_perl.  The
examples have it defined.  Why haven't you defined it?

> Is this the right process of getting value from the request ?

  No.  See the examples.

> How can I
> bypass perl function Authorization, authentication, accounting so that
> only MAC assignment process will be done by this script?

  MAC assignment *is* authorization.  You MUST use the "authorization"
function.

  What you're saying is "I want to use my Perl function in the
authorization section, and I want it to do authorization, but I don't
want to use the authorization function".

  That's like saying you want to drive a car, but you can't be bothered
to use the gas pedal.  Don't be surprised if the car doesn't move.

  Alan DeKok.
-
List info/subscribe/unsubscribe? See http://www.freeradius.org/list/users.html


Re: help need with mysql statement in freeradius

2008-05-15 Thread Bishal

debug output of the radius

Module: Instantiated detail (reply_log)
Listening on authentication *:1645
Listening on accounting *:1646
Ready to process requests.

rad_recv: Access-Request packet from host 202.xx.xx.xx:52743, id=81,
length=151
NAS-Identifier = "pppoe-test.lumbininet.com.np"
NAS-Port = 12
NAS-Port-Type = Ethernet
Service-Type = Framed-User
Framed-Protocol = PPP
Calling-Station-Id = "001a4daf4ead"
Called-Station-Id = "WIFITEST"
User-Name = "mobile"
CHAP-Password = 0x0102e814e5d756effb7319a534e354dcd2
CHAP-Challenge =
0xbb1e687616119cbcd0156169c9b45cb65bd4ce0daf99b5788e
  Processing the authorize section of radiusd.conf
modcall: entering group authorize for request 0
  modcall[authorize]: module "preprocess" returns ok for request 0
radius_xlat:  '/var/log/radacct/202.xx.xx.xx/auth-detail-20080516'
rlm_detail: /var/log/radacct/%{Client-IP-Address}/auth-detail-%Y%m%d
expands to /var/log/radacct/202.xx.xx.xx/auth-detail-20080516
  modcall[authorize]: module "auth_log" returns ok for request 0
  rlm_chap: Setting 'Auth-Type := CHAP'
  modcall[authorize]: module "chap" returns ok for request 0
rlm_realm: No '@' in User-Name = "mobile", looking up realm NULL
rlm_realm: No such realm "NULL"
  modcall[authorize]: module "suffix" returns noop for request 0
  modcall[authorize]: module "files" returns notfound for request 0
radius_xlat:  'mobile'
rlm_sql (sql): sql_set_user escaped user --> 'mobile'
radius_xlat:  'SELECT id, UserName, Attribute, Value, op   FROM
radcheck   WHERE Username = 'mobile'   ORDER BY id'
rlm_sql (sql): Reserving sql socket id: 28
radius_xlat:  'SELECT
radgroupcheck.id,radgroupcheck.GroupName,radgroupcheck.Attribute,radgroupcheck.Value,radgroupcheck.op
 FROM radgroupcheck,usergroup WHERE usergroup.Username = 'mobile' AND
usergroup.GroupName = radgroupcheck.GroupName ORDER BY radgroupcheck.id'
radius_xlat:  'SELECT id, UserName, Attribute, Value, op   FROM
radreply   WHERE Username = 'mobile'   ORDER BY id'
radius_xlat:  'SELECT
radgroupreply.id,radgroupreply.GroupName,radgroupreply.Attribute,radgroupreply.Value,radgroupreply.op
 FROM radgroupreply,usergroup WHERE usergroup.Username = 'mobile' AND
usergroup.GroupName = radgroupreply.GroupName ORDER BY radgroupreply.id'
rlm_sql (sql): Released sql socket id: 28
  modcall[authorize]: module "sql" returns ok for request 0
rlm_checkval: Item Name: Calling-Station-Id, Value: 001a4daf4ead
rlm_checkval: Could not find attribute named Calling-Station-Id in check
pairs
  modcall[authorize]: module "checkval" returns notfound for request 0
rlm_sqlcounter: Entering module authorize code
rlm_sqlcounter: Could not find Check item value pair
  modcall[authorize]: module "dailycounter" returns noop for request 0
rlm_sqlcounter: Entering module authorize code
rlm_sqlcounter: Could not find Check item value pair
  modcall[authorize]: module "monthlycounter" returns noop for request 0
rlm_sqlcounter: Entering module authorize code
sqlcounter_expand:  'SELECT SUM(AcctSessionTime) FROM radacct WHERE
UserName='%{User-Name}''
radius_xlat:  'SELECT SUM(AcctSessionTime) FROM radacct WHERE
UserName='mobile''
sqlcounter_expand:  '%{sql:SELECT SUM(AcctSessionTime) FROM radacct
WHERE UserName='mobile'}'
radius_xlat: Running registered xlat function of module sql for string
'SELECT SUM(AcctSessionTime) FROM radacct WHERE UserName='mobile''
rlm_sql (sql): - sql_xlat
radius_xlat:  'mobile'
rlm_sql (sql): sql_set_user escaped user --> 'mobile'
radius_xlat:  'SELECT SUM(AcctSessionTime) FROM radacct WHERE
UserName='mobile''
rlm_sql (sql): Reserving sql socket id: 27
rlm_sql (sql): - sql_xlat finished
rlm_sql (sql): Released sql socket id: 27
radius_xlat:  '284499'
rlm_sqlcounter: (Check item - counter) is greater than zero
rlm_sqlcounter: Authorized user mobile, check_item=42, counter=284499
rlm_sqlcounter: Sent Reply-Item for user mobile, Type=Session-Timeout,
value=135501
  modcall[authorize]: module "noresetcounter" returns ok for request 0
Using perl at 0x82220c0
rlm_perl: Added pair Reply-Message = MAC Auth not Enabled
rlm_perl: Added pair Session-Timeout = 135501
rlm_perl: Added pair Filter-Id = 36/28
rlm_perl: Added pair mpd-limit = in#1=flt1 shape 256000 pass
rlm_perl: Added pair mpd-limit = in#2=all shape 48000
rlm_perl: Added pair mpd-limit = out#1=flt2 shape 512000 pass
rlm_perl: Added pair mpd-limit = out#2=all shape 48000
rlm_perl: Added pair Framed-Protocol = PPP
rlm_perl: Added pair Idle-Timeout = 200
rlm_perl: Added pair mpd-filter = 1#1=match dst 202.xx.xx.xx
rlm_perl: Added pair mpd-filter = 2#1=match src 202.xx.xx.xx
rlm_perl: Added pair Framed-Compression = Van-Jacobson-TCP-IP
rlm_perl: Added pair Expiration = Jul  3 2008 00:00:00 NPT
rlm_perl: Added pair Max-All-Session = 42
rlm_perl: Added pair User-Password = computer
rlm_perl: Added pair Simultaneous-Use = 2
rlm_perl: Added pair Auth-Type = CHAP

Re: help need with mysql statement in freeradius

2008-05-15 Thread Bishal

I am getting core dumped while running that script.

rlm_perl: perl_embed:: module = /usr/local/etc/raddb/mac_check.pl , func
= authorize exit status= Undefined subroutine &main::authorize called
Segmentation fault (core dumped)

##Script part
use vars qw(%RAD_REQUEST %RAD_REPLY %RAD_CHECK);



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

Is this the right process of getting value from the request ? How can I
bypass perl function Authorization, authentication, accounting so that
only MAC assignment process will be done by this script?

Thanks





On 5/15/2008, "Ivan Kalik" <[EMAIL PROTECTED]> wrote:

>PS. You should run your script in authorize.
>
>Ivan Kalik
>Kalik Informatika ISP
>
>
>Dana 15/5/2008, "Bishal" <[EMAIL PROTECTED]> pi¹e:
>
>>
>>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" <[EMAIL PROTECTED]> wrote:
>>
>>>
>>>Any sample scripts IVAN?
>>>
>>>
>>>
>>>On 5/14/2008, "Ivan Kalik" <[EMAIL PROTECTED]> 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
>>>
>>>
>>
>>-
>>List info/subscribe/unsubscribe? See http://www.freeradius.org/list/users.html
>>
>>
>
>-
>List info/subscribe/unsubscribe? See http://www.freeradius.org/list/users.html
>
>

-
List info/subscribe/unsubscribe? See http://www.freeradius.org/list/users.html


Re: help need with mysql statement in freeradius

2008-05-15 Thread Ivan Kalik
PS. You should run your script in authorize.

Ivan Kalik
Kalik Informatika ISP


Dana 15/5/2008, "Bishal" <[EMAIL PROTECTED]> piše:

>
>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" <[EMAIL PROTECTED]> wrote:
>
>>
>>Any sample scripts IVAN?
>>
>>
>>
>>On 5/14/2008, "Ivan Kalik" <[EMAIL PROTECTED]> 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
>>
>>
>
>-
>List info/subscribe/unsubscribe? See http://www.freeradius.org/list/users.html
>
>

-
List info/subscribe/unsubscribe? See http://www.freeradius.org/list/users.html


Re: help need with mysql statement in freeradius

2008-05-15 Thread Ivan Kalik
>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?
>

That's because you havent mastered even more basic things such as how to
concatenate a string. You also have difficulty distinguishing between
the name of the variable and it's value, ie. you are trying to put
names of the variables into the sql queries instead of their values.

Tips:

- have a look at example.pl and you will see how to log request
attributes (if you suspect that there is something wrong with them)

- use $query to build a query string and then print/log it in order to
find out what queries are you trying to run

- you can't use quotes within quotes if they are of the same type;
actually you can, but the result won't be what you expect - parser
does't know about "these quotes are inside those quotes" - first one
it runs into will be the start of the quote, next one will be the end

Ivan Kalik
Kalik Informatika ISP

-
List info/subscribe/unsubscribe? See http://www.freeradius.org/list/users.html


Re: help need with mysql statement in freeradius

2008-05-14 Thread 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" <[EMAIL PROTECTED]> wrote:

>
>Any sample scripts IVAN?
>
>
>
>On 5/14/2008, "Ivan Kalik" <[EMAIL PROTECTED]> 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
>
>

-
List info/subscribe/unsubscribe? See http://www.freeradius.org/list/users.html


Re: help need with mysql statement in freeradius

2008-05-14 Thread Ivan Kalik
You have something against learning? It shouldn't take more than a day
to master this.

Ivan Kalik
Kalik Informatika ISP


Dana 14/5/2008, "Bishal" <[EMAIL PROTECTED]> piše:

>
>Any sample scripts IVAN?
>
>
>
>On 5/14/2008, "Ivan Kalik" <[EMAIL PROTECTED]> 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
>
>

-
List info/subscribe/unsubscribe? See http://www.freeradius.org/list/users.html


Re: help need with mysql statement in freeradius

2008-05-14 Thread Bishal

Any sample scripts IVAN?



On 5/14/2008, "Ivan Kalik" <[EMAIL PROTECTED]> 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


Re: help need with mysql statement in freeradius

2008-05-14 Thread Ivan Kalik
>
> 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


Re: help need with mysql statement in freeradius

2008-05-14 Thread Bishal

Hi Ivan,

 I am using sql for AAA. Can u give me some exaples how can I do that
withl Rlm_perl modules.?

Thanks

On 5/14/2008, "Ivan Kalik" <[EMAIL PROTECTED]> wrote:

>http://wiki.freeradius.org/Rlm_perl
>
>Ivan Kalik
>kalik Informatika ISP
>
>
>Dana 14/5/2008, "Bishal" <[EMAIL PROTECTED]> pi¹e:
>
>>
>>Hi all,
>>
>>   I am trying to do MAC insertion during post authentication section
>>with the help of freeradius. Like during authentication section it will
>>check in mysql database for MAC use option. If MAC use= 1 then if the
>>user is login for the first time then grab the mac address from the
>>login process and insert into database. If mac use is not enable i.e.
>>MAC use=0 then go through normal process. Is is possible how can I do
>>that?
>>
>>Thanks in advance
>>
>>-
>>List info/subscribe/unsubscribe? See http://www.freeradius.org/list/users.html
>>
>>
>
>-
>List info/subscribe/unsubscribe? See http://www.freeradius.org/list/users.html
>
>

-
List info/subscribe/unsubscribe? See http://www.freeradius.org/list/users.html


Re: help need with mysql statement in freeradius

2008-05-14 Thread Ivan Kalik
http://wiki.freeradius.org/Rlm_perl

Ivan Kalik
kalik Informatika ISP


Dana 14/5/2008, "Bishal" <[EMAIL PROTECTED]> piše:

>
>Hi all,
>
>   I am trying to do MAC insertion during post authentication section
>with the help of freeradius. Like during authentication section it will
>check in mysql database for MAC use option. If MAC use= 1 then if the
>user is login for the first time then grab the mac address from the
>login process and insert into database. If mac use is not enable i.e.
>MAC use=0 then go through normal process. Is is possible how can I do
>that?
>
>Thanks in advance
>
>-
>List info/subscribe/unsubscribe? See http://www.freeradius.org/list/users.html
>
>

-
List info/subscribe/unsubscribe? See http://www.freeradius.org/list/users.html


help need with mysql statement in freeradius

2008-05-13 Thread Bishal

Hi all,

   I am trying to do MAC insertion during post authentication section
with the help of freeradius. Like during authentication section it will
check in mysql database for MAC use option. If MAC use= 1 then if the
user is login for the first time then grab the mac address from the
login process and insert into database. If mac use is not enable i.e.
MAC use=0 then go through normal process. Is is possible how can I do
that?

Thanks in advance

-
List info/subscribe/unsubscribe? See http://www.freeradius.org/list/users.html