version 1.1, 2000/10/26 01:24:23
|
version 1.2, 2000/10/26 01:37:36
|
Line 1
|
Line 1
|
#!/usr/bin/perl |
#!/usr/bin/perl |
|
# |
|
# Startup script for the LON-CAPA network processes |
|
# Scott Harrison 10/25/2000 |
|
# |
|
# chkconfig: 345 85 15 |
|
# description: Apache is a World Wide Web server. It is used to serve \ |
|
# HTML files and CGI. |
|
# processnames: lonc, lond, lonsql |
|
# pidfiles: /home/httpd/perl/logs/lon*.pid |
|
# config: /etc/httpd/conf/access.conf |
|
# config: /home/httpd/lonTabs/hosts.tab |
|
# config: /home/httpd/lonTabs/spare.tab |
|
|
|
open (IN, "</etc/passwd"); |
|
@lines=<IN>; |
|
close IN; |
|
for $l (@lines) { |
|
chop $l; |
|
@F=split(/\:/,$l); |
|
if ($F[0] eq 'www') {$wwwid=$F[2];} |
|
} |
|
$<=$wwwid; |
|
|
|
open (OUT, ">junk"); |
|
print OUT "stuff"; |
|
close OUT; |
|
__END__ |
|
|
$command=$ARGV[0]; $command=~s/[^a-z]//g; |
$command=$ARGV[0]; $command=~s/[^a-z]//g; |
|
|