From 952f5499f9bc99d2dcb5755b266c5a005d776d1c Mon Sep 17 00:00:00 2001
From: Rudis Muiznieks <rudis@sitosis.com>
Date: Wed, 23 Jun 2021 09:39:00 -0500
Subject: [PATCH] added modified date to experimental js feature

---
 server.pl | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/server.pl b/server.pl
index eca6903..65f9858 100644
--- a/server.pl
+++ b/server.pl
@@ -539,7 +539,14 @@ EOF
     my $escapedPlan = encode_entities($plan->{'plan'});
     $escapedPlan =~ s/\n/<br>/g;
     $escapedPlan =~ s/(<br>)*$//;
-    my $body = "document.getElementById('dotplan').innerHTML = '$escapedPlan';";
+    my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime($mtime);
+    $year += 1900;
+    $mon++;
+    my $fmtMtime = sprintf('%d-%02d-%02d', $year, $mon, $mday);
+    my $body = <<EOF;
+document.getElementById('dotplan_date').innerHTML = '$fmtMtime';
+document.getElementById('dotplan_plan').innerHTML = '$escapedPlan';
+EOF
     my $headers = {
       'Content-Type' => 'application/javascript',
       'Last-Modified' => HTTP::Date::time2str($mtime)