version 1.5, 2005/07/08 02:22:58
|
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 16 print PIDSAVE "$$\n";
|
Line 18 print PIDSAVE "$$\n";
|
close(PIDSAVE); |
close(PIDSAVE); |
|
|
if (-e '/usr/sbin/memcached') { |
if (-e '/usr/sbin/memcached') { |
exec('/usr/sbin/memcached','-m','256','-v'); |
exec('/usr/sbin/memcached','-m','400','-v'); |
} elsif (-e '/usr/bin/memcached') { |
} elsif (-e '/usr/bin/memcached') { |
exec('/usr/bin/memcached','-m','256','-v'); |
exec('/usr/bin/memcached','-m','400','-v'); |
} else { |
} else { |
die("Unable to find memcached"); |
die("Unable to find memcached"); |
} |
} |