webadmin/bpfire
1
0
Fork 0
mirror of https://github.com/vincentmli/bpfire.git synced 2026-04-27 03:07:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

Signierten GPG-Schluessel importiert.

Browse Source 
smartctrl geschrieben.
Passwort kann nichtmehr im Webinterface geaendert werden.


git-svn-id: http://svn.ipfire.org/svn/ipfire/trunk@504 ea5c0bd1-69bd-2848-81d8-4f18e57aeed8
This commit is contained in:
ms
2007-04-26 12:27:41 +00:00
parent 72fe12a934
commit 40b0879d8f
11 changed files with 102 additions and 155 deletions
Download Patch File Download Diff File Expand all files Collapse all files

123
html/cgi-bin/changepw.cgi
View File

@@ -1,123 +0,0 @@
#!/usr/bin/perl
#
# SmoothWall CGIs
#
# This code is distributed under the terms of the GPL
#
# (c) The SmoothWall Team
#
# $Id: changepw.cgi,v 1.4.2.6 2005/03/07 21:28:03 eoberlander Exp $
#
use strict;
# enable only the following on debugging purpose
#use warnings;
#use CGI::Carp 'fatalsToBrowser';
require '/var/ipfire/general-functions.pl';
require "${General::swroot}/lang.pl";
require "${General::swroot}/header.pl";
my %cgiparams=();
my $errormessage='';
&Header::showhttpheaders();
$cgiparams{'ACTION_ADMIN'} = '';
$cgiparams{'ACTION_DIAL'} = '';
&Header::getcgihash(\%cgiparams);
if ($cgiparams{'ACTION_ADMIN'} eq $Lang::tr{'save'})
{
my $password1 = $cgiparams{'ADMIN_PASSWORD1'};
my $password2 = $cgiparams{'ADMIN_PASSWORD2'};
if ($password1 eq $password2)
{
if ($password1 =~ m/\s|\"/) {
$errormessage = $Lang::tr{'password contains illegal characters'};
}
elsif (length($password1) >= 6)
{
system('/usr/sbin/htpasswd', '-m', '-b', "${General::swroot}/auth/users", 'admin', "${password1}");
&General::log($Lang::tr{'admin user password has been changed'});
}
else {
$errormessage = $Lang::tr{'passwords must be at least 6 characters in length'}; }
}
else {
$errormessage = $Lang::tr{'passwords do not match'}; }
}
if ($cgiparams{'ACTION_DIAL'} eq $Lang::tr{'save'})
{
my $password1 = $cgiparams{'DIAL_PASSWORD1'};
my $password2 = $cgiparams{'DIAL_PASSWORD2'};
if ($password1 eq $password2)
{
if($password1 =~ m/\s|\"/) {
$errormessage = $Lang::tr{'password contains illegal characters'};
}
elsif (length($password1) >= 6)
{
system('/usr/sbin/htpasswd', '-m', '-b', "${General::swroot}/auth/users", 'dial', "${password1}");
&General::log($Lang::tr{'dial user password has been changed'});
}
else {
$errormessage = $Lang::tr{'passwords must be at least 6 characters in length'}; }
}
else {
$errormessage = $Lang::tr{'passwords do not match'}; }
}
&Header::openpage($Lang::tr{'change passwords'}, 1, '');
&Header::openbigbox('100%', 'left', '', $errormessage);
if ($errormessage) {
&Header::openbox('100%', 'left', $Lang::tr{'error messages'});
print "<class name='base'>$errormessage\n";
print "&nbsp;</class>\n";
&Header::closebox();
}
print "<form method='post' action='$ENV{'SCRIPT_NAME'}'>\n";
&Header::openbox('100%', 'left', $Lang::tr{'administrator user password'});
print <<END
<table width='100%'>
<tr>
<td width='20%' class='base'>$Lang::tr{'username'}&nbsp;'admin'</td>
<td width='15%' class='base' align='right'>$Lang::tr{'password'}&nbsp;</td>
<td width='15%'><input type='password' name='ADMIN_PASSWORD1' size='10' /></td>
<td width='15%' class='base' align='right'>$Lang::tr{'again'} </td>
<td width='15%'><input type='password' name='ADMIN_PASSWORD2' size='10' /></td>
<td width='20%' align='center'><input type='submit' name='ACTION_ADMIN' value='$Lang::tr{'save'}' /></td>
</tr>
</table>
END
;
&Header::closebox();
&Header::openbox('100%', 'left', $Lang::tr{'dial user password'});
print <<END
<table width='100%'>
<tr>
<td width='20%' class='base'>$Lang::tr{'username'}&nbsp;'dial'</td>
<td width='15%' class='base' align='right'>$Lang::tr{'password'}&nbsp;</td>
<td width='15%'><input type='password' name='DIAL_PASSWORD1' size='10'/></td>
<td width='15%' class='base' align='right'>$Lang::tr{'again'}&nbsp;</td>
<td width='15%'><input type='password' name='DIAL_PASSWORD2' size='10' /></td>
<td width='20%' align='center'><input type='submit' name='ACTION_DIAL' value='$Lang::tr{'save'}' /></td>
</tr>
</table>
END
;
&Header::closebox();
print "</form>\n";
&Header::closebigbox();
&Header::closepage();