[LON-CAPA-cvs] cvs: loncom / lond
foxr
foxr@source.lon-capa.org
Tue, 02 Nov 2010 10:51:47 -0000
foxr Tue Nov 2 10:51:47 2010 EDT
Modified files:
/loncom lond
Log:
Remove debug setting.
Index: loncom/lond
diff -u loncom/lond:1.462 loncom/lond:1.463
--- loncom/lond:1.462 Tue Nov 2 10:20:35 2010
+++ loncom/lond Tue Nov 2 10:51:46 2010
@@ -2,7 +2,7 @@
# The LearningOnline Network
# lond "LON Daemon" Server (port "LOND" 5663)
#
-# $Id: lond,v 1.462 2010/11/02 10:20:35 foxr Exp $
+# $Id: lond,v 1.463 2010/11/02 10:51:46 foxr Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -53,12 +53,12 @@
use Fcntl qw(:flock);
use Apache::lonnet;
-my $DEBUG = 1; # Non zero to enable debug log entries.
+my $DEBUG = 0; # Non zero to enable debug log entries.
my $status='';
my $lastlog='';
-my $VERSION='$Revision: 1.462 $'; #' stupid emacs
+my $VERSION='$Revision: 1.463 $'; #' stupid emacs
my $remoteVERSION;
my $currenthostid="default";
my $currentdomainid;
@@ -1121,6 +1121,8 @@
sub load_handler {
my ($cmd, $tail, $replyfd) = @_;
+
+
# Get the load average from /proc/loadavg and calculate it as a percentage of
# the allowed load limit as set by the perl global variable lonLoadLim
@@ -4423,7 +4425,8 @@
sub put_dcmail_handler {
my ($cmd,$tail,$client) = @_;
my $userinput = "$cmd:$tail";
-
+
+
my ($udom,$what)=split(/:/,$tail);
chomp($what);
my $hashref = &tie_domain_hash($udom, "nohist_dcmail", &GDBM_WRCREAT());