diff options
Diffstat (limited to 'login.pl')
-rwxr-xr-x | login.pl | 13 |
1 files changed, 7 insertions, 6 deletions
@@ -77,12 +77,13 @@ $pos = rindex $0, '/'; $script = substr($0, $pos + 1); -if (-e "${LedgerSMB::Sysconfig::userspath}/nologin" && $script ne 'admin.pl') { - print "Content-Type: text/html\n\n<html><body><strong>"; - print "\nLogin disabled!\n"; - print "\n</strong></body></html>"; - exit; -} +#This needs to be a db query +#if (-e "${LedgerSMB::Sysconfig::userspath}/nologin" && $script ne 'admin.pl') { +# print "Content-Type: text/html\n\n<html><body><strong>"; +# print "\nLogin disabled!\n"; +# print "\n</strong></body></html>"; +# exit; +#} if ($form{path}) { |