Simple Unix::Login module

[Nathan Wiger]

I just wrote a simple Unix::Login module that simulates a Unix login
prompt and does password validation/optional shell exec, etc. Synopsis:

  SYNOPSIS
     # You can use the object-oriented syntax...
     use Unix::Login;

     my $ul = Unix::Login->new(BannerString =>
                        "\n--- Welcome to Newix ---\n\n");

     my $username = $ul->login
          || die "Sorry, you can't login. Try again.\n";


     # Or, use the function-oriented syntax
     use Unix::Login qw(login);

     my(@pwstruct) = login(LoginPrompt => "Username: ")
             || die "Sorry, you don't know your own password. Late!\n";


Is there any interest in this for the module list? I like it, but I'm
biased. :-)

Cheers,
Nate

-- 
Nathan Wiger <[EMAIL PROTECTED]>    |  # undo
Sr Sysadmin, Sun Microsystems  |  undo: command not found