[LON-CAPA-cvs] cvs: loncom / apachereload

[albertel]

albertel		Fri Jan 27 16:21:06 2006 EDT

  Modified files:              
    /loncom	apachereload 
  Log:
  - taint issue which the perlvar
  
  
Index: loncom/apachereload
diff -u loncom/apachereload:1.4 loncom/apachereload:1.5
--- loncom/apachereload:1.4	Mon Oct 31 11:13:45 2005
+++ loncom/apachereload	Fri Jan 27 16:21:05 2006
@@ -3,7 +3,7 @@
 #
 # apachereload - setuid script that reloads the apache daemon.
 #
-# $Id: apachereload,v 1.4 2005/10/31 16:13:45 albertel Exp $
+# $Id: apachereload,v 1.5 2006/01/27 21:21:05 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -46,7 +46,8 @@
 use LONCAPA::Configuration;
 my %perlvar= %{&LONCAPA::Configuration::read_conf('loncapa.conf')};
 
-my $dist=`$perlvar{'lonDaemons'}/distprobe`;
+my $execdir = ($perlvar{'lonDaemons'} =~/(.*)/);
+my $dist=`$execdir/distprobe`;
 if ($dist =~ /^(suse|sles)/) {
     $command = "/etc/init.d/apache reload";
 }