Diff

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

modified on local at 2026-07-12 00:35:25

Added

lines

Removed

-1

lines

Context

101

unchanged

Blobs

from ab583ffe8e9c
to 65ecf633cf3a

Restore this content →

Unified diff

Naive LCS-based line diff. Additions in emerald, deletions in rose. Both sides decompressed live from BLOB_STORE.

1	1	package MODS::PageWrapper;
2	2	#======================================================================
3	3	# DriftSense -- page wrapper.
4	4	#
5	5	# Loads TEMPLATES/page_wrapper.html, injects the CGI's rendered body
6	6	# into $page_body, sets branding + active-nav-item tvars, and hands
7	7	# the whole thing back through MODS::Template so its normal tag
8	8	# resolution (variables, [if:...], [url:...]) runs.
9	9	#
10	10	# Usage from a CGI:
11	11	# my $load = MODS::PageWrapper->new;
12	12	# $load->wrapper(
13	13	# page_title => 'Dashboard',
14	14	# page_key => 'dashboard', # sets $active_dashboard = 1 for the sidebar
15	15	# body_html => $rendered_body,
16	16	# userinfo => $u,
17	17	# );
18	18	#======================================================================
19	19	use strict;
20	20	use warnings;
21	21	use MODS::Config;
22	22	use MODS::Template;
23	23
24	24	my $cfg = MODS::Config->new;
25	25
26	26	# Cache-bust CSS/JS by the newest mtime among the assets we ship. Recomputed
27	27	# per-process; requests inside the same worker share the value, but a new
28	28	# deploy touches files and the next worker start picks it up automatically.
29	29	my $ASSET_VERSION;
30	30	sub _asset_version {
31	31	return $ASSET_VERSION if defined $ASSET_VERSION;
32	32	my $base = '/var/www/vhosts/3dshawn.com/site1';
33	33	my $max = 0;
34	34	for my $p ("$base/assets/styles/drift_sense.css",
	35	"$base/assets/styles/help_tips.css",
35	36	"$base/assets/js/tz_localize.js",
36		"$base/assets/js/ds_charts.js") {
	37	"$base/assets/js/ds_charts.js",
	38	"$base/assets/js/ds_help.js") {
37	39	my @st = stat $p;
38	40	$max = $st[9] if @st && $st[9] > $max;
39	41	}
40	42	$ASSET_VERSION = $max \|\| time;
41	43	return $ASSET_VERSION;
42	44	}
43	45
44	46	sub new { return bless({}, shift); }
45	47
46	48	sub wrapper {
47	49	my ($self, %args) = @_;
48	50	my $tpl = MODS::Template->new;
49	51
50	52	my $userinfo = $args{userinfo} \|\| {};
51	53	my $initials = _initials($userinfo->{display_name} \|\| $userinfo->{email} \|\| 'User');
52	54
53	55	my $tvars = {
54	56	# Branding
55	57	brand_name => $cfg->settings('brand_name') \|\| 'DriftSense',
56	58	brand_tagline => $cfg->settings('brand_tagline') \|\| '',
57	59
58	60	# Asset cache-bust stamp -- max mtime of shipped CSS/JS
59	61	asset_version => _asset_version(),
60	62
61	63	# Page identity
62	64	page_title => $args{page_title} \|\| 'DriftSense',
63	65	page_body => $args{body_html} // (@{$args{body_lines} \|\| []} ? join('', @{$args{body_lines}}) : ''),
64	66
65	67	# User
66	68	user_name => $userinfo->{display_name} \|\| $userinfo->{email} \|\| 'Operator',
67	69	user_initials => $initials,
68	70
69	71	# Sidebar active-item flags (page_key sets exactly one)
70	72	active_dashboard => 0,
71	73	active_file_changes => 0,
72	74	active_schema_changes => 0,
73	75	active_table_locks => 0,
74	76	active_named_releases => 0,
75	77	active_alerts => 0,
76	78	active_export => 0,
77	79	active_purge_log => 0,
78	80	active_databases => 0,
79	81	active_file_monitors => 0,
80	82	active_servers => 0,
81	83	active_containers => 0,
82	84	active_settings => 0,
83	85	};
84	86	my $key = $args{page_key} \|\| '';
85	87	$tvars->{"active_$key"} = 1 if exists $tvars->{"active_$key"};
86	88
87	89	my @html = $tpl->template('page_wrapper.html', $tvars);
88	90	print @html;
89	91	return;
90	92	}
91	93
92	94	sub _initials {
93	95	my $s = shift; $s //= '';
94	96	my @p = split /[\s\@\.]+/, $s, 3;
95	97	my $i = '';
96	98	$i .= uc(substr($p[0], 0, 1)) if defined $p[0] && length $p[0];
97	99	$i .= uc(substr($p[1], 0, 1)) if defined $p[1] && length $p[1];
98	100	$i = uc(substr($s, 0, 1)) unless length $i;
99	101	return $i;
100	102	}
101	103
102	104	1;