diff options
author | ivan <ivan> | 2004-03-11 07:33:55 +0000 |
---|---|---|
committer | ivan <ivan> | 2004-03-11 07:33:55 +0000 |
commit | c959e1e7039535de9eed1afcdcc1adf3db9a0f9f (patch) | |
tree | 721a885e55157efacbe7c2497ce98658cc452bdf /fs_passwd/fs_passwd.cgi | |
parent | 7fa84ef3ef04fe18608d85c8c3aa1f34fe824c6c (diff) |
update fs_passwd stuff as wrappers around self-service
Diffstat (limited to 'fs_passwd/fs_passwd.cgi')
-rwxr-xr-x | fs_passwd/fs_passwd.cgi | 17 |
1 files changed, 8 insertions, 9 deletions
diff --git a/fs_passwd/fs_passwd.cgi b/fs_passwd/fs_passwd.cgi index 3f676fff3..34a33c7f5 100755 --- a/fs_passwd/fs_passwd.cgi +++ b/fs_passwd/fs_passwd.cgi @@ -2,12 +2,10 @@ use strict; use Getopt::Std; -use Socket; -use IO::Handle; +use FS::SelfService qw(passwd); use CGI; use CGI::Carp qw(fatalsToBrowser); -my $fs_passwdd_socket = "/usr/local/freeside/fs_passwdd_socket"; my $freeside_uid = scalar(getpwnam('freeside')); $ENV{'PATH'} ='/usr/local/bin:/usr/bin:/usr/ucb:/bin'; @@ -33,12 +31,13 @@ my $new_password = $1; die "New passwords don't match" unless $new_password eq $cgi->param('new_password2'); -socket(SOCK, PF_UNIX, SOCK_STREAM, 0) or die "socket: $!"; -connect(SOCK, sockaddr_un($fs_passwdd_socket)) or die "connect: $!"; -print SOCK join("\n", $me, $old_password, $new_password, '', ''), "\n"; -SOCK->flush; -my $error = <SOCK>; -chomp $error; +my $rv = passwd( + 'username' => $me, + 'old_password' => $old_password, + 'new_password' => $new_password, +); + +my $error = $rv->{error}; if ($error) { die $error; |