[BACK]Return to ntpcheck.piml CVS log [TXT] [DIR] Up to [LON-CAPA] / doc / loncapafiles

Diff for /doc/loncapafiles/ntpcheck.piml between versions 1.14 and 1.15

version 1.14, 2011/10/26 11:48:39 version 1.15, 2011/11/08 07:38:31
Line 38  http://www.lon-capa.org/ Line 38  http://www.lon-capa.org/
 print "Checking to be sure the Network Time Protocol is running properly.\n";  print "Checking to be sure the Network Time Protocol is running properly.\n";
 print "For more information on ntpd please see http://www.ntp.org/\n";  print "For more information on ntpd please see http://www.ntp.org/\n";
 my $NTPD;  my $NTPD;
   my $checkcmd = 'ps -ef |grep ntp |grep -v grep';
   my $startntpcmd;
   my $is_running;
 if (('<DIST />' eq 'fedora15') || ('<DIST />' eq 'fedora16')) {  if (('<DIST />' eq 'fedora15') || ('<DIST />' eq 'fedora16')) {
     $NTPD = 'ntpd';      $NTPD = 'ntpd';
       $startntpcmd = 'systemctl start ntpd.service';
     if (!-e '/usr/sbin/ntpd') {      if (!-e '/usr/sbin/ntpd') {
         print "ntp is not installed.\n";          print "ntp is not installed.\n";
         exit;          exit;
     } else {  
         if (open(PIPE,"systemctl status ntpd.service|")) {  
             my @lines = &lt;PIPE&gt;;  
             chomp(@lines);  
             my $is_running;  
             foreach my $line (@lines) {  
                 if ($line =~ /Active: active/) {  
                     $is_running = 1;  
                     last;   
                 }  
             }  
             close(PIPE);  
             if (!$is_running) {  
                 print "WARNING: ntp is installed but is not currently running.\nPlease verify the configuration of ntp in /etc/ntp.conf and /etc/ntp/step-tickers\nStart ntp by executing\n systemctl start ntpd.service|\n";  
             }  
         } else {  
             print "Could not determine ntp status.\n";  
         }  
     }      }
 } else {  } else {
     if (-e "/etc/init.d/ntpd") {      if (-e "/etc/init.d/ntpd") {
Line 73  if (('<DIST />' eq 'fedora15') || ('<DIS Line 59  if (('<DIST />' eq 'fedora15') || ('<DIS
         print "ntp is not installed.\n";          print "ntp is not installed.\n";
         exit;          exit;
     }      }
     my $value = `/etc/init.d/$NTPD status`;      $startntpcnd = "/etc/init.d/$NTPD start";
     if ($value !~ /pid  \d*)/i) {  }
         print "WARNING: ntp is installed but is not currently running.\nPlease verify the configuration of ntp in /etc/ntp.conf and /etc/ntp/step-tickers\nStart ntp by executing\n /etc/init.d/$NTPD start\n";  
   if (open(PIPE,'-|',$checkcmd)) {
       $is_running = &lt;PIPE&gt;;
       chomp($is_running);
       close(PIPE);
       if (!$is_running) {
           print "WARNING: ntp is installed but is not currently running.\nPlease verify the configuration of ntp in /etc/ntp.conf and /etc/ntp/step-tickers\nStart ntp by executing\n $startntpcmd\n";
     }      }
   } else {
       print "Could not determine ntp status.\n";
 }  }
   
 # chkconfig barfs to stderr if the target isn't set up right.  # chkconfig barfs to stderr if the target isn't set up right.
 my $checking_bin;  my $checking_bin;
 my $restartchk;  my $restartchk;
Removed from v.1.14  
changed lines
  Added in v.1.15

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>