Date: Wed, 23 Oct 2002 19:05:26 -0400 (EDT) From: Jim Weeks <jim@jwweeks.com> To: Chris BeHanna <behanna@zbzoom.net> Cc: FreeBSD-Stable <stable@FreeBSD.ORG> Subject: Re: Password Authentication question Message-ID: <20021023185704.F1059-100000@veager.jwweeks.com> In-Reply-To: <20021023121442.X47335-100000@topperwein.pennasoft.com>
next in thread | previous in thread | raw e-mail | index | archive | help
> On Wed, 23 Oct 2002, Mark Hennessy wrote: > > I am trying to create an application that uses my existing passwd file to > > authenticate users via a web form. If you are writing your application in perl, this might be helpful. I sometimes use poppassd to authenticate directly from /etc/master.passwd with the follwing code. It probably could be cleaned up a bit, but you get the idea. use Socket; sub chkpass { $np = $form{'passwd'}; &open_TCP(PASSD, $host, $port) || &error ("Open Connection Fail"); # Get prompt $_ = <PASSD>; # Send username print PASSD "user $SysUsr\n"; # Get password request $_ = <PASSD>; # Send password print PASSD "pass $np\n"; # Get success(your new password please.) failure(Old password is incorrect.) $_ = <PASSD>; if ($_ =~ /please/) { $success = "y"; } elsif ($_ =~ /incorrect/) { $failure = "y"; } # Quit cleanly print PASSD "quit\n"; $_ = <PASSD>; if ($failure) { &error ("Incorrect password! Please hit your back button and try again."); } elsif ($success) { &setip; &welcome; } else { &error ("Unknown Password Error!") } } To Unsubscribe: send mail to majordomo@FreeBSD.org with "unsubscribe freebsd-stable" in the body of the message
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?20021023185704.F1059-100000>