From 60f863871ca4ebe450011bdd0e6998eab6820fcd Mon Sep 17 00:00:00 2001
From: Christian Hesse <mail@eworm.de>
Date: Wed, 10 May 2023 14:42:48 +0200
Subject: global-functions: $ParseDate: handle date in ISO standard format
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

This was introduced with RouterOS 7.10beta5...

https://xkcd.com/1179/ 😜
---
 global-functions.rsc | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/global-functions.rsc b/global-functions.rsc
index fa8b767..c2c01ea 100644
--- a/global-functions.rsc
+++ b/global-functions.rsc
@@ -687,12 +687,18 @@
 :set ParseDate do={
   :local Date [ :tostr $1 ];
 
+  :if ([ :pick $Date 4 5 ] != "-") do={
     :local Months { "jan"=1; "feb"=2; "mar"=3; "apr"=4; "may"=5; "jun"=6;
                     "jul"=7; "aug"=8; "sep"=9; "oct"=10; "nov"=11; "dec"=12 };
 
     :return ({ "year"=[ :tonum [ :pick $Date 7 11 ] ];
               "month"=($Months->[ :pick $Date 0 3 ]);
                 "day"=[ :tonum [ :pick $Date 4 6 ] ] });
+  }
+
+  :return ({ "year"=[ :tonum [ :pick $Date 0 4 ] ];
+            "month"=[ :tonum [ :pick $Date 5 7 ] ];
+              "day"=[ :tonum [ :pick $Date 8 10 ] ] });
 }
 
 # parse key value store
-- 
cgit v1.2.3-70-g09d2