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

[chris]

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.
>

===
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.