Diff

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

modified on local at 2026-07-12 00:19:46

Added

lines

Removed

-0

lines

Context

101

unchanged

Blobs

from ca35d1fc0760
to ab583ffe8e9c

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	35	"$base/assets/js/tz_localize.js",
36	36	"$base/assets/js/ds_charts.js") {
37	37	my @st = stat $p;
38	38	$max = $st[9] if @st && $st[9] > $max;
39	39	}
40	40	$ASSET_VERSION = $max \|\| time;
41	41	return $ASSET_VERSION;
42	42	}
43	43
44	44	sub new { return bless({}, shift); }
45	45
46	46	sub wrapper {
47	47	my ($self, %args) = @_;
48	48	my $tpl = MODS::Template->new;
49	49
50	50	my $userinfo = $args{userinfo} \|\| {};
51	51	my $initials = _initials($userinfo->{display_name} \|\| $userinfo->{email} \|\| 'User');
52	52
53	53	my $tvars = {
54	54	# Branding
55	55	brand_name => $cfg->settings('brand_name') \|\| 'DriftSense',
56	56	brand_tagline => $cfg->settings('brand_tagline') \|\| '',
57	57
58	58	# Asset cache-bust stamp -- max mtime of shipped CSS/JS
59	59	asset_version => _asset_version(),
60	60
61	61	# Page identity
62	62	page_title => $args{page_title} \|\| 'DriftSense',
63	63	page_body => $args{body_html} // (@{$args{body_lines} \|\| []} ? join('', @{$args{body_lines}}) : ''),
64	64
65	65	# User
66	66	user_name => $userinfo->{display_name} \|\| $userinfo->{email} \|\| 'Operator',
67	67	user_initials => $initials,
68	68
69	69	# Sidebar active-item flags (page_key sets exactly one)
70	70	active_dashboard => 0,
71	71	active_file_changes => 0,
72	72	active_schema_changes => 0,
73	73	active_table_locks => 0,
74	74	active_named_releases => 0,
75	75	active_alerts => 0,
76	76	active_export => 0,
	77	active_purge_log => 0,
77	78	active_databases => 0,
78	79	active_file_monitors => 0,
79	80	active_servers => 0,
80	81	active_containers => 0,
81	82	active_settings => 0,
82	83	};
83	84	my $key = $args{page_key} \|\| '';
84	85	$tvars->{"active_$key"} = 1 if exists $tvars->{"active_$key"};
85	86
86	87	my @html = $tpl->template('page_wrapper.html', $tvars);
87	88	print @html;
88	89	return;
89	90	}
90	91
91	92	sub _initials {
92	93	my $s = shift; $s //= '';
93	94	my @p = split /[\s\@\.]+/, $s, 3;
94	95	my $i = '';
95	96	$i .= uc(substr($p[0], 0, 1)) if defined $p[0] && length $p[0];
96	97	$i .= uc(substr($p[1], 0, 1)) if defined $p[1] && length $p[1];
97	98	$i = uc(substr($s, 0, 1)) unless length $i;
98	99	return $i;
99	100	}
100	101
101	102	1;