Return to freq_adj.in CVS log

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

ntp 4.2.6p5

    1: #! @PATH_PERL@ -w
    2: 
    3: die "perl5 needed\n" unless ($] > 5);
    4: 
    5: use Getopt::Std;
    6: use vars qw($opt_n);
    7: 
    8: getopts('d:nt:');
    9: 
   10: #chop($ncpu = `sysctl -n hw.ncpu`);
   11: #die "Found $ncpu CPUs; can only be run on systems with 1 CPU.\n" if ($ncpu > 1);
   12: 
   13: $driftfile = "/etc/ntp.drift";
   14: $driftfile = $opt_d if defined($opt_d);
   15: 
   16: chop($timer = `sysctl -n kern.timecounter.hardware 2> /dev/null`);
   17: 
   18: $timer =~ tr/\U/\L/;
   19: 
   20: if ($timer eq '') {
   21:   open(DM, "/var/run/dmesg.boot");
   22:   while(<DM>) {
   23:     # Timecounter "i8254"  frequency 1193182 Hz
   24:     if (/^Timecounter "(\w+)"\s+/) {
   25:       $timer = $1;
   26:       last;
   27:     }
   28:   }
   29:   close(DM);
   30: }
   31: 
   32: $opt_t = $timer if !defined($opt_t);
   33: 
   34: if ($timer ne '') {		# $timer found...
   35:   if ($opt_t ne  '') {		# - and $opt_t found
   36:     if ($timer ne $opt_t) {	# - - and they differ
   37:       warn "You specified a $opt_t timer but I detected a $timer timer.\n";
   38:       usage();
   39:       exit 1;
   40:     } else {			# - - and they are the same
   41:       ;
   42:     }
   43:   } else {			# - but no $opt_t specified; this is OK
   44:     ;
   45:   }
   46: } else {			# No $timer found...
   47:   if ($opt_t ne '') {		# - but $opt_t was specified
   48:     $timer = $opt_t;		# - - so use it.
   49:   } else {			# - and neither was $opt_t
   50:     warn "I can't tell what timer you have.  Please specify one.\n";
   51:     usage();
   52:     exit 1;
   53:   }
   54: }
   55: 
   56: open(DF, $driftfile) || die "Can't open driftfile ($driftfile): $!\n";
   57: while(<DF>) {
   58:     chop;
   59:     if (/^(-?\d+\.\d+)(\s\d)?$/) {
   60: 	$drift = $1;
   61:     } else {
   62: 	die "Bogus value in driftfile $driftfile: <$_>\n";
   63:     }
   64: }
   65: close(DF);
   66: 
   67: print "NTP drift is <$drift>\n";
   68: 
   69: # Convert from NTP's idea of PPM to a decimal equivalent
   70: $freq_adj = int ( $drift * ( 10 ** 6 / 2 ** 20) );
   71: print "normalized freq_adj  is <$freq_adj>\n";
   72: 
   73: $freq_adj = int ( ( $freq_adj - 1 ) / 2 );
   74: print "Applying freq_adj of <".-$freq_adj.">\n";
   75: 
   76: $sysctl = "machdep.".$timer."_freq";
   77: 
   78: chop($mach_freq = `sysctl -n $sysctl`);
   79: 
   80: print "$sysctl is <$mach_freq>\n";
   81: 
   82: $n_mach_freq = $mach_freq - $freq_adj;
   83: 
   84: if (defined($opt_n)) {
   85:   print "$sysctl $mach_freq -> $n_mach_freq\n";
   86: } else {
   87:   print "i8254: ".`sysctl -w $sysctl=$n_mach_freq`;
   88: }
   89: 
   90: sub usage {
   91:   print STDERR <<EOUsage
   92: Usage: $0 [-d drift_file] [-n] [-t timer]
   93: where "drift_file" defaults to /etc/ntp.drift
   94: and "timer" is usually "tsc" or "i8254"
   95: and "-n" says "don't really change anything, just say what would happen".
   96: EOUsage
   97: }