diff options
Diffstat (limited to 'daily-psk.local.rsc')
| -rw-r--r-- | daily-psk.local.rsc | 12 |
1 files changed, 3 insertions, 9 deletions
diff --git a/daily-psk.local.rsc b/daily-psk.local.rsc index df17173..94991a7 100644 --- a/daily-psk.local.rsc +++ b/daily-psk.local.rsc @@ -33,19 +33,13 @@ $WaitFullyConnected; :global DailyPskSecrets; - :local Months { "jan"; "feb"; "mar"; "apr"; "may"; "jun"; - "jul"; "aug"; "sep"; "oct"; "nov"; "dec" }; + :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 }; - :local Month [ :pick $Date 0 3 ]; + :local Month ($Months->[ :pick $Date 0 3 ]); :local Day [ :tonum [ :pick $Date 4 6 ] ]; :local Year [ :pick $Date 7 11 ]; - :for MIndex from=0 to=[ :len $Months ] do={ - :if ($Months->$MIndex = $Month) do={ - :set Month ($MIndex + 1); - } - } - :local A ((14 - $Month) / 12); :local B ($Year - $A); :local C ($Month + 12 * $A - 2); |