#!/usr/bin/perl

( $hostname, $sleep ) = @ARGV;
$hostname = 'metline' unless $hostname;		#NT server to get date from
$sleep = 900 unless $sleep;			#Number of seconds to sleep

START:

chop( $winNTdate = `getNTdate $hostname` );
print "The date from the NT server is $winNTdate.\n";
$winNTdate = join( " " , split( /\,/ , $winNTdate ));
$winNTdate = join( " " , split( " " , $winNTdate ));

@winNTdate = split( " " , $winNTdate );
@localtime = localtime();

$time = pop( @winNTdate );
@time = split ( /\:/ , $time );
if ( $#time ne 2 )
{
	print "$hostname doesn't seem to be a NT date server.\n";
	exit;
}

#Setting date on Linux system:
`date -s $time`;

#Setting date on SGI system:
# if( substr( @winNTdate[1] , 0 , 3 ) eq "Jan" ) { $date = "01"; }
# if( substr( @winNTdate[1] , 0 , 3 ) eq "Feb" ) { $date = "02"; }
# if( substr( @winNTdate[1] , 0 , 3 ) eq "Mar" ) { $date = "03"; }
# if( substr( @winNTdate[1] , 0 , 3 ) eq "Apr" ) { $date = "04"; }
# if( substr( @winNTdate[1] , 0 , 3 ) eq "May" ) { $date = "05"; }
# if( substr( @winNTdate[1] , 0 , 3 ) eq "Jun" ) { $date = "06"; }
# if( substr( @winNTdate[1] , 0 , 3 ) eq "Jul" ) { $date = "07"; }
# if( substr( @winNTdate[1] , 0 , 3 ) eq "Aug" ) { $date = "08"; }
# if( substr( @winNTdate[1] , 0 , 3 ) eq "Sep" ) { $date = "09"; }
# if( substr( @winNTdate[1] , 0 , 3 ) eq "Oct" ) { $date = "10"; }
# if( substr( @winNTdate[1] , 0 , 3 ) eq "Nov" ) { $date = "11"; }
# if( substr( @winNTdate[1] , 0 , 3 ) eq "Dec" ) { $date = "12"; }
# $date .= sprintf( "%02d" , @winNTdate[2] ) . "@time[0]@time[1]" . pop( @winNTdate ) . ".@time[2]";
# print "date string = $date\n";
# `date @time[0]@time[1].@time[2]`;

if( $sleep eq -1 ) { exit; }
sleep $sleep;
goto START;
