On Mon, May 05, 2003 at 04:43:10PM -0500, John Jetmore wrote: >
> I'm sure anyone on this list could have written this script, but I love
> abusing technology so the idea of using an SMTP server as some sort of
> radius-replacement amused me enough that I had to play w/ it. Since I
> wrote it might as well share it:
>
> <script>
> #!/usr/bin/perl
>
> use strict;
> use Net::SMTP;
>
> my $server = shift || exit 1;
> my $user = shift || exit 2;
> my $pass = shift || exit 3;
>
> my $smtp = Net::SMTP->new($server, Timeout => 5) || exit 4;
> $smtp->auth($user, $pass) || exit 5;
> $smtp->quit();
>
> exit 0;
> </script>
>
> I didn't get to actually implement this as an authenticator because of
> time constraints, but this should work:
>
> auth_plain:
> driver = plaintext
> public_name = PLAIN
> server_condition = ${run{COMMAND SERVER $2 $3}{Yes}{No}}
> server_set_id = $2
FYI:
I've finally had the chance to test this, and it actually works,
exactly as shown!
