Return to local.ntpd CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / ntp / scripts / rc2

Annotation of embedaddon/ntp/scripts/rc2/local.ntpd, revision 1.1.1.1

1.1       misho       1: #! /usr/bin/perl -w
                      2: # 980904 Harlan Stenn - created
                      3: 
                      4: # vvv CHANGE THESE vvv
                      5: 
                      6: $ps = "/bin/ps x |";
                      7: 
                      8: $ntp_conf = "/etc/ntp.conf";
                      9: $ntpd = "/usr/local/bin/xntpd";
                     10: $ntpdate = "/usr/local/bin/ntpdate -b -s 10.0.0.1 10.0.0.2";
                     11: 
                     12: # ^^^ CHANGE THESE ^^^
                     13: 
                     14: {
                     15:   if (0)
                     16:     {
                     17:     }
                     18:   elsif ($ARGV[0] eq "start")
                     19:     {
                     20:       @pidlist = pidlist($ntpd);
                     21:       if (defined(@pidlist))
                     22:         {
                     23:          warn "NTP is already running\n";
                     24:         }
                     25:       else
                     26:         {
                     27:          if ( -f $ntp_conf && -x $ntpd )
                     28:            {
                     29:               system ($ntpdate);
                     30:               system ($ntpd." -c ".$ntp_conf);
                     31:            }
                     32:         }
                     33:     }
                     34:   elsif ($ARGV[0] eq "stop")
                     35:     {
                     36:       @pidlist = pidlist($ntpd);
                     37:       kill 'TERM', @pidlist if (scalar(@pidlist) > 0);
                     38:     }
                     39:   else
                     40:     {
                     41:       die "Usage: $0 {start,stop}\n";
                     42:     }
                     43: }
                     44: 
                     45: sub pidlist ($)
                     46:   {
                     47:     my ($target) = @_;
                     48:     my ($qt) = quotemeta($target);
                     49:     my @pids;
                     50: 
                     51:     open(PS, $ps) || die "Can't run ps: $!\n";
                     52:     while (<PS>)
                     53:       {
                     54:        chomp;
                     55:        next unless (/$qt/);
                     56:        print "Got <$_>\n";
                     57:        if (/^\s*(\d+)\s+/)
                     58:          {
                     59:            push @pids, $1;
                     60:          }
                     61:       }
                     62:     close(PS);
                     63:     return @pids;
                     64:   }