webadmin/bpfire
1
0
Fork 0
mirror of https://github.com/vincentmli/bpfire.git synced 2026-04-22 17:02:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

time.cgi: Get and manipuate date and time in pure perl

Browse Source 
Signed-off-by: Stefan Schantl <stefan.schantl@ipfire.org>
This commit is contained in:
Stefan Schantl
2021-05-20 21:13:50 +02:00
committed by Michael Tremer
parent 82215f2d5f
commit 276f938b09
1 changed files with 13 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
html/cgi-bin/time.cgi
View File

@@ -20,6 +20,7 @@
###############################################################################
use strict;
use POSIX qw(strftime);
# enable only the following on debugging purpose
#use warnings;
@@ -180,11 +181,18 @@ if ($timesettings{'VALID'} eq '')
}
unless ($errormessage) {
$timesettings{'SETMONTH'} = `date +'%m %e %Y %H %M'|cut -c 1-2`;
$timesettings{'SETDAY'} = `date +'%m %e %Y %H %M'|cut -c 4-5`;
$timesettings{'SETYEAR'} = `date +'%m %e %Y %H %M'|cut -c 7-10`;
$timesettings{'SETHOUR'} = `date +'%m %e %Y %H %M'|cut -c 12-13`;
$timesettings{'SETMINUTES'} = `date +'%m %e %Y %H %M'|cut -c 15-16`;
# Get date and time.
my $date = strftime("%m %e %Y %H %M", localtime);
# Split date string into single values.
my ($month, $day, $year, $hour, $minute) = split(/ /, $date);
# Assign values to the hash.
$timesettings{'SETMONTH'} = $month;
$timesettings{'SETDAY'} = $day;
$timesettings{'SETYEAR'} = $year;
$timesettings{'SETHOUR'} = $hour;
$timesettings{'SETMINUTES'} = $minute;
$_=$timesettings{'SETDAY'};
$timesettings{'SETDAY'}=~ tr/ /0/;
}