version 1.2, 2005/02/17 20:45:04
|
version 1.7, 2007/08/22 19:53:22
|
Line 1
|
Line 1
|
#!/usr/bin/perl |
#!/usr/bin/perl |
|
# $Id$ |
|
|
$pidfile="/home/httpd/perl/logs/lonmemcached.pid"; |
$pidfile="/home/httpd/perl/logs/lonmemcached.pid"; |
$logfile="/home/httpd/perl/logs/lonmemcached.log"; |
$logfile="/home/httpd/perl/logs/lonmemcached.log"; |
|
|
Line 15 open (PIDSAVE,">$pidfile");
|
Line 17 open (PIDSAVE,">$pidfile");
|
print PIDSAVE "$$\n"; |
print PIDSAVE "$$\n"; |
close(PIDSAVE); |
close(PIDSAVE); |
|
|
exec("/usr/sbin/memcached -m 256 -v > $logfile"); |
if (-e '/usr/sbin/memcached') { |
|
exec('/usr/sbin/memcached','-m','400','-v'); |
|
} elsif (-e '/usr/bin/memcached') { |
|
exec('/usr/bin/memcached','-m','400','-v'); |
|
} else { |
|
die("Unable to find memcached"); |
|
} |