Diff

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

modified on local at 2026-07-10 23:21:53

Added

+44

lines

Removed

-25

lines

Context

unchanged

Blobs

from 359054848baa
to 00ab93cbfdf2

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	use strict;
3	3	use warnings;
4	4	use CGI ();
5	5	use MODS::Config;
6	6	use MODS::DBConnect;
7	7	use MODS::Template;
8	8	use MODS::PageWrapper;
9	9	use MODS::Charts;
	10	use MODS::RangePicker;
10	11	use POSIX ();
11	12
12	13	my $cgi = CGI->new;
13	14	my $db = MODS::DBConnect->new;
14	15	my $tpl = MODS::Template->new;
15	16
16	17	$\|=1; print "Content-Type: text/html; charset=utf-8\nCache-Control: no-cache\n\n";
17	18
18	19	my $dbh = $db->db_connect or die "DB connect failed\n";
19	20
20		my $days = int($cgi->param('days') \|\| 7); $days = 1 if $days < 1; $days = 365 if $days > 365;
21		my $q = $cgi->param('q') \|\| '';
	21	my $r = MODS::RangePicker::parse($cgi);
	22	my $q = $cgi->param('q') \|\| '';
22	23	my $server_filter = int($cgi->param('server') \|\| 0);
23	24
24		my $where = "date_time >= DATE_SUB(NOW(), INTERVAL $days DAY)";
25		$where .= " AND file_name LIKE " . $dbh->quote('%' . $q . '%') if length $q;
26		$where .= " AND server_id = $server_filter" if $server_filter;
	25	my $where = $r->{sql_where}->('fc.date_time');
	26	$where .= " AND fc.file_name LIKE " . $dbh->quote('%' . $q . '%') if length $q;
	27	$where .= " AND fc.server_id = $server_filter" if $server_filter;
27	28
28	29	my @rows = $db->db_readwrite_multiple($dbh, qq~
29		SELECT fc.file_changes_id AS id, fc.file_name, fc.status, fc.date_time,
	30	SELECT fc.file_changes_id AS id, fc.file_name, fc.status,
	31	UNIX_TIMESTAMP(fc.date_time) AS ts_epoch,
	32	fc.date_time,
30	33	fc.blob_sha, fc.diff_blob_sha, fc.is_ts_only, fc.uid, fc.gid, fc.permissions,
31	34	s.server_name
32	35	FROM FILE_CHANGES fc
33	36	LEFT JOIN SERVERS s ON s.server_id = fc.server_id
34	37	WHERE $where
35	38	ORDER BY fc.date_time DESC
36	39	LIMIT 200
37	40	~, __FILE__, __LINE__);
	41
38	42	# --- Per-file 30-day sparkline data. One query, then bucket in Perl. ---
39		my %spark; # file_name => arrayref [30 daily counts, oldest -> newest]
	43	my %spark;
