[LON-CAPA-cvs] cvs: loncom / lonmemcached /lonnet/perl lonnet.pm

[albertel]

albertel		Tue Oct 17 01:56:47 2006 EDT

  Modified files:              
    /loncom	lonmemcached 
    /loncom/lonnet/perl	lonnet.pm 
  Log:
  - upping to amount of memeory memcached grabs
  - turning on the ability for auto gzipping large structs when sending them to memcached
  
  
Index: loncom/lonmemcached
diff -u loncom/lonmemcached:1.5 loncom/lonmemcached:1.6
--- loncom/lonmemcached:1.5	Thu Jul  7 22:22:58 2005
+++ loncom/lonmemcached	Tue Oct 17 01:56:34 2006
@@ -16,9 +16,9 @@
 close(PIDSAVE);
 
 if (-e '/usr/sbin/memcached') {
-    exec('/usr/sbin/memcached','-m','256','-v');
+    exec('/usr/sbin/memcached','-m','400','-v');
 } elsif (-e '/usr/bin/memcached') {
-    exec('/usr/bin/memcached','-m','256','-v');
+    exec('/usr/bin/memcached','-m','400','-v');
 } else {
     die("Unable to find memcached");
 }
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.793 loncom/lonnet/perl/lonnet.pm:1.794
--- loncom/lonnet/perl/lonnet.pm:1.793	Mon Oct 16 15:39:57 2006
+++ loncom/lonnet/perl/lonnet.pm	Tue Oct 17 01:56:46 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.793 2006/10/16 19:39:57 albertel Exp $
+# $Id: lonnet.pm,v 1.794 2006/10/17 05:56:46 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -7355,7 +7355,9 @@
 
 }
 
-$memcache=new Cache::Memcached({'servers'=>['127.0.0.1:11211']});
+$memcache=new Cache::Memcached({'servers'           => ['127.0.0.1:11211'],
+				'compress_threshold'=> 20_000,
+ 			        });
 
 $processmarker='_'.time.'_'.$perlvar{'lonHostID'};
 $dumpcount=0;