Restore

Restore file to captured state

Every captured change carries its SHA-256-addressed content in BLOB_STORE. Restoring writes that content back to the original path — current file gets backed up to <path>.drift_restore_backup_<epoch> before overwrite.

What will change

Preview -- nothing has been written yet.

Target file	/var/www/vhosts/3dshawn.com/site1/MODS/PageWrapper.pm
Site	DriftSense self-monitor on local
Kind	local
Captured at	2026-07-12 00:48:42
Captured SHA	9ddf4e89c804a19efba69e8044f647c99dd5ce6f354c0364919d6173deeb67cb

Current state on disk

Live check just now. If SHAs match, the restore is a no-op.

File present	yes
Size	8026 bytes
Current SHA	65c126296f9c
Same as captured?	no -- restore will change it

See exactly what's different →

What restore will change — live diff

Left column shows current on-disk content; right shows what restore will write. +0 additions, -3 deletions, 220 unchanged context lines.

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

Confirm restore

Backs current content to <target>.drift_restore_backup_<epoch>, writes the captured content, verifies SHA post-write.