- 论坛徽章:
- 0
|
用虚拟主机的方式指定DocumentRoot和DirectoryIndex指定却显示出pl源码了?
#!/usr/bin/suidperl -T
#################################################################
# #
# Open WebMail - Provides a web interface to user mailboxes #
# #
# Copyright (C) 2001-2005 #
# The Open Webmail Team #
# #
# Copyright (C) 2000 #
# Ernie Miller (original GPL project: Neomail) #
# #
# This program is distributed under GNU General Public License #
# #
#################################################################
#
# openwebmail.pl - entry point of openwebmail
#
use vars qw($SCRIPT_DIR);
if ( $0 =~ m!^(\S*)/[\w\d\-\.]+\.pl! ) { local $1; $SCRIPT_DIR=$1 }
if ($SCRIPT_DIR eq '' && open(F, '/etc/openwebmail_path.conf')) { |
|