SMP-Config angepasst.. CGIs usw. wurden im Windoof-Format gespeichert... muss noch...

[people/pmueller/ipfire-2.x.git] / html / cgi-bin / changepw.cgi

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