Diff -- /var/www/vhosts/3dshawn.com/site1/MODS/PageWrapper.pm

O Operator
Diff

/var/www/vhosts/3dshawn.com/site1/MODS/PageWrapper.pm

modified on local at 2026-07-12 00:48:42

Added
+116
lines
Removed
-0
lines
Context
104
unchanged
Blobs
from 65ecf633cf3a
to 9ddf4e89c804
Restore this content →
Unified diff
Naive LCS-based line diff. Additions in emerald, deletions in rose. Both sides decompressed live from BLOB_STORE.
11package MODS::PageWrapper;
22#======================================================================
33# DriftSense -- page wrapper.
44#
55# Loads TEMPLATES/page_wrapper.html, injects the CGI's rendered body
66# into $page_body, sets branding + active-nav-item tvars, and hands
77# the whole thing back through MODS::Template so its normal tag
88# resolution (variables, [if:...], [url:...]) runs.
99#
1010# Usage from a CGI:
1111# my $load = MODS::PageWrapper->new;
1212# $load->wrapper(
1313# page_title => 'Dashboard',
1414# page_key => 'dashboard', # sets $active_dashboard = 1 for the sidebar
1515# body_html => $rendered_body,
1616# userinfo => $u,
1717# );
1818#======================================================================
1919use strict;
2020use warnings;
2121use MODS::Config;
22use MODS::DBConnect;
2223use MODS::Template;
2324
2425my $cfg = MODS::Config->new;
2526
2627# Cache-bust CSS/JS by the newest mtime among the assets we ship. Recomputed
2728# per-process; requests inside the same worker share the value, but a new
2829# deploy touches files and the next worker start picks it up automatically.
2930my $ASSET_VERSION;
3031sub _asset_version {
3132 return $ASSET_VERSION if defined $ASSET_VERSION;
3233 my $base = '/var/www/vhosts/3dshawn.com/site1';
3334 my $max = 0;
3435 for my $p ("$base/assets/styles/drift_sense.css",
3536 "$base/assets/styles/help_tips.css",
3637 "$base/assets/js/tz_localize.js",
3738 "$base/assets/js/ds_charts.js",
3839 "$base/assets/js/ds_help.js") {
3940 my @st = stat $p;
4041 $max = $st[9] if @st && $st[9] > $max;
4142 }
4243 $ASSET_VERSION = $max || time;
4344 return $ASSET_VERSION;
4445}
4546
4647sub new { return bless({}, shift); }
4748
4849sub wrapper {
4950 my ($self, %args) = @_;
5051 my $tpl = MODS::Template->new;
5152
5253 my $userinfo = $args{userinfo} || {};
5354 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 }
5467
5568 my $tvars = {
5669 # Branding
5770 brand_name => $cfg->settings('brand_name') || 'DriftSense',
5871 brand_tagline => $cfg->settings('brand_tagline') || '',
72
73 # Sidebar: monitored sites + stable releases
74 sites => $sites,
75 has_sites => scalar(@$sites) ? 1 : 0,
76 stable_releases=> $stables,
77 has_stables => scalar(@$stables) ? 1 : 0,
5978
6079 # Asset cache-bust stamp -- max mtime of shipped CSS/JS
6180 asset_version => _asset_version(),
6281
6382 # Page identity
6483 page_title => $args{page_title} || 'DriftSense',
6584 page_body => $args{body_html} // (@{$args{body_lines} || []} ? join('', @{$args{body_lines}}) : ''),
6685
6786 # User
6887 user_name => $userinfo->{display_name} || $userinfo->{email} || 'Operator',
6988 user_initials => $initials,
7089
7190 # Sidebar active-item flags (page_key sets exactly one)
7291 active_dashboard => 0,
7392 active_file_changes => 0,
7493 active_schema_changes => 0,
7594 active_table_locks => 0,
7695 active_named_releases => 0,
7796 active_alerts => 0,
7897 active_export => 0,
7998 active_purge_log => 0,
8099 active_databases => 0,
81100 active_file_monitors => 0,
82101 active_servers => 0,
83102 active_containers => 0,
84103 active_settings => 0,
85104 };
86105 my $key = $args{page_key} || '';
87106 $tvars->{"active_$key"} = 1 if exists $tvars->{"active_$key"};
88107
89108 my @html = $tpl->template('page_wrapper.html', $tvars);
90109 print @html;
91110 return;
111}
112
113#---------------------------------------------------------------------
114# Sidebar sites list (cached per-worker; refreshes when process restarts)
115#---------------------------------------------------------------------
116my @_SIDEBAR_SITES_CACHE;
117my $_SIDEBAR_CACHE_AT = 0;
118
119sub _sidebar_sites {
120 my $now = time;
121 return \@_SIDEBAR_SITES_CACHE if $_SIDEBAR_CACHE_AT && ($now - $_SIDEBAR_CACHE_AT) < 30;
122
123 my @out;
124 my $db = MODS::DBConnect->new;
125 my $dbh = eval { $db->db_connect } or return \@out;
126 my @rows = $db->db_readwrite_multiple($dbh, q~
127 SELECT m.file_monitor_list_id AS mid,
128 m.scan_name,
129 m.scan_path,
130 s.server_name,
131 s.kind AS server_kind,
132 (SELECT COUNT(*) FROM FILE_CHANGES fc
133 WHERE fc.file_monitor_list_id = m.file_monitor_list_id
134 AND fc.date_time >= DATE_SUB(NOW(), INTERVAL 24 HOUR)) AS changes_24h
135 FROM FILE_MONITOR_SETTINGS m
136 LEFT JOIN SERVERS s ON s.server_id = m.server_id
137 WHERE m.status = 1
138 ORDER BY (s.kind='ssh_agent') DESC, s.server_id ASC, m.file_monitor_list_id ASC
139 ~, __FILE__, __LINE__);
140 $db->db_disconnect($dbh);
141
142 foreach my $r (@rows) {
143 my $label = $r->{scan_name} // "monitor #$r->{mid}";
144 # Shorten if too long
145 $r->{label} = length($label) > 26 ? substr($label, 0, 24) . '..' : $label;
146 $r->{initials} = _site_initials($label);
147 $r->{changes_24h} //= 0;
148 $r->{activity_dot} = $r->{changes_24h} > 50 ? 'hot'
149 : $r->{changes_24h} > 5 ? 'warm'
150 : $r->{changes_24h} > 0 ? 'live' : 'quiet';
151 $r->{site_url} = "/site.cgi?mid=$r->{mid}";
152 push @out, $r;
153 }
154 @_SIDEBAR_SITES_CACHE = @out;
155 $_SIDEBAR_CACHE_AT = $now;
156 return \@out;
157}
158
159my @_SIDEBAR_STABLES_CACHE;
160my $_STABLES_CACHE_AT = 0;
161sub _sidebar_stables {
162 my $now = time;
163 return \@_SIDEBAR_STABLES_CACHE if $_STABLES_CACHE_AT && ($now - $_STABLES_CACHE_AT) < 30;
164 my @out;
165 my $db = MODS::DBConnect->new;
166 my $dbh = eval { $db->db_connect } or return \@out;
167 # NOTE: `tier` column added in wave 5; guard with a probe so this
168 # code works on pre-wave5 schemas gracefully.
169 my $has_tier = $db->db_readwrite($dbh, q~
170 SELECT 1 AS ok FROM INFORMATION_SCHEMA.COLUMNS
171 WHERE TABLE_SCHEMA = DATABASE()
172 AND TABLE_NAME = 'NAMED_RELEASES' AND COLUMN_NAME = 'tier'
173 ~, __FILE__, __LINE__);
174 if ($has_tier && $has_tier->{ok}) {
175 my @rows = $db->db_readwrite_multiple($dbh, q~
176 SELECT named_release_id AS id, name, version_label, tier
177 FROM NAMED_RELEASES
178 WHERE tier = 'stable'
179 ORDER BY named_release_id DESC
180 LIMIT 8
181 ~, __FILE__, __LINE__);
182 foreach my $r (@rows) {
183 $r->{label} = $r->{version_label} || $r->{name};
184 $r->{label} = length($r->{label}) > 26 ? substr($r->{label}, 0, 24) . '..' : $r->{label};
185 $r->{restore_url} = "/restore_release.cgi?release_id=$r->{id}";
186 push @out, $r;
187 }
188 }
189 $db->db_disconnect($dbh);
190 @_SIDEBAR_STABLES_CACHE = @out;
191 $_STABLES_CACHE_AT = $now;
192 return \@out;
193}
194
195sub _site_initials {
196 my $s = shift; $s //= '';
197 # Strip parenthetical parts like "(webstls.com)"
198 my $core = $s;
199 $core =~ s/\s*\(.*$//;
200 my @tok = grep { length } split /[\s_\-\.\/]+/, $core;
201 my $i = '';
202 if (@tok >= 2) {
203 $i = uc(substr($tok[0], 0, 1) . substr($tok[1], 0, 1));
204 } elsif (@tok) {
205 $i = uc(substr($tok[0], 0, 2));
206 }
207 return length($i) ? $i : '??';
92208}
93209
94210sub _initials {
95211 my $s = shift; $s //= '';
96212 my @p = split /[\s\@\.]+/, $s, 3;
97213 my $i = '';
98214 $i .= uc(substr($p[0], 0, 1)) if defined $p[0] && length $p[0];
99215 $i .= uc(substr($p[1], 0, 1)) if defined $p[1] && length $p[1];
100216 $i = uc(substr($s, 0, 1)) unless length $i;
101217 return $i;
102218}
103219
1042201;