--- loncom/Attic/lcuseradd 2002/09/19 02:02:59 1.23 +++ loncom/Attic/lcuseradd 2002/12/09 16:15:51 1.24 @@ -18,7 +18,7 @@ # o LonCapa will add it if/when the user is granted an Author # role. # -# $Id: lcuseradd,v 1.23 2002/09/19 02:02:59 foxr Exp $ +# $Id: lcuseradd,v 1.24 2002/12/09 16:15:51 www Exp $ ### ############################################################################### @@ -269,27 +269,28 @@ print OUT<$safeusername -

$safeusername

-

-Learning Online Network -

-

-This area provides for: -

- +

Construction Space

+

$safeusername

END close OUT; -print "lcuseradd exiting\n" unless $noprint; +print "lcuseradd ownership\n" unless $noprint; system('/bin/chown','-R',"$safeusername:$safeusername","/home/$safeusername"); - +# ---------------------------------------------------- Gracefull Apache Restart +if (-e '/var/run/httpd.pid') { + print "lcuseradd Apache restart\n" unless $noprint; + open(PID,'/var/run/httpd.pid'); + my $pid=; + close(PID); + $pid=~s/\D+//g; + if ($pid) { + system('kill','-USR1',"$pid"); + } +} # -------------------------------------------------------- Exit script +print "lcuseradd exiting\n" unless $noprint; &disable_root_capability; exit 0;