diff options
author | tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-10-30 04:07:28 +0000 |
---|---|---|
committer | tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-10-30 04:07:28 +0000 |
commit | 230d7095e37f5cf9637f12d7de38a77526b74d4d (patch) | |
tree | 1ce4edd1408d6ae8eef8192c4f92a808a24313af /admin.pl | |
parent | acce011684470dce8ec792897142ad8f6385df1c (diff) |
Convert main configuration to using LedgerSMB::Sysconfig
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@381 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'admin.pl')
-rwxr-xr-x | admin.pl | 15 |
1 files changed, 2 insertions, 13 deletions
@@ -48,21 +48,10 @@ # ####################################################################### - -# setup defaults, DO NOT CHANGE -$userspath = "users"; -$spool = "spool"; -${LedgerSMB::Sysconfig::templates} = "templates"; -$memberfile = "users/members"; -$sendmail = "| /usr/sbin/sendmail -t"; -%printer = ( Printer => 'lpr' ); -########## end ########################################### - +use LedgerSMB::Sysconfig; $| = 1; -eval { require "ledger-smb.conf"; }; - if ($ENV{CONTENT_LENGTH}) { read(STDIN, $_, $ENV{CONTENT_LENGTH}); } @@ -87,7 +76,7 @@ $pos = rindex $0, '/'; $script = substr($0, $pos + 1); -if (-e "$userspath/nologin" && $script ne 'admin.pl') { +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>"; |