Restore

O Operator
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
SiteDriftSense self-monitor on local
Kindlocal
Captured at2026-07-12 00:52:13
Captured SHAcc06f327b82ed26731f683147d2d25c4f88ed510fdab2f9c6ad0abcb0520a3b1
Current state on disk
Live check just now. If SHAs match, the restore is a no-op.
File presentyes
Size8026 bytes
Current SHA65c126296f9c
Same as captured?no -- restore will change it
What restore will change — live diff
Left column shows current on-disk content; right shows what restore will write. +0 additions, -1 deletions, 222 unchanged context lines.
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;
2222use MODS::DBConnect;
2323use MODS::Template;
2424
2525my $cfg = MODS::Config->new;
2626
2727# Cache-bust CSS/JS by the newest mtime among the assets we ship. Recomputed
2828# per-process; requests inside the same worker share the value, but a new
2929# deploy touches files and the next worker start picks it up automatically.
3030my $ASSET_VERSION;
3131sub _asset_version {
3232 return $ASSET_VERSION if defined $ASSET_VERSION;
3333 my $base = '/var/www/vhosts/3dshawn.com/site1';
3434 my $max = 0;
3535 for my $p ("$base/assets/styles/drift_sense.css",
3636 "$base/assets/styles/help_tips.css",
3737 "$base/assets/js/tz_localize.js",
3838 "$base/assets/js/ds_charts.js",
3939 "$base/assets/js/ds_help.js") {
4040 my @st = stat $p;
4141 $max = $st[9] if @st && $st[9] > $max;
4242 }
4343 $ASSET_VERSION = $max || time;
4444 return $ASSET_VERSION;
4545}
4646
4747sub new { return bless({}, shift); }
4848
4949sub wrapper {
5050 my ($self, %args) = @_;
5151 my $tpl = MODS::Template->new;
5252
5353 my $userinfo = $args{userinfo} || {};
5454 my $initials = _initials($userinfo->{display_name} || $userinfo->{email} || 'User');
5555
5656 # Load the "monitored sites" list for the sidebar. Cheap query --
5757 # runs once per page render.
5858 my $sites = _sidebar_sites();
5959
6060 # Load "stable releases" for the sidebar (Wave 5).
6161 my $stables = _sidebar_stables();
6262
6363 my $active_mid = $args{active_mid} // 0;
6464 foreach my $s (@$sites) {
6565 $s->{is_active} = ($active_mid && $s->{mid} == $active_mid) ? 1 : 0;
6666 }
6767
6868 my $tvars = {
6969 # Branding
7070 brand_name => $cfg->settings('brand_name') || 'DriftSense',
7171 brand_tagline => $cfg->settings('brand_tagline') || '',
7272
7373 # Sidebar: monitored sites + stable releases
7474 sites => $sites,
7575 has_sites => scalar(@$sites) ? 1 : 0,
7676 sites_ct => scalar(@$sites),
7777 stable_releases=> $stables,
7878 has_stables => scalar(@$stables) ? 1 : 0,
7979 stables_ct => scalar(@$stables),
8080
8181 # Asset cache-bust stamp -- max mtime of shipped CSS/JS
8282 asset_version => _asset_version(),
8383
8484 # Page identity
8585 page_title => $args{page_title} || 'DriftSense',
8686 page_body => $args{body_html} // (@{$args{body_lines} || []} ? join('', @{$args{body_lines}}) : ''),
8787
8888 # User
8989 user_name => $userinfo->{display_name} || $userinfo->{email} || 'Operator',
9090 user_initials => $initials,
9191
9292 # Sidebar active-item flags (page_key sets exactly one)
9393 active_dashboard => 0,
9494 active_file_changes => 0,
9595 active_schema_changes => 0,
9696 active_table_locks => 0,
9797 active_named_releases => 0,
9898 active_alerts => 0,
9999 active_export => 0,
100100 active_purge_log => 0,
101 active_sites => 0,
102101 active_databases => 0,
103102 active_file_monitors => 0,
104103 active_servers => 0,
105104 active_containers => 0,
106105 active_settings => 0,
107106 };
108107 my $key = $args{page_key} || '';
109108 $tvars->{"active_$key"} = 1 if exists $tvars->{"active_$key"};
110109
111110 my @html = $tpl->template('page_wrapper.html', $tvars);
112111 print @html;
113112 return;
114113}
115114
116115#---------------------------------------------------------------------
117116# Sidebar sites list (cached per-worker; refreshes when process restarts)
118117#---------------------------------------------------------------------
119118my @_SIDEBAR_SITES_CACHE;
120119my $_SIDEBAR_CACHE_AT = 0;
121120
122121sub _sidebar_sites {
123122 my $now = time;
124123 return \@_SIDEBAR_SITES_CACHE if $_SIDEBAR_CACHE_AT && ($now - $_SIDEBAR_CACHE_AT) < 30;
125124
126125 my @out;
127126 my $db = MODS::DBConnect->new;
128127 my $dbh = eval { $db->db_connect } or return \@out;
129128 my @rows = $db->db_readwrite_multiple($dbh, q~
130129 SELECT m.file_monitor_list_id AS mid,
131130 m.scan_name,
132131 m.scan_path,
133132 s.server_name,
134133 s.kind AS server_kind,
135134 (SELECT COUNT(*) FROM FILE_CHANGES fc
136135 WHERE fc.file_monitor_list_id = m.file_monitor_list_id
137136 AND fc.date_time >= DATE_SUB(NOW(), INTERVAL 24 HOUR)) AS changes_24h
138137 FROM FILE_MONITOR_SETTINGS m
139138 LEFT JOIN SERVERS s ON s.server_id = m.server_id
140139 WHERE m.status = 1
141140 ORDER BY (s.kind='ssh_agent') DESC, s.server_id ASC, m.file_monitor_list_id ASC
142141 ~, __FILE__, __LINE__);
143142 $db->db_disconnect($dbh);
144143
145144 foreach my $r (@rows) {
146145 my $label = $r->{scan_name} // "monitor #$r->{mid}";
147146 # Shorten if too long
148147 $r->{label} = length($label) > 26 ? substr($label, 0, 24) . '..' : $label;
149148 $r->{initials} = _site_initials($label);
150149 $r->{changes_24h} //= 0;
151150 $r->{activity_dot} = $r->{changes_24h} > 50 ? 'hot'
152151 : $r->{changes_24h} > 5 ? 'warm'
153152 : $r->{changes_24h} > 0 ? 'live' : 'quiet';
154153 $r->{site_url} = "/site.cgi?mid=$r->{mid}";
155154 push @out, $r;
156155 }
157156 @_SIDEBAR_SITES_CACHE = @out;
158157 $_SIDEBAR_CACHE_AT = $now;
159158 return \@out;
160159}
161160
162161my @_SIDEBAR_STABLES_CACHE;
163162my $_STABLES_CACHE_AT = 0;
164163sub _sidebar_stables {
165164 my $now = time;
166165 return \@_SIDEBAR_STABLES_CACHE if $_STABLES_CACHE_AT && ($now - $_STABLES_CACHE_AT) < 30;
167166 my @out;
168167 my $db = MODS::DBConnect->new;
169168 my $dbh = eval { $db->db_connect } or return \@out;
170169 # NOTE: `tier` column added in wave 5; guard with a probe so this
171170 # code works on pre-wave5 schemas gracefully.
172171 my $has_tier = $db->db_readwrite($dbh, q~
173172 SELECT 1 AS ok FROM INFORMATION_SCHEMA.COLUMNS
174173 WHERE TABLE_SCHEMA = DATABASE()
175174 AND TABLE_NAME = 'NAMED_RELEASES' AND COLUMN_NAME = 'tier'
176175 ~, __FILE__, __LINE__);
177176 if ($has_tier && $has_tier->{ok}) {
178177 my @rows = $db->db_readwrite_multiple($dbh, q~
179178 SELECT named_release_id AS id, name, version_label, tier
180179 FROM NAMED_RELEASES
181180 WHERE tier = 'stable'
182181 ORDER BY named_release_id DESC
183182 LIMIT 8
184183 ~, __FILE__, __LINE__);
185184 foreach my $r (@rows) {
186185 $r->{label} = $r->{version_label} || $r->{name};
187186 $r->{label} = length($r->{label}) > 26 ? substr($r->{label}, 0, 24) . '..' : $r->{label};
188187 $r->{restore_url} = "/restore_release.cgi?release_id=$r->{id}";
189188 push @out, $r;
190189 }
191190 }
192191 $db->db_disconnect($dbh);
193192 @_SIDEBAR_STABLES_CACHE = @out;
194193 $_STABLES_CACHE_AT = $now;
195194 return \@out;
196195}
197196
198197sub _site_initials {
199198 my $s = shift; $s //= '';
200199 # Strip parenthetical parts like "(webstls.com)"
201200 my $core = $s;
202201 $core =~ s/\s*\(.*$//;
203202 my @tok = grep { length } split /[\s_\-\.\/]+/, $core;
204203 my $i = '';
205204 if (@tok >= 2) {
206205 $i = uc(substr($tok[0], 0, 1) . substr($tok[1], 0, 1));
207206 } elsif (@tok) {
208207 $i = uc(substr($tok[0], 0, 2));
209208 }
210209 return length($i) ? $i : '??';
211210}
212211
213212sub _initials {
214213 my $s = shift; $s //= '';
215214 my @p = split /[\s\@\.]+/, $s, 3;
216215 my $i = '';
217216 $i .= uc(substr($p[0], 0, 1)) if defined $p[0] && length $p[0];
218217 $i .= uc(substr($p[1], 0, 1)) if defined $p[1] && length $p[1];
219218 $i = uc(substr($s, 0, 1)) unless length $i;
220219 return $i;
221220}
222221
2232221;
Confirm restore
Backs current content to <target>.drift_restore_backup_<epoch>, writes the captured content, verifies SHA post-write.
Cancel Logged to RESTORE_LOG regardless of outcome.