loncom/lonmemcached - diff

Return to lonmemcached CVS log

Up to [LON-CAPA] / loncom

version 1.2, 2005/02/17 20:45:04	version 1.8, 2025/04/27 22:15:30
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");	my @args = ('-m','400','-l','127.0.0.1','-p','11211','-U','0','-v');
	if (-e '/usr/sbin/memcached') {
	unshift(@args,'/usr/sbin/memcached');
	exec( { $args[0] } @args);
	} elsif (-e '/usr/bin/memcached') {
	unshift(@args,'/usr/bin/memcached');
	exec( { $args[0] } @args);
	} else {
	die("Unable to find memcached");
	}