From 214089b06bba26899a63ee875bf335404d219b15 Mon Sep 17 00:00:00 2001 From: Philipp Date: Tue, 20 Feb 2024 14:59:27 +0100 Subject: [PATCH] Added JavaScript. --- Makefile | 15 ++++----- app/dmweb.f90 | 13 +++++--- share/dmpack.js | 18 +++++++++++ src/dm_html.f90 | 81 ++++++++++++++++++++++++++++++++----------------- 4 files changed, 88 insertions(+), 39 deletions(-) create mode 100644 share/dmpack.js diff --git a/Makefile b/Makefile index ab2a20c..f6166ea 100644 --- a/Makefile +++ b/Makefile @@ -699,14 +699,15 @@ install: install -m 644 $(TARGET) $(ILIBDIR)/ install -m 644 $(SHARED) $(ILIBDIR)/ install -m 644 $(CONFDIR)/*.conf.sample $(IETCDIR)/ - install -m 644 $(SHRDIR)/dmpack.css $(ISHRDIR)/ - install -m 644 $(SHRDIR)/dmpack.min.css $(ISHRDIR)/ - install -m 644 $(SHRDIR)/dmreport.css $(ISHRDIR)/ + install -m 644 $(SHRDIR)/dmpack.css $(ISHRDIR)/ + install -m 644 $(SHRDIR)/dmpack.min.css $(ISHRDIR)/ + install -m 644 $(SHRDIR)/dmreport.css $(ISHRDIR)/ install -m 644 $(SHRDIR)/dmreport.min.css $(ISHRDIR)/ - install -m 644 $(SHRDIR)/dmlua.lua $(ISHRDIR)/ - install -m 644 $(SHRDIR)/feed.xsl $(ISHRDIR)/ - install -m 755 $(SHRDIR)/diskfree.sh $(ISHRDIR)/ - install -m 755 $(SHRDIR)/mkreport.sh $(ISHRDIR)/ + install -m 644 $(SHRDIR)/dmpack.js $(ISHRDIR)/ + install -m 644 $(SHRDIR)/dmlua.lua $(ISHRDIR)/ + install -m 644 $(SHRDIR)/feed.xsl $(ISHRDIR)/ + install -m 755 $(SHRDIR)/diskfree.sh $(ISHRDIR)/ + install -m 755 $(SHRDIR)/mkreport.sh $(ISHRDIR)/ $(GZIP) -9 < $(MANDIR)/dmapi.1 > $(IMANDIR)/dmapi.1.gz $(GZIP) -9 < $(MANDIR)/dmbackup.1 > $(IMANDIR)/dmbackup.1.gz $(GZIP) -9 < $(MANDIR)/dmbeat.1 > $(IMANDIR)/dmbeat.1.gz diff --git a/app/dmweb.f90 b/app/dmweb.f90 index f72df98..7159ce3 100644 --- a/app/dmweb.f90 +++ b/app/dmweb.f90 @@ -23,9 +23,9 @@ program dmweb !! The databases have to exist at start-up. Add the variables to the !! configuration file of your web server. !! - !! Copy the CSS file `share/dmpack.min.css` to the document root path - !! (`/var/www/`), or create a symlink. Any other classless CSS may work - !! as well. + !! Copy the CSS file `share/dmpack.min.css` and the JavaScript file + !! `share/dmpack.js` to the document root path (`/var/www/`), or create a + !! symlink. Other classless style sheets may work as well. use :: dmpack implicit none (type, external) @@ -37,6 +37,7 @@ program dmweb ! Program parameters. character(len=*), parameter :: APP_BASE_PATH = '/dmpack' !! URI base path. character(len=*), parameter :: APP_CSS_PATH = '/dmpack.min.css' !! Path to CSS file. + character(len=*), parameter :: APP_JS_PATH = '/dmpack.js' !! Path to JavaScript file. character(len=*), parameter :: APP_TITLE = 'DMPACK' !! HTML title and heading. integer, parameter :: APP_DB_TIMEOUT = DB_TIMEOUT_DEFAULT !! SQLite 3 busy timeout in mseconds. logical, parameter :: APP_READ_ONLY = .false. !! Read-only mode. @@ -2198,7 +2199,11 @@ subroutine html_footer() ' | Status' // & H_SMALL_END // H_P_END - call dm_cgi_out(dm_html_footer(CONTENT)) + if (len_trim(APP_JS_PATH) > 0) then + call dm_cgi_out(dm_html_footer(CONTENT, APP_JS_PATH)) + else + call dm_cgi_out(dm_html_footer(CONTENT)) + end if end subroutine html_footer subroutine html_header(title) diff --git a/share/dmpack.js b/share/dmpack.js new file mode 100644 index 0000000..5d456b7 --- /dev/null +++ b/share/dmpack.js @@ -0,0 +1,18 @@ +/* + * Additional formatting of ISO 8601 time stamps in the DMPACK web interface. + */ +function formatTimeElements() +{ + var times = document.getElementsByTagName('time'); + + for (var i = 0; i < times.length; i++) + { + var attr = times[i].getAttribute('datetime'); + var date = attr.substring(0, 10); + var time = attr.substring(11, 19); + var zone = attr.substring(19); + times[i].innerHTML = `${date} ${time} ${zone}`; + } +} + +formatTimeElements(); diff --git a/src/dm_html.f90 b/src/dm_html.f90 index 9dad8d7..9097fc5 100644 --- a/src/dm_html.f90 +++ b/src/dm_html.f90 @@ -136,7 +136,8 @@ module dm_html character(len=*), parameter, public :: H_UL_END = '' // NL type, public :: anchor_type - !! HTML anchor type. + !! HTML anchor type. The length of link text and URL are limited to 256 + !! characters. character(len=256) :: link = ' ' !! URL. character(len=256) :: text = ' ' !! Link text. end type anchor_type @@ -180,6 +181,7 @@ module dm_html public :: dm_html_pre public :: dm_html_request public :: dm_html_responses + public :: dm_html_script public :: dm_html_select public :: dm_html_select_create public :: dm_html_select_destroy @@ -194,13 +196,23 @@ module dm_html public :: dm_html_th public :: dm_html_time contains - pure function dm_html_anchor(anchor) result(html) - !! Returns HTML anchor tag. - type(anchor_type), intent(in) :: anchor !! Anchor type. - character(len=:), allocatable :: html !! Generated HTML. + pure function dm_html_anchor(anchor, encode) result(html) + !! Returns HTML anchor tag. Address and inner HTML of the anchor + !! element are encoded by default. + type(anchor_type), intent(in) :: anchor !! Anchor type. + logical, intent(in), optional :: encode !! Encode address and inner HTML of anchor element. + character(len=:), allocatable :: html !! Generated HTML. + + logical :: encode_ - html = '' // & - dm_html_encode(anchor%text) // '' + encode_ = .true. + if (present(encode)) encode_ = encode + + if (encode_) then + html = '' // dm_html_encode(anchor%text) // '' + else + html = '' // trim(anchor%text) // '' + end if end function dm_html_anchor function dm_html_beat(beat, delta, prefix) result(html) @@ -325,7 +337,7 @@ function dm_html_beats(beats, deltas, prefix) result(html) html = html // & H_TD // H_CODE // dm_html_encode(beats(i)%address) // H_CODE_END // H_TD_END // & - H_TD // dm_html_encode(beats(i)%time_recv) // H_TD_END // & + H_TD // dm_html_time(beats(i)%time_recv) // H_TD_END // & H_TD // dm_itoa(beats(i)%error) // H_TD_END // & H_TD // dm_itoa(beats(i)%interval) // ' secs' // H_TD_END // & H_TD // dm_time_delta_to_string(time_delta, hours=.false., minutes=.false., seconds=.false.) // H_TD_END // & @@ -551,18 +563,22 @@ pure function dm_html_figure(content, caption) result(html) html = html // H_FIGURE_END end function dm_html_figure - pure function dm_html_footer(content) result(html) - !! Returns HTML footer. The content will not be HTML encoded. + pure function dm_html_footer(content, script) result(html) + !! Returns HTML footer. The content and the script URL will not be HTML + !! encoded. The script element will be placed before the `` tag. character(len=*), intent(in), optional :: content !! Optional footer content. + character(len=*), intent(in), optional :: script !! Optional script URL. character(len=:), allocatable :: html !! Generated HTML. - if (present(content)) then - html = H_MAIN_END // H_FOOTER // trim(content) // H_FOOTER_END // & - H_DIV_END // H_BODY_END // H_HTML_END - return - end if + character(len=:), allocatable :: content_, script_ + + content_ = '' + script_ = '' + + if (present(content)) content_ = H_FOOTER // trim(content) // H_FOOTER_END + if (present(script)) script_ = dm_html_script(script) - html = H_MAIN_END // H_DIV_END // H_BODY_END // H_HTML_END + html = H_MAIN_END // content_ // H_DIV_END // script_ // H_BODY_END // H_HTML_END end function dm_html_footer function dm_html_header(title, subtitle, style, internal_style, brand, nav, mask) result(html) @@ -861,7 +877,7 @@ function dm_html_log(log, prefix_node, prefix_sensor, prefix_target, prefix_obse H_TR // H_TH // 'ID' // H_TH_END // & H_TD // H_CODE // dm_html_encode(log%id) // H_CODE_END // H_TD_END // H_TR_END // & H_TR // H_TH // 'Timestamp' // H_TH_END // & - H_TD // dm_html_time(log%timestamp) // H_TD_END // H_TR_END // & + H_TD // dm_html_encode(log%timestamp) // H_TD_END // H_TR_END // & H_TR // H_TH // 'Level' // H_TH_END // & H_TD // dm_html_mark(LOG_LEVEL_NAMES(level), class=LOG_LEVEL_NAMES_LOWER(level)) // H_TD_END // H_TR_END // & H_TR // H_TH // 'Error' // H_TH_END // & @@ -923,8 +939,8 @@ function dm_html_logs(logs, prefix, node, max_len) result(html) if (is_anchor) then ! Turn timestamp into link to `prefix`. anchor%link = prefix // dm_html_encode(logs(i)%id) - anchor%text = logs(i)%timestamp - html = html // H_TD // dm_html_anchor(anchor) // H_TD_END + anchor%text = dm_html_time(logs(i)%timestamp) + html = html // H_TD // dm_html_anchor(anchor, encode=.false.) // H_TD_END else html = html // H_TD // dm_html_time(logs(i)%timestamp) // H_TD_END end if @@ -1047,7 +1063,7 @@ function dm_html_nodes(nodes, prefix) result(html) ! Turn node name into link to `prefix`. anchor%link = prefix // dm_html_encode(nodes(i)%id) anchor%text = dm_html_encode(nodes(i)%id) - html = html // H_TD // dm_html_anchor(anchor) // H_TD_END + html = html // H_TD // dm_html_anchor(anchor, encode=.false.) // H_TD_END else html = html // H_TD // dm_html_encode(nodes(i)%id) // H_TD_END end if @@ -1084,7 +1100,7 @@ function dm_html_observ(observ, prefix_node, prefix_sensor, prefix_target) resul if (present(prefix_node) .and. len_trim(observ%node_id) > 0) then anchor%link = prefix_node // dm_html_encode(observ%node_id) anchor%text = dm_html_encode(observ%node_id) - nid = dm_html_anchor(anchor) + nid = dm_html_anchor(anchor, encode=.false.) else nid = dm_html_encode(observ%node_id) end if @@ -1093,7 +1109,7 @@ function dm_html_observ(observ, prefix_node, prefix_sensor, prefix_target) resul if (present(prefix_sensor) .and. len_trim(observ%sensor_id) > 0) then anchor%link = prefix_sensor // dm_html_encode(observ%sensor_id) anchor%text = dm_html_encode(observ%sensor_id) - sid = dm_html_anchor(anchor) + sid = dm_html_anchor(anchor, encode=.false.) else sid = dm_html_encode(observ%sensor_id) end if @@ -1102,7 +1118,7 @@ function dm_html_observ(observ, prefix_node, prefix_sensor, prefix_target) resul if (present(prefix_target) .and. len_trim(observ%target_id) > 0) then anchor%link = prefix_target // dm_html_encode(observ%target_id) anchor%text = dm_html_encode(observ%target_id) - tid = dm_html_anchor(anchor) + tid = dm_html_anchor(anchor, encode=.false.) else tid = dm_html_encode(observ%target_id) end if @@ -1119,7 +1135,7 @@ function dm_html_observ(observ, prefix_node, prefix_sensor, prefix_target) resul H_TR // H_TH // 'Name' // H_TH_END // & H_TD // dm_html_encode(observ%name) // H_TD_END // H_TR_END // & H_TR // H_TH // 'Timestamp' // H_TH_END // & - H_TD // dm_html_time(observ%timestamp) // H_TD_END // H_TR_END // & + H_TD // dm_html_encode(observ%timestamp) // H_TD_END // H_TR_END // & H_TR // H_TH // 'Path' // H_TH_END // & H_TD // H_CODE // dm_html_encode(observ%path) // H_CODE_END // H_TD_END // H_TR_END // & H_TR // H_TH // 'Priority' // H_TH_END // & @@ -1225,8 +1241,8 @@ function dm_html_observs(observs, prefix, id, node_id, sensor_id, target_id, nam if (is_anchor) then ! Turn timestamp into link to `prefix`. anchor%link = prefix // dm_html_encode(observs(i)%id) - anchor%text = observs(i)%timestamp - html = html // H_TD // dm_html_anchor(anchor) // H_TD_END + anchor%text = dm_html_time(observs(i)%timestamp) + html = html // H_TD // dm_html_anchor(anchor, encode=.false.) // H_TD_END else html = html // H_TD // dm_html_time(observs(i)%timestamp) // H_TD_END end if @@ -1350,6 +1366,15 @@ function dm_html_responses(responses) result(html) html = html // H_TBODY_END // H_TABLE_END end function dm_html_responses + pure function dm_html_script(source) result(html) + !! Returns `' // NL + end function dm_html_script + function dm_html_select(select, id, name, selected, disabled) result(html) !! Returns HTML select element with option values. This function does !! not encode or trim the arguments. @@ -1453,7 +1478,7 @@ function dm_html_sensors(sensors, prefix) result(html) ! Turn sensor name into link to `prefix`. anchor%link = prefix // dm_html_encode(sensors(i)%id) anchor%text = dm_html_encode(sensors(i)%id) - html = html // H_TD // dm_html_anchor(anchor) // H_TD_END + html = html // H_TD // dm_html_anchor(anchor, encode=.false.) // H_TD_END else html = html // H_TD // dm_html_encode(sensors(i)%id) // H_TD_END end if @@ -1552,7 +1577,7 @@ function dm_html_targets(targets, prefix) result(html) ! Turn target name into link to `prefix`. anchor%link = prefix // dm_html_encode(targets(i)%id) anchor%text = dm_html_encode(targets(i)%id) - html = html // H_TD // dm_html_anchor(anchor) // H_TD_END + html = html // H_TD // dm_html_anchor(anchor, encode=.false.) // H_TD_END else html = html // H_TD // dm_html_encode(targets(i)%id) // H_TD_END end if