chore: import upstream snapshot with attribution

2026-07-13 13:12:17 +08:00
commit cf8edb9f21
44281 changed files with 1655134 additions and 0 deletions
@@ -0,0 +1,28 @@
+#!/usr/local/bin/perl
+
+require './filemin-lib.pl';
+&ReadParse();
+
+get_paths();
+
+my @errors;
+
+foreach $name (split(/\0/, $in{'name'})) {
+	my $full = &validate_filename_path($name);
+	if (!can_write($full)) {
+		push @errors,
+			"$name - $text{'error_write'}";
+		next;
+		}
+	if (!&unlink_file($full)) {
+		push @errors,
+			"$name - $text{'error_delete'}: $!";
+		}
+	}
+
+if (scalar(@errors) > 0) {
+	print_errors(@errors);
+	}
+else {
+	&redirect("index.cgi?path=".&urlize($path));
+	}