--- loncom/lonmemcached	2005/02/14 00:29:48	1.1
+++ loncom/lonmemcached	2025/04/27 22:15:30	1.8
@@ -1,4 +1,6 @@
 #!/usr/bin/perl
+# $Id: lonmemcached,v 1.8 2025/04/27 22:15:30 raeburn Exp $
+
 $pidfile="/home/httpd/perl/logs/lonmemcached.pid";
 $logfile="/home/httpd/perl/logs/lonmemcached.log";
 
@@ -15,4 +17,13 @@ open (PIDSAVE,">$pidfile");
 print PIDSAVE "$$\n";
 close(PIDSAVE);
 
-exec("/usr/local/bin/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");
+}