--- html/cgi-bin/chpasswd.cgi | 57 +++++++++++++++++++++++++++-------------------- 1 file changed, 33 insertions(+), 24 deletions(-)
diff --git a/html/cgi-bin/chpasswd.cgi b/html/cgi-bin/chpasswd.cgi index 0a66062..00494f2 100644 --- a/html/cgi-bin/chpasswd.cgi +++ b/html/cgi-bin/chpasswd.cgi @@ -19,15 +19,26 @@ # # ###############################################################################
+use strict; + +#usable only the following on debugging purpose +#use warnings; +#use CGI::Carp 'fatalsToBrowser'; + use CGI qw(param); use Apache::Htpasswd; use Crypt::PasswdMD5;
-$swroot = "/var/ipfire"; - my %cgiparams; my %mainsettings; my %proxysettings; +my %netsettings; +my %temp; +my $swroot; +my $errormessage; +my $language; + +$swroot = "/var/ipfire";
$proxysettings{'NCSA_MIN_PASS_LEN'} = 6;
@@ -38,12 +49,10 @@ $language = $mainsettings{'LANGUAGE'};
### Initialize language if ($language =~ /^(\w+)$/) {$language = $1;} - # - # Uncomment this to force a certain language: - # $language='en'; - # -require "${swroot}/langs/en.pl"; -require "${swroot}/langs/${language}.pl"; + +require '/var/ipfire/general-functions.pl'; +require "${General::swroot}/lang.pl"; +require "${General::swroot}/header.pl";
my $userdb = "$swroot/proxy/advanced/ncsa/passwd";
@@ -53,26 +62,26 @@ my $success = 0;
&getcgihash(%cgiparams);
-if ($cgiparams{'SUBMIT'} eq $tr{'advproxy chgwebpwd change password'}) +if ($cgiparams{'SUBMIT'} eq $Lang::tr{'advproxy chgwebpwd change password'}) { if ($cgiparams{'USERNAME'} eq '') { - $errormessage = $tr{'advproxy errmsg no username'}; + $errormessage = $Lang::tr{'advproxy errmsg no username'}; goto ERROR; } if (($cgiparams{'OLD_PASSWORD'} eq '') || ($cgiparams{'NEW_PASSWORD_1'} eq '') || ($cgiparams{'NEW_PASSWORD_2'} eq '')) { - $errormessage = $tr{'advproxy errmsg no password'}; + $errormessage = $Lang::tr{'advproxy errmsg no password'}; goto ERROR; } if (!($cgiparams{'NEW_PASSWORD_1'} eq $cgiparams{'NEW_PASSWORD_2'})) { - $errormessage = $tr{'advproxy errmsg passwords different'}; + $errormessage = $Lang::tr{'advproxy errmsg passwords different'}; goto ERROR; } if (length($cgiparams{'NEW_PASSWORD_1'}) < $proxysettings{'NCSA_MIN_PASS_LEN'}) { - $errormessage = $tr{'advproxy errmsg password length 1'}.$proxysettings{'NCSA_MIN_PASS_LEN'}.$tr{'advproxy errmsg password length 2'}; + $errormessage = $Lang::tr{'advproxy errmsg password length 1'}.$proxysettings{'NCSA_MIN_PASS_LEN'}.$Lang::tr{'advproxy errmsg password length 2'}; goto ERROR; }
@@ -81,14 +90,14 @@ if ($cgiparams{'SUBMIT'} eq $tr{'advproxy chgwebpwd change password'}) # Check if a user with this name exists my $old_password = $htpasswd->fetchPass($cgiparams{'USERNAME'}); if (!$old_password) { - $errormessage = $tr{'advproxy errmsg invalid user'}; + $errormessage = $Lang::tr{'advproxy errmsg invalid user'}; goto ERROR; }
# Reset password if (!$htpasswd->htpasswd($cgiparams{'USERNAME'}, $cgiparams{'NEW_PASSWORD_1'}, $cgiparams{'OLD_PASSWORD'})) { - $errormessage = $tr{'advproxy errmsg password incorrect'}; + $errormessage = $Lang::tr{'advproxy errmsg password incorrect'}; goto ERROR; }
@@ -103,7 +112,7 @@ print "Cache-control: no-cache\n"; print "Connection: close\n"; print "Content-type: text/html\n\n";
-print <<END +print <<END; <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=UTF-8"/> @@ -124,7 +133,7 @@ print <<END <tr> <td nowrap bgcolor="#993333" align="center" > <font face="trebuchet ms, helvetica, sans-serif" color="#FFFFFF" size="4"> - <b>$tr{'advproxy chgwebpwd change web password'}</b> + <b>$Lang::tr{'advproxy chgwebpwd change web password'}</b> </font> </td> </tr> @@ -134,7 +143,7 @@ print <<END <tr> <td nowrap bgcolor="#FFFFFF" align="left"> <font face="trebuchet ms, helvetica, sans-serif" color="#666666" size="2"> - <b>$tr{'advproxy chgwebpwd username'}:</b> + <b>$Lang::tr{'advproxy chgwebpwd username'}:</b> </font> </td> <td ><input type="text" name="USERNAME" value="$cgiparams{'USERNAME'}" size="30"></td> @@ -142,7 +151,7 @@ print <<END <tr> <td nowrap bgcolor="#FFFFFF" align="left"> <font face="trebuchet ms, helvetica, sans-serif" color="#666666" size="2"> - <b>$tr{'advproxy chgwebpwd old password'}:</b> + <b>$Lang::tr{'advproxy chgwebpwd old password'}:</b> </font> </td> <td><input type="password" name="OLD_PASSWORD" value="$cgiparams{'OLD_PASSWORD'}" size="30"></td> @@ -150,7 +159,7 @@ print <<END <tr> <td nowrap bgcolor="#FFFFFF" align="left"> <font face="trebuchet ms, helvetica, sans-serif" color="#666666" size="2"> - <b>$tr{'advproxy chgwebpwd new password'}:</b> + <b>$Lang::tr{'advproxy chgwebpwd new password'}:</b> </font> </td> <td><input type="password" name="NEW_PASSWORD_1" value="$cgiparams{'NEW_PASSWORD_1'}" size="30"></td> @@ -158,7 +167,7 @@ print <<END <tr> <td nowrap bgcolor="#FFFFFF" align="left"> <font face="trebuchet ms, helvetica, sans-serif" color="#666666" size="2"> - <b>$tr{'advproxy chgwebpwd new password confirm'}:</b> + <b>$Lang::tr{'advproxy chgwebpwd new password confirm'}:</b> </font> </td> <td><input type="password" name="NEW_PASSWORD_2" value="$cgiparams{'NEW_PASSWORD_2'}" size="30"></td> @@ -166,7 +175,7 @@ print <<END </table> <table width="100%" cellspacing="7" cellpadding="7"> <tr> - <td align="center"><br><input type='submit' name='SUBMIT' value="$tr{'advproxy chgwebpwd change password'}"></td> + <td align="center"><br><input type='submit' name='SUBMIT' value="$Lang::tr{'advproxy chgwebpwd change password'}"></td> </tr> </table> </td> @@ -180,7 +189,7 @@ if ($errormessage) <tr> <td nowrap bgcolor="#FF0000" align="center"> <font face="trebuchet ms, helvetica, sans-serif" color="#FFFFFF" size="2"> - <b>$tr{'advproxy chgwebpwd ERROR'}</b> $errormessage + <b>$Lang::tr{'advproxy chgwebpwd ERROR'}</b> $errormessage </font> </td> </tr> @@ -194,7 +203,7 @@ if ($success) <tr> <td nowrap bgcolor="#00C000" align="center"> <font face="trebuchet ms, helvetica, sans-serif" color="#FFFFFF" size="2"> - <b>$tr{'advproxy chgwebpwd SUCCESS'}</b> $tr{'advproxy errmsg change success'} + <b>$Lang::tr{'advproxy chgwebpwd SUCCESS'}</b> $Lang::tr{'advproxy errmsg change success'} </font> </td> </tr>