version 1.2, 2005/07/07 22:26:52
|
version 1.4, 2005/10/31 16:13:45
|
Line 3
|
Line 3
|
# |
# |
# apachereload - setuid script that reloads the apache daemon. |
# apachereload - setuid script that reloads the apache daemon. |
# |
# |
|
# $Id$ |
# |
# |
# $Id |
# Copyright Michigan State University Board of Trustees |
# |
# |
# Change log: |
# This file is part of the LearningOnline Network with CAPA (LON-CAPA). |
# $Log$ |
|
# Revision 1.2 2005/07/07 22:26:52 albertel |
|
# - suse has apache not httpd |
|
# |
# |
# Revision 1.1 2003/09/30 10:06:48 foxr |
# LON-CAPA is free software; you can redistribute it and/or modify |
# This is a setuid script that allows the www user to issue |
# it under the terms of the GNU General Public License as published by |
# /etc/init.d/httpd reload |
# the Free Software Foundation; either version 2 of the License, or |
|
# (at your option) any later version. |
# |
# |
# This functionality is required by lond and lonc when they have been asked to |
# LON-CAPA is distributed in the hope that it will be useful, |
# reinitialize themselves. |
# 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. |
# |
# |
# Initial undebugged version. |
# You should have received a copy of the GNU General Public License |
|
# along with LON-CAPA; if not, write to the Free Software |
|
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
|
# |
|
# /home/httpd/html/adm/gpl.txt |
|
# |
|
# http://www.lon-capa.org/ |
# |
# |
### |
|
|
|
|
|
use strict; |
use strict; |
Line 35 $ENV{'PATH'}='/bin:/usr/bin:/usr/local/s
|
Line 41 $ENV{'PATH'}='/bin:/usr/bin:/usr/local/s
|
delete @ENV{qw(IFS CDPATH ENV BASH_ENV)}; # nullify potential taints |
delete @ENV{qw(IFS CDPATH ENV BASH_ENV)}; # nullify potential taints |
|
|
my $command = "/etc/init.d/httpd reload"; |
my $command = "/etc/init.d/httpd reload"; |
|
|
|
use lib '/home/httpd/lib/perl/'; |
|
use LONCAPA::Configuration; |
|
my %perlvar= %{&LONCAPA::Configuration::read_conf('loncapa.conf')}; |
|
|
my $dist=`$perlvar{'lonDaemons'}/distprobe`; |
my $dist=`$perlvar{'lonDaemons'}/distprobe`; |
if ($dist =~ /^(suse|sles)/) { |
if ($dist =~ /^(suse|sles)/) { |
$command = "/etc/init.d/httpd reload"; |
$command = "/etc/init.d/apache reload"; |
} |
} |
# Do not print error messages |
# Do not print error messages |
my $noprint=1; |
my $noprint=1; |