[pve-installer.git] / checktime

#!/usr/bin/perl -w

use strict;
use File::stat;

sub testtime {

    my $st = stat ("/usr/bin/checktime") || stat ("./checktime");

    my $ctime = time();

    if ($ctime < $st->atime) {
	warn "detected wrong system time\n";
	my $tstr = localtime $st->atime;
	# correct system time to avoid errors, i.e gpg fails
	system ("date -s '$tstr'"); 
    }   
}

testtime();

exit (0);
Commit	Line	Data
89a12446 DM	1	#!/usr/bin/perl -w
	2
	3	use strict;
	4	use File::stat;
	5
	6	sub testtime {
	7
	8	my $st = stat ("/usr/bin/checktime") \|\| stat ("./checktime");
	9
	10	my $ctime = time();
	11
	12	if ($ctime < $st->atime) {
	13	warn "detected wrong system time\n";
	14	my $tstr = localtime $st->atime;
	15	# correct system time to avoid errors, i.e gpg fails
	16	system ("date -s '$tstr'");
	17	}
	18	}
	19
	20	testtime();
	21
	22	exit (0);