(RADIATOR) Authenticate via Phone Number

[ext-aurelien . requiem]

Hi

This message is not a question !
Here the source of a preclienthook 
function to be able to authetication
with the user phone number

#<--------------- Begin ------------------>
# Created by Aurelien Requiem for Nokia world
# Dec 1999
use Radius::Radius;
use strict;

sub
{
        my $p = ${$_[0]};
        my $code = $p->code;
        my $subcodetype =
$p->getAttrByNum($Radius::Radius::ACCT_STATUS_TYPE);
        my $username;
        my $msisdn;

        if ( $code eq 'Access-Request')
        {
                my $username = $p->getAttrByNum($Radius::Radius::USER_NAME);
                my $msisdn =
$p->getAttrByNum($Radius::Radius::CALLING_STATION_ID);
                if (!$msisdn)
                {
                        # If no phone number supplied by Nas
                        $msisdn="000000000";
                }
                $p->{CachedAttrs}{$Radius::Radius::USER_NAME} = $msisdn;
                $p->changeAttrByNum($Radius::Radius::USER_NAME, $msisdn);

                $p->{CachedAttrs}{$Radius::Radius::CALLING_STATION_ID} =
$username;
                $p->changeAttrByNum($Radius::Radius::CALLING_STATION_ID,
$username);
        }
        elsif ($code == 'Accounting-Request')
        {
                if ( $subcodetype eq 'Start' )
                {
                        # You can do what you want !!!
                }
                elsif ( $subcodetype eq 'Stop' )
                {
                        # You can do what you want !!!
                }
        }
        else
        {
                # You can do what you want !!!
        }
        return;
}
#<---------------- End ------------------->

===
Archive at http://www.thesite.com.au/~radiator/
To unsubscribe, email '[EMAIL PROTECTED]' with
'unsubscribe radiator' in the body of the message.