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" <[EMAIL PROTECTED]> To: "chris" <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]> 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 [EMAIL PROTECTED] > > To unsubscribe, email '[EMAIL PROTECTED]' 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 [EMAIL PROTECTED] > To unsubscribe, email '[EMAIL PROTECTED]' with > 'unsubscribe radiator' in the body of the message. > === Archive at http://www.open.com.au/archives/radiator/ Announcements on [EMAIL PROTECTED] To unsubscribe, email '[EMAIL PROTECTED]' with 'unsubscribe radiator' in the body of the message.