Skip to content

Instantly share code, notes, and snippets.

@toddlers toddlers/fixtime.pl
Created May 29, 2013

Embed
What would you like to do?
#!/usr/bin/perl
use strict ;
use warnings ;
use constant DEBUG => 0 ;
my ($adjtimex) = grep { -f $_ } qw(/sbin/adjtimex ./adjtimex);
die "Need adjtimex - install or download from http://linux.brong.fastmail.fm/2012-06-30/adjtimex and put into current dir\n"
unless $adjtimex;
my $args = shift;
open my $cmdpipe, "$adjtimex --print |" ;
if (not defined $cmdpipe) {
die "Hell, cannot read from $adjtimex pipe" ;
}
my $status ;
while (my $line = <$cmdpipe>) {
my ($keyword,$value) = ($line =~ m/^\s*(.+): (.+)$/) ;
next unless $keyword eq q{status} ;
$status = $value ;
last ;
}
close ($cmdpipe);
if (not defined $status) {
die "Cannot read status from $adjtimex" ;
}
# We try to detect if a leap second is inserted (16) or deleted (32)
# We AND the status string with 48 (32+16) and we expect $leap to be
# either 0 (those bits are down), or 16 (leap second inserted), or
# 32 (leap second removed). Theoretically, we could also get 48, but
# that would mean that we are both inserting and removing a leap second
# at the same time, which is illogical.
my $leap = $status & 48 ;.
if ($leap == 0) {
# No leap set, we "fail" out
print "No leap, yay\n";
exit 1 ;
}
if ($leap == 16 or $leap == 32) {
# Leap second inserted (16) or deleted (32): we must reset that bit
$status -= $leap ;
print "leap $leap, " . ($args ? "fixing\n" : "run with arg to fix\n");
system($adjtimex,'--status',$status) if $args;
exit 0 ;
}
die "Leap bits are set to $leap, which is illogical" ;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.