From 160be29a0dc62e79a4fb95d2ab8c0c7e5996760e Mon Sep 17 00:00:00 2001 From: cvs2git Date: Mon, 12 Aug 2002 06:17:10 +0000 Subject: This commit was manufactured by cvs2svn to create branch 'BESTPRACTICAL'. --- fs_passwd/fs_passwd.cgi | 57 ------------------------------------------------- 1 file changed, 57 deletions(-) delete mode 100755 fs_passwd/fs_passwd.cgi (limited to 'fs_passwd/fs_passwd.cgi') diff --git a/fs_passwd/fs_passwd.cgi b/fs_passwd/fs_passwd.cgi deleted file mode 100755 index 3f676fff3..000000000 --- a/fs_passwd/fs_passwd.cgi +++ /dev/null @@ -1,57 +0,0 @@ -#!/usr/bin/perl -Tw - -use strict; -use Getopt::Std; -use Socket; -use IO::Handle; -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'; -$ENV{'SHELL'} = '/bin/sh'; -$ENV{'IFS'} = " \t\n"; -$ENV{'CDPATH'} = ''; -$ENV{'ENV'} = ''; -$ENV{'BASH_ENV'} = ''; - -die "fs_passwd.cgi isn't running as freeside user\n" if $> != $freeside_uid; - -my $cgi = new CGI; - -$cgi->param('username') =~ /^([^\n]{0,255}$)/ or die "Illegal username"; -my $me = $1; - -$cgi->param('old_password') =~ /^([^\n]{0,255}$)/ or die "Illegal old_password"; -my $old_password = $1; - -$cgi->param('new_password') =~ /^([^\n]{0,255}$)/ or die "Illegal new_password"; -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 = ; -chomp $error; - -if ($error) { - die $error; -} else { - print $cgi->header(), < - - Password changed - - -

Password changed

-
Your password has been changed. - - -END -} -- cgit v1.2.1