(RADIATOR) Can Handler.pm be modified to catch the Calling-Station-Id?

[Hugh Irvine]

Hello Chris -

Rather than modify the base code, you should use one of the hooks provided for 
this purpose. Otherwise you would do something like this:

	.....
	my $callingstation = $p->get_attr('Calling-Station-Id');
	system "/usr/local/bin/badboy.email", $user, $submitted_pw, $callingstation;
	.....

regards

Hugh


On Tue, 2 Jul 2002 10:37, chris wrote:
> What I have done is modified Handler.pm as shown by the diff output below.
> The gist of it is the line
> system "/usr/local/bin/badboy.email", $user, $submitted_pw;
> I would just like to be able to pass the calling-station-id to this script
> along with the username and password, as the users attempt to login.
>
> Thanks,
> Chris
>
>
> *** Handler.pm.31 Fri Jun 28 12:38:00 2002
> --- Handler.pm Mon Jul  1 12:41:00 2002
> ***************
> *** 578,587 ****
>   my $time = time;
>   my $ctime = localtime($time);
>   my $r = $result ? 'PASS' : 'FAIL';
>   &Radius::Util::append
>       ($filename,
> !      "$ctime:$time:$user:$submitted_pw:correct_pw:$r\n")
>
>   || $self->log($main::LOG_ERR, "Could not append password log file
>
> '$filename': $!", $p);
>       }
>   }
>
> --- 578,598 ----
>   my $time = time;
>   my $ctime = localtime($time);
>   my $r = $result ? 'PASS' : 'FAIL';
> +     if ($r eq 'FAIL')
> + {
>   &Radius::Util::append
>       ($filename,
> !      "$ctime:$time:$user:$submitted_pw:$r\n")
>
>   || $self->log($main::LOG_ERR, "Could not append password log file
>
> '$filename': $!", $p);
> + system "/usr/local/bin/badboy.email", $user, $submitted_pw;
> +  }
> + else
> + {
> + &Radius::Util::append
> +     ($filename,
> +      "$ctime:$time:$user:CORRECT!:$r\n")
> + || $self->log($main::LOG_ERR, "Could not append password log file
> '$filename': $!", $p);
> +  }
>       }
>   }
>
> ----- Original Message -----
> From: "Hugh Irvine" <hugh at open.com.au>
> To: "chris" <lists at powernet.net>; <radiator at open.com.au>
> Sent: Monday, July 01, 2002 5:06 PM
> Subject: Re: (RADIATOR) Can Handler.pm be modified to catch the
> Calling-Station-Id?
>
> > Hello Chris -
> >
> > You have access to all the attributes in the radius request.
> >
> > If you are talking about a hook, there are some example hooks in the file
> > "goodies/hooks.txt" in the Radiator distribution.
> >
> > regards
> >
> > Hugh
> >
> > On Tue, 2 Jul 2002 09:41, chris wrote:
> > > Hello,
> > >
> > > Is the variable that carries the Calling-Station-Id passed to the
> > > Handler.pm or can it easily be?
> > > I would like to use it for a small change I am making in a script I am
> > > running.
> > >
> > > TIA
> > > Chris
> > >
> > >
> > >
> > >
> > >
> > > ===
> > > Archive at http://www.open.com.au/archives/radiator/
> > > Announcements on radiator-announce at open.com.au
> > > To unsubscribe, email 'majordomo at open.com.au' with
> > > 'unsubscribe radiator' in the body of the message.
> >
> > --
> > Radiator: the most portable, flexible and configurable RADIUS server
> > anywhere. Available on *NIX, *BSD, Windows 95/98/2000, NT, MacOS X.
> > -
> > Nets: internetwork inventory and management - graphical, extensible,
> > flexible with hardware, software, platform and database independence.
> > ===
> > Archive at http://www.open.com.au/archives/radiator/
> > Announcements on radiator-announce at open.com.au
> > To unsubscribe, email 'majordomo at open.com.au' with
> > 'unsubscribe radiator' in the body of the message.

-- 
Radiator: the most portable, flexible and configurable RADIUS server
anywhere. Available on *NIX, *BSD, Windows 95/98/2000, NT, MacOS X.
-
Nets: internetwork inventory and management - graphical, extensible,
flexible with hardware, software, platform and database independence.
===
Archive at http://www.open.com.au/archives/radiator/
Announcements on radiator-announce at open.com.au
To unsubscribe, email 'majordomo at open.com.au' with
'unsubscribe radiator' in the body of the message.