e-smith-base/sme7/e-smith-base-4.18.0-adminIsNotRoot.patch

 
--- e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/useraccounts.pm    2007-01-19 22:33:22.000000000 +0100
+++ e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/useraccounts.pm    2007-07-01 14:56:56.000000000 +0200
@@ -1178,7 +1178,7 @@ 
     my $self = shift;
     my $pass = shift;
 
-    if (esmith::util::authenticateUnixPassword('root', $pass))
+    if (esmith::util::authenticateUnixPassword( ($configdb->get_value("AdminIsNotRoot") eq 'enabled') ? 'admin' : 'root', $pass))
     {
         return "OK";
     }
@@ -1199,7 +1199,7 @@ 
     my ($self) = @_;
     my $pass = $self->{cgi}->param('pass');
 
-    esmith::util::setUnixSystemPassword($pass);
+    ($configdb->get_value("AdminIsNotRoot") eq 'enabled') ? esmith::util::setUnixPassword('admin',$pass) : esmith::util::setUnixSystemPassword($pass);
     esmith::util::setServerSystemPassword($pass);
 
     my $result = system("/sbin/e-smith/signal-event password-modify admin");
1
2	--- e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/useraccounts.pm 2007-01-19 22:33:22.000000000 +0100
3	+++ e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/useraccounts.pm 2007-07-01 14:56:56.000000000 +0200
4	@@ -1178,7 +1178,7 @@
5	my $self = shift;
6	my $pass = shift;
7
8	- if (esmith::util::authenticateUnixPassword('root', $pass))
9	+ if (esmith::util::authenticateUnixPassword( ($configdb->get_value("AdminIsNotRoot") eq 'enabled') ? 'admin' : 'root', $pass))
10	{
11	return "OK";
12	}
13	@@ -1199,7 +1199,7 @@
14	my ($self) = @_;
15	my $pass = $self->{cgi}->param('pass');
16
17	- esmith::util::setUnixSystemPassword($pass);
18	+ ($configdb->get_value("AdminIsNotRoot") eq 'enabled') ? esmith::util::setUnixPassword('admin',$pass) : esmith::util::setUnixSystemPassword($pass);
19	esmith::util::setServerSystemPassword($pass);
20
21	my $result = system("/sbin/e-smith/signal-event password-modify admin");