[Date Prev][Date Next][Thread Prev][Thread Next][Interchange by date
][Interchange by thread
]
[ic] No access database problem fixed
Here is a patch to 4.6.5 that fixes the (extremely rare) problem
Christopher VanOosterhout found where the admin UI allowed unrestricted
access if there was no 'access' database whatsoever. Patches have been
committed to both the stable and development branches in CVS.
Thanks, Christopher.
Jon
Index: Primitive.pm
===================================================================
RCS file: /var/cvs/interchange/dist/lib/UI/Primitive.pm,v
retrieving revision 1.26
retrieving revision 1.27
diff -u -r1.26 -r1.27
--- Primitive.pm 2001/02/02 02:09:57 1.26
+++ Primitive.pm 2001/06/08 18:58:43 1.27
@@ -23,7 +23,7 @@
package UI::Primitive;
-$VERSION = substr(q$Revision: 1.26 $, 10);
+$VERSION = substr(q$Revision: 1.27 $, 10);
$DEBUG = 0;
use vars qw!
@@ -163,9 +163,9 @@
my $try = shift;
my $table;
$Global::SuperUserFunction = \&is_super;
- my $default = defined $Global::Variable->{UI_ACL}
- ? (! $Global::Variable->{UI_ACL})
- : 1;
+ my $default = defined $Global::Variable->{UI_SECURITY_OVERRIDE}
+ ? $Global::Variable->{UI_SECURITY_OVERRIDE}
+ : 0;
$table = $::Variable->{UI_ACCESS_TABLE} || 'access';
$Vend::WriteDatabase{$table} = 1;
my $db = Vend::Data::database_exists_ref($table);
