Diff

/var/www/vhosts/3dshawn.com/site1/settings.cgi

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

Added

+27

lines

Removed

-0

lines

Context

105

unchanged

Blobs

from c41f0faf4e6b
to 7dd39d832ea1

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	#!/usr/bin/perl
2	2	#======================================================================
3	3	# DriftSense -- /settings.cgi
4	4	#
5	5	# Read-only view of the resolved config file + editable form for the
6	6	# SCAN_GLOBALS row (global ignore patterns, allowed file types, max
7	7	# file size).
8	8	#======================================================================
9	9	use strict;
10	10	use warnings;
11	11	use CGI ();
12	12	use MODS::Config;
13	13	use MODS::DBConnect;
14	14	use MODS::Template;
15	15	use MODS::PageWrapper;
16	16
17	17	my $cgi = CGI->new;
18	18	my $cfg = MODS::Config->new;
19	19	my $db = MODS::DBConnect->new;
20	20	my $tpl = MODS::Template->new;
21	21
22	22	$\|=1;
23	23	my $dbh = $db->db_connect or die "DB connect failed\n";
24	24
25	25	# ---- POST: update globals ------------------------------------------
26	26	if (($ENV{REQUEST_METHOD} \|\| '') eq 'POST' && $cgi->param('save_globals')) {
27	27	my $ign = $cgi->param('global_ignore_list') // '';
28	28	my $ftyp = $cgi->param('global_file_type_filter') // '';
29	29	my $mx = int($cgi->param('global_max_file_size_bytes') \|\| 0);
30	30
31	31	# Normalize whitespace on ignore list -> comma-joined single-line
32	32	my @clean_ign;
33	33	for my $tok (split /[,\r\n]+/, $ign) {
34	34	$tok =~ s/^\s+\|\s+$//g;
35	35	push @clean_ign, $tok if length $tok;
36	36	}
37	37	my $normalized = join(',', @clean_ign);
38	38
39	39	my $q_ign = $dbh->quote($normalized);
40	40	my $q_ftyp = $dbh->quote($ftyp);
41	41	$mx = 'NULL' unless $mx;
42	42
43	43	$db->db_readwrite($dbh, qq~
44	44	UPDATE SCAN_GLOBALS
45	45	SET global_ignore_list = $q_ign,
46	46	global_file_type_filter = $q_ftyp,
47	47	global_max_file_size_bytes = $mx
48	48	WHERE id = 1
49	49	~, __FILE__, __LINE__);
50	50	$db->db_disconnect($dbh);
51	51	print "Status: 302 Found\nLocation: /settings.cgi?saved=1\n\n";
52	52	exit;
53	53	}
54	54
55	55	print "Content-Type: text/html; charset=utf-8\nCache-Control: no-cache\n\n";
56	56
57	57	my $all = $cfg->all;
58	58
59	59	# Blob store stats
60	60	my $blob_stats = $db->db_readwrite($dbh, q~
61	61	SELECT COUNT(*) AS blob_ct,
62	62	COALESCE(SUM(size_uncompressed), 0) AS bytes_uncomp,
63	63	COALESCE(SUM(size_compressed), 0) AS bytes_comp,
64	64	COALESCE(SUM(ref_count), 0) AS total_refs
65	65	FROM BLOB_STORE
	66	~, __FILE__, __LINE__);
	67
	68	# Recent purge stats (last 30 days) for the tile
	69	my $recent_purge = $db->db_readwrite($dbh, q~
	70	SELECT
	71	SUM(CASE WHEN dry_run = 1 THEN 1 ELSE 0 END) AS dry_ct,
	72	SUM(CASE WHEN dry_run = 1 THEN freed_bytes ELSE 0 END) AS dry_bytes,
	73	SUM(CASE WHEN dry_run = 0 THEN 1 ELSE 0 END) AS live_ct,
	74	SUM(CASE WHEN dry_run = 0 THEN freed_bytes ELSE 0 END) AS live_bytes,
	75	DATE_FORMAT(MAX(purged_at), '%b %d %H:%i') AS last_purge_h,
	76	UNIX_TIMESTAMP(MAX(purged_at)) AS last_purge_epoch
	77	FROM PURGE_LOG
	78	WHERE purged_at >= DATE_SUB(NOW(), INTERVAL 30 DAY)
66	79	~, __FILE__, __LINE__);
67	80
68	81	# Global scan settings
69	82	my $g = $db->db_readwrite($dbh, q~
70	83	SELECT global_ignore_list, global_file_type_filter, global_max_file_size_bytes
71	84	FROM SCAN_GLOBALS WHERE id = 1 LIMIT 1
72	85	~, __FILE__, __LINE__);
73	86	my $global_ignore = ($g && $g->{global_ignore_list}) // '';
74	87	my $global_ftypes = ($g && $g->{global_file_type_filter}) // '';
75	88	my $global_max_sz = ($g && $g->{global_max_file_size_bytes}) \|\| 0;
76	89	# Split the ignore list onto lines for the textarea (nicer edit UX)
77	90	my $ignore_pretty = join("\n", split /,/, $global_ignore);
78	91
79	92	$db->db_disconnect($dbh);
80	93
81	94	my @cfg_rows;
82	95	foreach my $k (sort keys %$all) {
83	96	my $v = $all->{$k} // '';
84	97	$v = length($v) > 4 ? '*' . substr($v, -4) : '**'
85	98	if $k =~ /pass(word)?\|secret\|hmac\|smtp_password/i && length $v;
86	99	push @cfg_rows, { key => $k, value => $v };
87	100	}
88	101
89	102	my $tvars = {
90	103	cfg_rows => \@cfg_rows,
91	104	blob_ct => ($blob_stats && $blob_stats->{blob_ct}) \|\| 0,
92	105	bytes_uncomp => ($blob_stats && $blob_stats->{bytes_uncomp}) \|\| 0,
93	106	bytes_comp => ($blob_stats && $blob_stats->{bytes_comp}) \|\| 0,
94	107	total_refs => ($blob_stats && $blob_stats->{total_refs}) \|\| 0,
95	108	ratio => (($blob_stats && $blob_stats->{bytes_uncomp}) ? sprintf('%.1fx', $blob_stats->{bytes_uncomp} / ($blob_stats->{bytes_comp} \|\| 1)) : '-'),
96	109	global_ignore_pretty => $ignore_pretty,
97	110	global_file_type_filter => $global_ftypes,
98	111	global_max_file_size_bytes => $global_max_sz,
99	112	saved => $cgi->param('saved') ? 1 : 0,
	113	purge_dry_ct => ($recent_purge && $recent_purge->{dry_ct}) \|\| 0,
	114	purge_dry_bytes => _fmt_bytes(($recent_purge && $recent_purge->{dry_bytes}) \|\| 0),
	115	purge_live_ct => ($recent_purge && $recent_purge->{live_ct}) \|\| 0,
	116	purge_live_bytes => _fmt_bytes(($recent_purge && $recent_purge->{live_bytes}) \|\| 0),
	117	last_purge_h => ($recent_purge && $recent_purge->{last_purge_h}) // 'never',
	118	last_purge_epoch => ($recent_purge && $recent_purge->{last_purge_epoch}) \|\| 0,
100	119	};
	120
	121	sub _fmt_bytes {
	122	my $n = shift; $n //= 0;
	123	return "$n B" if $n < 1024;
	124	return sprintf('%.1f KB', $n/1024) if $n < 1024*1024;
	125	return sprintf('%.1f MB', $n/1024/1024) if $n < 102410241024;
	126	return sprintf('%.1f GB', $n/1024/1024/1024);
	127	}
101	128	my @body = $tpl->template('settings.html', $tvars);
102	129	MODS::PageWrapper->new->wrapper(
103	130	page_title => 'Settings', page_key => 'settings',
104	131	body_html => join('', @body), userinfo => { display_name => 'Operator' },
105	132	);