version 1.23, 2002/09/19 02:02:59
|
version 1.24, 2002/12/09 16:15:51
|
Line 269 print OUT<<END;
|
Line 269 print OUT<<END;
|
<title>$safeusername</title> |
<title>$safeusername</title> |
</head> |
</head> |
<body> |
<body> |
<h1>$safeusername</h1> |
<h1>Construction Space</h1> |
<p> |
<h3>$safeusername</h3> |
Learning Online Network |
|
</p> |
|
<p> |
|
This area provides for: |
|
</p> |
|
<ul> |
|
<li>resource construction</li> |
|
<li>resource publication</li> |
|
<li>record-keeping</li> |
|
</ul> |
|
</body> |
</body> |
</html> |
</html> |
END |
END |
close OUT; |
close OUT; |
|
|
print "lcuseradd exiting\n" unless $noprint; |
print "lcuseradd ownership\n" unless $noprint; |
system('/bin/chown','-R',"$safeusername:$safeusername","/home/$safeusername"); |
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=<PID>; |
|
close(PID); |
|
$pid=~s/\D+//g; |
|
if ($pid) { |
|
system('kill','-USR1',"$pid"); |
|
} |
|
} |
# -------------------------------------------------------- Exit script |
# -------------------------------------------------------- Exit script |
|
print "lcuseradd exiting\n" unless $noprint; |
&disable_root_capability; |
&disable_root_capability; |
exit 0; |
exit 0; |
|
|