One Hat Cyber Team

Your IP: 216.73.216.133
Server IP: 185.119.109.197
Server: Linux managedhosting.chostar.me 5.15.0-160-generic #170-Ubuntu SMP Wed Oct 1 10:06:56 UTC 2025 x86_64
Server Software: Apache
PHP Version: 8.1.33
Buat File | Buat Folder

Dir : ~/proc/self/root/usr/share/webmin/virtual-server/

View File Name : delete_backup.cgi

#!/usr/bin/perl
# Delete one backup, after asking for confirmation

require './virtual-server-lib.pl';
&ReadParse();
&licence_status();
&error_setup($text{'dbackup_err'});

# Get the log and check permissions
$in{'id'} =~ /^[0-9\.\-]+$/ || &error($text{'viewbackup_eid'});
$log = &get_backup_log($in{'id'});
$log || &error($text{'viewbackup_egone'});
&can_backup_log($log) == 1 || &error($text{'viewbackup_ecannot'});
@alldnames = split(/\s+/, $log->{'doms'});
@owndnames = &backup_log_own_domains($log);
scalar(@alldnames) == scalar(@owndnames) ||
	&error($text{'dbackup_edoms'});

&ui_print_header(undef, $text{'dbackup_title'}, "");

if ($in{'confirm'}) {
	# Do it
	&$first_print(&text('dbackup_doing', &nice_backup_url($log->{'dest'})));
	$err = &delete_backup_from_log($log);
	if (!$err) {
		$err = &delete_backup_log($log);
		}
	if ($err) {
		&$second_print(&text('dbackup_failed', $err));
		}
	else {
		&$second_print(&text('dbackup_done'));
		}
	}
else {
	# Ask first
	print &ui_confirmation_form(
		"delete_backup.cgi",
		&text('dbackup_rusure', &nice_size($log->{'size'}),
					scalar(@alldnames),
					&nice_backup_url($log->{'dest'})),
		[ [ "id", $in{'id'} ], [ "search", $in{'search'} ],
		  [ "plugin", $in{'plugin'} ], [ "return", $in{'return'} ] ],
		[ [ "confirm", $text{'dbackup_delnow'} ] ],
		);
	}

&ui_print_footer(&make_link('backuplog.cgi', 'search', 'plugin', 'return'),
		 $text{'backuplog_return'});