/[smeserver]/rpms/e-smith-base/sme7/e-smith-base-4.18.0-useracc_single_char-fix.patch
ViewVC logotype

Annotation of /rpms/e-smith-base/sme7/e-smith-base-4.18.0-useracc_single_char-fix.patch

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph


Revision 1.1 - (hide annotations) (download)
Wed Feb 13 22:34:56 2008 UTC (16 years, 8 months ago) by burnat
Branch: MAIN
CVS Tags: e-smith-base-4_18_0-101_el4_sme, e-smith-base-4_18_0-102_el4_sme, e-smith-base-4_18_0-98_el4_sme, e-smith-base-4_18_0-100_el4_sme, e-smith-base-4_18_0-92_el4_sme, e-smith-base-4_18_0-99_el4_sme, e-smith-base-4_18_0-103_el4_sme, e-smith-base-4_18_0-104_el4_sme, e-smith-base-4_18_0-94_el4_sme
Updates

1 burnat 1.1 diff -Nur -x '*.orig' -x '*.rej' e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/useraccounts.pm mezzanine_patched_e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/useraccounts.pm
2     --- e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/useraccounts.pm 2008-02-12 16:56:28.000000000 +1100
3     +++ mezzanine_patched_e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/useraccounts.pm 2008-02-12 16:53:11.000000000 +1100
4     @@ -729,7 +729,7 @@
5     my ($self) = @_;
6     my $acctName = $self->{cgi}->param('acctName');
7    
8     - unless (($acctName) = ($acctName =~ /^(\w[\-\w_\.]+)$/)) {
9     + unless (($acctName) = ($acctName =~ /^(\w[\-\w_\.]*)$/)) {
10     return $self->error($self->localise('TAINTED_USER',
11     { acctName => $acctName }));
12     }
13     @@ -824,7 +824,7 @@
14     undef $accountdb;
15    
16     # Untaint the username before use in system()
17     - $acctName =~ /^(\w[\-\w_\.]+)$/;
18     + $acctName =~ /^(\w[\-\w_\.]*)$/;
19     $acctName = $1;
20    
21     if (system ("/sbin/e-smith/signal-event", "user-create", $acctName))
22     @@ -874,7 +874,7 @@
23     undef $accountdb;
24    
25     # Untaint the username before use in system()
26     - $acctName =~ /^(\w[\-\w_\.]+)$/;
27     + $acctName =~ /^(\w[\-\w_\.]*)$/;
28     $acctName = $1;
29     if (system ("/sbin/e-smith/signal-event", "user-delete", $acctName))
30     {
31     @@ -902,7 +902,7 @@
32     my ($self) = @_;
33     my $acctName = $self->{cgi}->param('acctName');
34    
35     - unless (($acctName) = ($acctName =~ /^(\w[\-\w_\.]+)$/)) {
36     + unless (($acctName) = ($acctName =~ /^(\w[\-\w_\.]*)$/)) {
37     return $self->error('TAINTED_USER');
38     }
39     $acctName = $1;
40     @@ -949,7 +949,7 @@
41     undef $accountdb;
42    
43     # Untaint the username before use in system()
44     - $acctName =~ /^(\w[\-\w_\.]+)$/;
45     + $acctName =~ /^(\w[\-\w_\.]*)$/;
46     $acctName = $1;
47     if (system("/sbin/e-smith/signal-event", "user-lock", $acctName))
48     {

admin@koozali.org
ViewVC Help
Powered by ViewVC 1.2.1 RSS 2.0 feed