From aa9e9ad1b0d9c0912e55d766fa1a1169d15363d4 Mon Sep 17 00:00:00 2001 From: Rich 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 6f0505f05d..bf9d684020 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.50.0