[prev in list] [next in list] [prev in thread] [next in thread] 

List:       lon-capa-cvs
Subject:    [LON-CAPA-cvs] cvs: modules /raeburn monitor.pl
From:       raeburn <lon-capa-cvs () mail ! lon-capa ! org>
Date:       2005-03-29 17:46:01
Message-ID: cvsraeburn1112118361 () cvsserver
[Download RAW message or body]

raeburn		Tue Mar 29 12:46:01 2005 EDT

  Modified files:              
    /modules/raeburn	monitor.pl 
  Log:
  Small fixes.
  
  
Index: modules/raeburn/monitor.pl
diff -u modules/raeburn/monitor.pl:1.1 modules/raeburn/monitor.pl:1.2
--- modules/raeburn/monitor.pl:1.1	Mon Mar 28 17:38:58 2005
+++ modules/raeburn/monitor.pl	Tue Mar 29 12:46:01 2005
@@ -143,7 +143,7 @@
 my %formvalues = ();
 my %loadtimes = ();
 my ($outcome,$loginpage,$lonid);
-my @failures = ('conlost','unavailable','missingparam','unauthenticated','invalidcookie','nologin','unitialized','rolesfailed','navmapfailed','logoutfailed');
 +my @failures = ('conlost','unavailable','missingparam','unauthenticated','invalidcookie','nologin','uninitialized','rolesfailed','navmapfailed','logoutfailed');
  
 if (!-e "$monitordir/$serveralias") {
     mkdir("$monitordir/$serveralias",0755);
@@ -293,8 +293,7 @@
     $start = [gettimeofday];
     if ($response->is_success) {
         my $dump = $response->content;
-        if ($dump =~ m-<a href="/adm/roles?tryagain=1">-) {
-            print "initializing course failed\n";
+        if ($dump =~ m-<a href="/adm/roles\?tryagain=1">-) {
             $outcome = 'uninitialized';
         } else {
             $outcome = 'ok';


[prev in list] [next in list] [prev in thread] [next in thread]