From 73d2931977f5355d7919b83279c710939c2e3301 Mon Sep 17 00:00:00 2001
From: Gerhard Gonter <ggonter@gmail.com>
Date: Mon, 9 Dec 2019 16:49:21 +0100
Subject: [PATCH] added ts_ISO_gmt()
---
modules/util/Util/ts.pm | 8 ++++++++
1 file changed, 8 insertions(+)
diff --git a/modules/util/Util/ts.pm b/modules/util/Util/ts.pm
index eead920..cce3c5c 100644
--- a/modules/util/Util/ts.pm
+++ b/modules/util/Util/ts.pm
@@ -41,6 +41,14 @@ sub ts_ISO2_gmt
$ts[5]+1900, $ts[4]+1, $ts[3], $ts[2], $ts[1], $ts[0]);
}
+sub ts_ISO_gmt
+{
+ my $time= shift || time ();
+ my @ts= gmtime ($time);
+ sprintf ("%04d-%02d-%02dT%02d%02d%02d",
+ $ts[5]+1900, $ts[4]+1, $ts[3], $ts[2], $ts[1], $ts[0]);
+}
+
sub ts_pg
{
my $time= shift || time ();
--
GitLab