Return to freq_adj.in CVS log

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

Annotation of embedaddon/ntp/scripts/freq_adj.in, revision 1.1.1.1

1.1       misho       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: }