added on local at 2026-07-13 16:46:14
| 1 | package MODS::PageWrapper; | |
| 2 | #====================================================================== | |
| 3 | # DriftSense -- page wrapper. | |
| 4 | # | |
| 5 | # Loads TEMPLATES/page_wrapper.html, injects the CGI's rendered body | |
| 6 | # into $page_body, sets branding + active-nav-item tvars, and hands | |
| 7 | # the whole thing back through MODS::Template so its normal tag | |
| 8 | # resolution (variables, [if:...], [url:...]) runs. | |
| 9 | # | |
| 10 | # Usage from a CGI: | |
| 11 | # my $load = MODS::PageWrapper->new; | |
| 12 | # $load->wrapper( | |
| 13 | # page_title => 'Dashboard', | |
| 14 | # page_key => 'dashboard', # sets $active_dashboard = 1 for the sidebar | |
| 15 | # body_html => $rendered_body, | |
| 16 | # userinfo => $u, | |
| 17 | # ); | |
| 18 | #====================================================================== | |
| 19 | use strict; | |
| 20 | use warnings; | |
| 21 | use MODS::Config; | |
| 22 | use MODS::DBConnect; | |
| 23 | use MODS::Template; | |
| 24 | ||
| 25 | my $cfg = MODS::Config->new; | |
| 26 | ||
| 27 | # Cache-bust CSS/JS by the newest mtime among the assets we ship. Recomputed | |
| 28 | # per-process; requests inside the same worker share the value, but a new | |
| 29 | # deploy touches files and the next worker start picks it up automatically. | |
| 30 | my $ASSET_VERSION; | |
| 31 | sub _asset_version { | |
| 32 | return $ASSET_VERSION if defined $ASSET_VERSION; | |
| 33 | my $base = '/var/www/vhosts/3dshawn.com/site1'; | |
| 34 | my $max = 0; | |
| 35 | for my $p ("$base/assets/styles/drift_sense.css", | |
| 36 | "$base/assets/styles/help_tips.css", | |
| 37 | "$base/assets/js/tz_localize.js", | |
| 38 | "$base/assets/js/ds_charts.js", | |
| 39 | "$base/assets/js/ds_help.js") { | |
| 40 | my @st = stat $p; | |
| 41 | $max = $st[9] if @st && $st[9] > $max; | |
| 42 | } | |
| 43 | $ASSET_VERSION = $max || time; | |
| 44 | return $ASSET_VERSION; | |
| 45 | } | |
| 46 | ||
| 47 | sub new { return bless({}, shift); } | |
| 48 | ||
| 49 | sub wrapper { | |
| 50 | my ($self, %args) = @_; | |
| 51 | my $tpl = MODS::Template->new; | |
| 52 | ||
| 53 | my $userinfo = $args{userinfo} || {}; | |
| 54 | my $initials = _initials($userinfo->{display_name} || $userinfo->{email} || 'User'); | |
| 55 | ||
| 56 | # Load the "monitored sites" list for the sidebar. Cheap query -- | |
| 57 | # runs once per page render. | |
| 58 | my $sites = _sidebar_sites(); | |
| 59 | ||
| 60 | # Load "stable releases" for the sidebar (Wave 5). | |
| 61 | my $stables = _sidebar_stables(); | |
| 62 | ||
| 63 | my $active_mid = $args{active_mid} // 0; | |
| 64 | foreach my $s (@$sites) { | |
| 65 | $s->{is_active} = ($active_mid && $s->{mid} == $active_mid) ? 1 : 0; | |
| 66 | } | |
| 67 | ||
| 68 | my $tvars = { | |
| 69 | # Branding | |
| 70 | brand_name => $cfg->settings('brand_name') || 'DriftSense', | |
| 71 | brand_tagline => $cfg->settings('brand_tagline') || '', | |
| 72 | ||
| 73 | # Sidebar: monitored sites + stable releases | |
| 74 | sites => $sites, | |
| 75 | has_sites => scalar(@$sites) ? 1 : 0, | |
| 76 | sites_ct => scalar(@$sites), | |
| 77 | stable_releases=> $stables, | |
| 78 | has_stables => scalar(@$stables) ? 1 : 0, | |
| 79 | stables_ct => scalar(@$stables), | |
| 80 | ||
| 81 | # Asset cache-bust stamp -- max mtime of shipped CSS/JS | |
| 82 | asset_version => _asset_version(), | |
| 83 | ||
| 84 | # Page identity | |
| 85 | page_title => $args{page_title} || 'DriftSense', | |
| 86 | page_body => $args{body_html} // (@{$args{body_lines} || []} ? join('', @{$args{body_lines}}) : ''), | |
| 87 | ||
| 88 | # User | |
| 89 | user_name => $userinfo->{display_name} || $userinfo->{email} || 'Operator', | |
| 90 | user_email => $userinfo->{email} || 'operator@drift-sense.local', | |
| 91 | user_initials => $initials, | |
| 92 | ||
| 93 | # Sidebar active-item flags (page_key sets exactly one) | |
| 94 | active_dashboard => 0, | |
| 95 | active_file_changes => 0, | |
| 96 | active_schema_changes => 0, | |
| 97 | active_table_locks => 0, | |
| 98 | active_named_releases => 0, | |
| 99 | active_alerts => 0, | |
| 100 | active_export => 0, | |
| 101 | active_purge_log => 0, | |
| 102 | active_sites => 0, | |
| 103 | active_databases => 0, | |
| 104 | active_file_monitors => 0, | |
| 105 | active_servers => 0, | |
| 106 | active_containers => 0, | |
| 107 | active_settings => 0, | |
| 108 | active_search => 0, | |
| 109 | active_portfolio_drift=> 0, | |
| 110 | active_broadcast => 0, | |
| 111 | active_file_bio => 0, | |
| 112 | active_release_diff => 0, | |
| 113 | active_watchlist => 0, | |
| 114 | active_orphan_blobs => 0, | |
| 115 | active_reset => 0, | |
| 116 | }; | |
| 117 | my $key = $args{page_key} || ''; | |
| 118 | $tvars->{"active_$key"} = 1 if exists $tvars->{"active_$key"}; | |
| 119 | ||
| 120 | my @html = $tpl->template('page_wrapper.html', $tvars); | |
| 121 | print @html; | |
| 122 | return; | |
| 123 | } | |
| 124 | ||
| 125 | #--------------------------------------------------------------------- | |
| 126 | # Sidebar sites list (cached per-worker; refreshes when process restarts) | |
| 127 | #--------------------------------------------------------------------- | |
| 128 | my @_SIDEBAR_SITES_CACHE; | |
| 129 | my $_SIDEBAR_CACHE_AT = 0; | |
| 130 | ||
| 131 | sub _sidebar_sites { | |
| 132 | my $now = time; | |
| 133 | return \@_SIDEBAR_SITES_CACHE if $_SIDEBAR_CACHE_AT && ($now - $_SIDEBAR_CACHE_AT) < 30; | |
| 134 | ||
| 135 | my @out; | |
| 136 | my $db = MODS::DBConnect->new; | |
| 137 | my $dbh = eval { $db->db_connect } or return \@out; | |
| 138 | my @rows = $db->db_readwrite_multiple($dbh, q~ | |
| 139 | SELECT m.file_monitor_list_id AS mid, | |
| 140 | m.scan_name, | |
| 141 | m.scan_path, | |
| 142 | s.server_name, | |
| 143 | s.kind AS server_kind, | |
| 144 | (SELECT COUNT(*) FROM FILE_CHANGES fc | |
| 145 | WHERE fc.file_monitor_list_id = m.file_monitor_list_id | |
| 146 | AND fc.date_time >= DATE_SUB(NOW(), INTERVAL 24 HOUR)) AS changes_24h | |
| 147 | FROM FILE_MONITOR_SETTINGS m | |
| 148 | LEFT JOIN SERVERS s ON s.server_id = m.server_id | |
| 149 | WHERE m.status = 1 | |
| 150 | ORDER BY (s.kind='ssh_agent') DESC, s.server_id ASC, m.file_monitor_list_id ASC | |
| 151 | ~, __FILE__, __LINE__); | |
| 152 | $db->db_disconnect($dbh); | |
| 153 | ||
| 154 | foreach my $r (@rows) { | |
| 155 | my $label = $r->{scan_name} // "monitor #$r->{mid}"; | |
| 156 | # Shorten if too long | |
| 157 | $r->{label} = length($label) > 26 ? substr($label, 0, 24) . '..' : $label; | |
| 158 | $r->{initials} = _site_initials($label); | |
| 159 | $r->{changes_24h} //= 0; | |
| 160 | $r->{activity_dot} = $r->{changes_24h} > 50 ? 'hot' | |
| 161 | : $r->{changes_24h} > 5 ? 'warm' | |
| 162 | : $r->{changes_24h} > 0 ? 'live' : 'quiet'; | |
| 163 | $r->{site_url} = "/site.cgi?mid=$r->{mid}"; | |
| 164 | push @out, $r; | |
| 165 | } | |
| 166 | @_SIDEBAR_SITES_CACHE = @out; | |
| 167 | $_SIDEBAR_CACHE_AT = $now; | |
| 168 | return \@out; | |
| 169 | } | |
| 170 | ||
| 171 | my @_SIDEBAR_STABLES_CACHE; | |
| 172 | my $_STABLES_CACHE_AT = 0; | |
| 173 | sub _sidebar_stables { | |
| 174 | my $now = time; | |
| 175 | return \@_SIDEBAR_STABLES_CACHE if $_STABLES_CACHE_AT && ($now - $_STABLES_CACHE_AT) < 30; | |
| 176 | my @out; | |
| 177 | my $db = MODS::DBConnect->new; | |
| 178 | my $dbh = eval { $db->db_connect } or return \@out; | |
| 179 | # NOTE: `tier` column added in wave 5; guard with a probe so this | |
| 180 | # code works on pre-wave5 schemas gracefully. | |
| 181 | my $has_tier = $db->db_readwrite($dbh, q~ | |
| 182 | SELECT 1 AS ok FROM INFORMATION_SCHEMA.COLUMNS | |
| 183 | WHERE TABLE_SCHEMA = DATABASE() | |
| 184 | AND TABLE_NAME = 'NAMED_RELEASES' AND COLUMN_NAME = 'tier' | |
| 185 | ~, __FILE__, __LINE__); | |
| 186 | if ($has_tier && $has_tier->{ok}) { | |
| 187 | my @rows = $db->db_readwrite_multiple($dbh, q~ | |
| 188 | SELECT named_release_id AS id, name, version_label, tier | |
| 189 | FROM NAMED_RELEASES | |
| 190 | WHERE tier = 'stable' | |
| 191 | ORDER BY named_release_id DESC | |
| 192 | LIMIT 8 | |
| 193 | ~, __FILE__, __LINE__); | |
| 194 | foreach my $r (@rows) { | |
| 195 | $r->{label} = $r->{version_label} || $r->{name}; | |
| 196 | $r->{label} = length($r->{label}) > 26 ? substr($r->{label}, 0, 24) . '..' : $r->{label}; | |
| 197 | $r->{restore_url} = "/restore_release.cgi?release_id=$r->{id}"; | |
| 198 | push @out, $r; | |
| 199 | } | |
| 200 | } | |
| 201 | $db->db_disconnect($dbh); | |
| 202 | @_SIDEBAR_STABLES_CACHE = @out; | |
| 203 | $_STABLES_CACHE_AT = $now; | |
| 204 | return \@out; | |
| 205 | } | |
| 206 | ||
| 207 | sub _site_initials { | |
| 208 | my $s = shift; $s //= ''; | |
| 209 | # Strip parenthetical parts like "(webstls.com)" | |
| 210 | my $core = $s; | |
| 211 | $core =~ s/\s*\(.*$//; | |
| 212 | my @tok = grep { length } split /[\s_\-\.\/]+/, $core; | |
| 213 | my $i = ''; | |
| 214 | if (@tok >= 2) { | |
| 215 | $i = uc(substr($tok[0], 0, 1) . substr($tok[1], 0, 1)); | |
| 216 | } elsif (@tok) { | |
| 217 | $i = uc(substr($tok[0], 0, 2)); | |
| 218 | } | |
| 219 | return length($i) ? $i : '??'; | |
| 220 | } | |
| 221 | ||
| 222 | sub _initials { | |
| 223 | my $s = shift; $s //= ''; | |
| 224 | my @p = split /[\s\@\.]+/, $s, 3; | |
| 225 | my $i = ''; | |
| 226 | $i .= uc(substr($p[0], 0, 1)) if defined $p[0] && length $p[0]; | |
| 227 | $i .= uc(substr($p[1], 0, 1)) if defined $p[1] && length $p[1]; | |
| 228 | $i = uc(substr($s, 0, 1)) unless length $i; | |
| 229 | return $i; | |
| 230 | } | |
| 231 | ||
| 232 | 1; |