From df9c9b8f8a719eb9bd5ff707c9fd33dc7553fd90 Mon Sep 17 00:00:00 2001 From: Richard Bowen Date: Thu, 12 Apr 2012 12:47:53 +0000 Subject: [PATCH] Removes calls to `date`. git-svn-id: https://svn.apache.org/repos/asf/httpd/httpd/trunk@1325227 13f79535-47bb-0310-9956-ffa450edef68 --- support/log_server_status.in | 18 ++++++++++++------ 1 file changed, 12 insertions(+), 6 deletions(-) diff --git a/support/log_server_status.in b/support/log_server_status.in index 6f0505f05d7..bf9d6840201 100644 --- a/support/log_server_status.in +++ b/support/log_server_status.in @@ -55,12 +55,18 @@ sub tcp_connect ### Main { - my $year = `date +%y`; - chomp($year); - $year += ( $year < 70 ) ? 2000 : 1900; - my $date = $year . `date +%m%d:%H%M%S`; - chomp($date); - my ( $day, $time ) = split( /:/, $date ); + my @ltime = localtime(time); + + my $day = + $ltime[5] + 1900 + . sprintf( "%02d", $ltime[4] + 1 ) + . sprintf( "%02d", $ltime[3] ); + + my $time = + sprintf( "%02d", $ltime[2] ) + . sprintf( "%02d", $ltime[1] ) + . sprintf( "%02d", $ltime[0] ); + my $res = &tcp_connect( $server, $port ); open( OUT, ">>$wherelog$day" ); -- 2.47.3