provide tweak of conf snippet security, and drop local-securityheaders - local-COMMON - Unnamed repository; edit this file to name it for gitweb.

diff options

provide tweak of conf snippet security, and drop local-securityheaders

Diffstat (limited to 'cgit/uwsgi')

0 files changed, 0 insertions, 0 deletions

s="hl slc"># (at your option) any later version.

# This program is distributed in the hope that it will be useful,

# but WITHOUT ANY WARRANTY; without even the implied warranty of

# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the

# GNU General Public License for more details.

# You should have received a copy of the GNU General Public License

# along with this program; if not, write to the Free Software

# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.

#######################################################################

# this script sets up the terminal and runs the scripts

# in bin/$terminal directory

# admin.pl is linked to this script

#######################################################################

use LedgerSMB::Sysconfig;

require "common.pl";

$| = 1;

if ( $ENV{CONTENT_LENGTH} ) {

    read( STDIN, $_, $ENV{CONTENT_LENGTH} );

}

if ( $ENV{QUERY_STRING} ) {

    $_ = $ENV{QUERY_STRING};

}

if ( $ARGV[0] ) {

    $_ = $ARGV[0];

}

%form = split /[&=]/;

# fix for apache 2.0 bug

map { $form{$_} =~ s/\\$// } keys %form;

# name of this script

$0 =~ tr/\\/\//;

$pos = rindex $0, '/';

$script = substr( $0, $pos + 1 );

#this needs to be a db based function

#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} ) {

    if ( $form{path} ne 'bin/lynx' ) { $form{path} = 'bin/mozilla'; }