40	44	{
41	45	my @dedupe_files;
42	46	my %seen;
43		foreach my $r (@rows) {
44		next unless defined $r->{file_name};
45		next if $seen{$r->{file_name}}++;
46		push @dedupe_files, $r->{file_name};
	47	foreach my $r_row (@rows) {
	48	next unless defined $r_row->{file_name};
	49	next if $seen{$r_row->{file_name}}++;
	50	push @dedupe_files, $r_row->{file_name};
47	51	}
48	52	if (@dedupe_files) {
49	53	my @quoted = map { $dbh->quote($_) } @dedupe_files;
50	54	my $in_list = join(',', @quoted);
51	55	my @day_rows = $db->db_readwrite_multiple($dbh, qq~
52	56	SELECT file_name,
53	57	DATE_FORMAT(date_time, '%Y-%m-%d') AS d,
54	58	COUNT(*) AS n
55	59	FROM FILE_CHANGES
56	60	WHERE file_name IN ($in_list)
57	61	AND date_time >= DATE_SUB(NOW(), INTERVAL 30 DAY)
58	62	GROUP BY file_name, d
59	63	~, __FILE__, __LINE__);
60	64	my %by_file;
61	65	foreach my $dr (@day_rows) {
62	66	$by_file{$dr->{file_name}}{$dr->{d}} = $dr->{n};
63	67	}
64	68	my $now = time;
65	69	my @day_keys;
66	70	for (my $i = 29; $i >= 0; $i--) {
67	71	push @day_keys, POSIX::strftime('%Y-%m-%d', localtime($now - $i * 86400));
68	72	}
69	73	foreach my $fname (@dedupe_files) {
70	74	my @series;
71	75	for my $k (@day_keys) {
72	76	push @series, ($by_file{$fname}{$k} \|\| 0);
73	77	}
74	78	$spark{$fname} = \@series;
75	79	}
76	80	}
77	81	}
78	82
79		foreach my $r (@rows) {
80		$r->{status_pill} = $r->{status} && $r->{status} eq 'added' ? 'pill-ok'
81		: $r->{status} && $r->{status} eq 'modified' ? 'pill-warn'
82		: $r->{status} && $r->{status} eq 'deleted' ? 'pill-bad'
83		: 'pill-mute';
84		$r->{status} //= 'unknown';
85		$r->{file_name_h} = $r->{file_name} // '';
86		$r->{file_name_h} = length($r->{file_name_h}) > 90 ? '...' . substr($r->{file_name_h}, -87) : $r->{file_name_h};
87		$r->{blob_short} = $r->{blob_sha} ? substr($r->{blob_sha}, 0, 8) : '-';
88		$r->{diff_url} = "/diff.cgi?kind=file&id=$r->{id}";
89		my $series = $spark{$r->{file_name} // ''};
90		$r->{sparkline_svg} = $series
	83	foreach my $row (@rows) {
	84	$row->{status_pill} = $row->{status} && $row->{status} eq 'added' ? 'pill-ok'
	85	: $row->{status} && $row->{status} eq 'modified' ? 'pill-warn'
	86	: $row->{status} && $row->{status} eq 'deleted' ? 'pill-bad'
	87	: 'pill-mute';
	88	$row->{status} //= 'unknown';
	89	$row->{file_name_h} = $row->{file_name} // '';
	90	$row->{file_name_h} = length($row->{file_name_h}) > 90
	91	? '...' . substr($row->{file_name_h}, -87)
	92	: $row->{file_name_h};
	93	$row->{blob_short} = $row->{blob_sha} ? substr($row->{blob_sha}, 0, 8) : '-';
	94	$row->{diff_url} = "/diff.cgi?kind=file&id=$row->{id}";
	95	$row->{ts_epoch} //= 0;
	96	my $series = $spark{$row->{file_name} // ''};
	97	$row->{sparkline_svg} = $series
91	98	? MODS::Charts::sparkline(values => $series, width => 88, height => 20, color => '#14b8a6')
92	99	: '';
93	100	}
94	101	my $total = scalar @rows;
95	102
96	103	$db->db_disconnect($dbh);
	104
	105	my $picker_html = MODS::RangePicker::picker_html(
	106	action => '/file_changes.cgi',
	107	range => $r,
	108	hidden => { q => $q, ($server_filter ? (server => $server_filter) : ()) },
	109	);
97	110
98	111	my $tvars = {
99		rows => \@rows, has_rows => $total ? 1 : 0, total => $total,
100		days => $days, q => $q,
	112	rows => \@rows,
	113	has_rows => $total ? 1 : 0,
	114	total => $total,
	115	q => $q,
	116	picker_html => $picker_html,
	117	range_label => $r->{range_label},
	118	is_day_view => $r->{is_day} ? 1 : 0,
	119	day_label => $r->{on},
101	120	};
102	121	my @body = $tpl->template('file_changes.html', $tvars);
103	122
104	123	MODS::PageWrapper->new->wrapper(
105	124	page_title => 'File changes', page_key => 'file_changes',
106	125	body_html => join('', @body),
107	126	userinfo => { display_name => 'Operator' },
108	127	);