chore: import upstream snapshot with attribution

This commit is contained in:
wehub-resource-sync
2026-07-13 13:12:17 +08:00
commit cf8edb9f21
44281 changed files with 1655134 additions and 0 deletions
+13
View File
@@ -0,0 +1,13 @@
#!/usr/local/bin/perl
# delete_file.cgi
# Delete a downloaded package that is no longer needed
require './cpan-lib.pl';
&ReadParse();
$tmp_base = $gconfig{'tempdir'} || &default_webmin_temp_dir();
foreach $f (split(/\0/, $in{'file'})) {
&is_under_directory($tmp_base, $f) || &error($text{'delete_efile'});
unlink($f) if (!&is_readonly_mode());
}
&redirect("");