⚝
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
Eksekusi
Dir :
~
/
usr
/
share
/
webmin
/
virtual-server
/
View File Name :
backup.cgi
#!/usr/bin/perl # Do an immediate virtual server backup require './virtual-server-lib.pl'; &ReadParse(); &error_setup($text{'backup_err'}); $cbmode = &can_backup_domain(); $cbmode || &error($text{'backup_ecannot'}); if ($in{'oneoff'} || $in{'bg'}) { ($sched) = grep { $_->{'id'} eq $in{'oneoff'} && &can_backup_sched($_) } &list_scheduled_backups(); $sched || &error($text{'backup_egone'}); $runsched = $sched; } if ($in{'bg'}) { # Background backup of previous scheduled request .. launch it &ui_print_unbuffered_header(undef, $text{'backup_title'}, "", undef, undef, $in{'return'}); @dests = &get_scheduled_backup_dests($sched); @dests = map { &backup_strftime($_) } @dests if ($sched->{'strftime'}); $nice = join(", ", map { &nice_backup_url($_) } @dests); &$first_print(&text('backup_starting', $nice)); $cmd = "$backup_cron_cmd --id $sched->{'id'} --force-email ". "--manual-mode"; &clean_environment(); &execute_command("$cmd >/dev/null 2>&1 </dev/null &"); &reset_environment(); if ($sched->{'email'}) { &$second_print(&text('backup_started', $sched->{'email'})); } else { &$second_print($text{'backup_started2'}); } &ui_print_footer($in{'return'} || "/$module_name/list_sched.cgi", $text{'sched_return'}); exit; } # Validate inputs if ($sched->{'owner'}) { $od = &get_domain($sched->{'owner'}); $od || &error($text{'backup_eownergone'}); $acluser = $od->{'user'}; } else { $acluser = undef; } if ($in{'all'} == 1) { # All domains @doms = grep { &can_backup_domain($_, $acluser) } &list_visible_domains(); } elsif ($in{'all'} == 2) { # All except selected %exc = map { $_, 1 } split(/\s+/, $in{'doms'}); @doms = grep { &can_backup_domain($_, $acluser) && !$exc{$_->{'id'}} } &list_visible_domains(); if ($in{'parent'}) { @doms = grep { !$_->{'parent'} || !$exc{$_->{'parent'}} } @doms; } } else { # Only selected foreach $did (split(/\s+/, $in{'doms'})) { local $dinfo = &get_domain($did); if ($dinfo && &can_backup_domain($dinfo, $acluser)) { push(@doms, $dinfo); if (!$dinfo->{'parent'} && $in{'parent'}) { push(@doms, &get_domain_by("parent", $did)); } } } @doms = grep { !$donedom{$_->{'id'}}++ } @doms; } # Limit to those on some plan, if given if ($in{'plan'} && !$in{'plan_def'} && &can_edit_plans()) { %plandoms = map { $_->{'id'}, 1 } grep { &indexof($_->{'plan'}, split(/\0/, $in{'plan'})) >= 0 } @doms; @doms = grep { $plandoms{$_->{'id'}} || $plandoms{$_->{'parent'}} } @doms; } # Limit to those owned by some resellers, if given if ($in{'reseller'} && !$in{'reseller_def'} && &can_edit_resellers()) { %resels = map { $_, 1 } split(/\0/, $in{'reseller'}); @doms = grep { $_->{'reseller'} && $resels{$_->{'reseller'}} } @doms; } # Plugin can enforce a domain if the domain is allowed when the user is a # master admin or when passes ACL access check otherwise (owner/reseller) if ($in{'plugged'} && &plugin_defined($in{'plugged'}, 'feature_can_domain')) { my ($plugin_d, $plugin_cbmode) = &plugin_call($in{'plugged'}, 'feature_can_domain', \%in); &error($text{'backup_eplugin_domain'}) if (!$plugin_d); $cbmode = $plugin_cbmode; &error($text{'backup_eplugin_domain'}) if (!$cbmode); $d = $plugin_d; } elsif ($cbmode == 2) { # Work out the current user's main domain, if needed $d = &get_domain_by_user($base_remote_user); } elsif ($cbmode == 3 && $in{'dest_mode'} == 0) { # A reseller running a backup to a local file, created by one of # his domains. $sid = $in{'sched'} || $in{'oneoff'}; ($sched) = grep { $_->{'id'} eq $sid && &can_backup_sched($_) } &list_scheduled_backups(); if ($sched && $sched->{'owner'}) { $d = &get_domain($sched->{'owner'}); } } if ($in{'feature_all'}) { @do_features = ( &get_available_backup_features(), &list_backup_plugins() ); @do_features = &prune_all_features_for_backup(@do_features); } else { @do_features = split(/\0/, $in{'feature'}); } @do_features || &error($text{'backup_efeatures'}); # Parse destinations for($i=0; defined($in{"dest".$i."_mode"}); $i++) { next if ($in{"dest".$i."_mode"} == 0 && !$in{"dest".$i."_file"}); $dest = &parse_backup_destination("dest".$i, \%in, $cbmode == 3, $d, $in{'fmt'}); push(@dests, $dest); $anydownload++ if ($dest eq "download:" || $dest eq "downloadlink:"); } @dests || &error($text{'backup_edests'}); if ($anydownload) { if (@dests == 1) { # If just downloading, always create a single file $in{'fmt'} = 0; } else { &error($text{'backup_edownloadmany'}); } } @strfdests = $in{'strftime'} ? map { &backup_strftime($_) } @dests : @dests; # Get the backup key $key = undef; if (defined(&get_backup_key) && $in{'key'}) { $key = &get_backup_key($in{'key'}); $key || &error($text{'backup_ekey'}); &can_use_backup_key($key) || &error($text{'backup_ekeycannot'}); } # Parse option inputs foreach $f (@do_features) { local $ofunc = "parse_backup_$f"; if (&indexof($f, &list_backup_plugins()) < 0 && defined(&$ofunc)) { $options{$f} = &$ofunc(\%in); } elsif (&indexof($f, &list_backup_plugins()) >= 0 && &plugin_defined($f, "feature_backup_parse")) { $options{$f} = &plugin_call($f, "feature_backup_parse", \%in); } } $options{'dir'}->{'exclude'} = join("\t", split(/\r?\n/, $in{'exclude'})); $options{'dir'}->{'include'} = $in{'include'}; $options{'dir'}->{'strftime'} = $in{'strftime'}; # Parse Virtualmin feature inputs if (&can_backup_virtualmin()) { @vbs = split(/\0/, $in{'virtualmin'}); } else { @vbs = ( ); } @doms || @vbs || &error($text{'backup_edoms'}); # Flag backup as started if (!$runsched) { # Fake up schedule object $runsched = { 'id' => 'backup.cgi.'.time() }; for(my $i=0; $i<@dests; $i++) { $runsched->{'dest'.$i} = $dests[$i]; } if ($in{'all'}) { $runsched->{'all'} = 1; } elsif (@doms) { $runsched->{'doms'} = join(" ", map { $_->{'id'} } @doms); } $runsched->{'virtualmin'} = join(" ", @vbs); } &start_running_backup($runsched); if ($dests[0] eq "download:" || $dests[0] eq "downloadlink:") { # Special case .. we backup to a temp file and output in the browser my $tempfile; my $sfx = &compression_to_suffix($in{'compression'}); if ($dests[0] eq "download:") { $temp = &transname().".".$sfx; } else { my $host = &get_system_hostname(1); my $time = strftime("%Y%m%d-%H%M", localtime); my $numb = scalar @doms; my $feat = @vbs ? '+settings' : ''; my $name; if ($numb == 1) { my $dom = $doms[0]->{'dom'}; $dom =~ s/\./-/g; $name = "${time}_${dom}${feat}_$host"; } else { my $scope; if ($in{'all'} == 1) { $scope = "all-domains${feat}"; } else { $scope = "${numb}-domains${feat}"; } $host =~ s/\./-/g; $name = "${time}_${scope}_$host"; } $tempfile = $name . "." . $sfx; $temp = &tempname($remote_user . ":" . $tempfile); } if (@doms) { # Pre-create temp file with correct permissions foreach $t ($temp, $temp.".info", $temp.".dom") { &open_tempfile(TEMP, ">$t", 0, 1); &close_tempfile(TEMP); &set_ownership_permissions( $doms[0]->{'uid'}, $doms[0]->{'gid'}, 0700, $t); } } if ($dests[0] eq "download:") { # Output is hidden &set_all_null_print(); } else { # Show backup progress &ui_print_unbuffered_header(undef, $text{'backup_title'}, "", undef, undef, $in{'return'}); } ($ok, $size) = &backup_domains([ $temp ], \@doms, \@do_features, $in{'fmt'}, $in{'errors'}, \%options, $in{'fmt'} == 2, \@vbs, $in{'mkdir'}, $in{'onebyone'}, $cbmode == 2, undef, $in{'increment'}, 0, $key, 0, $in{'compression'}); &cleanup_backup_limits(0, 1); unlink($temp.".info"); unlink($temp.".dom"); &run_post_actions(); if (!$ok) { unlink($temp); if ($dests[0] eq "download:") { &error($text{'backup_edownloadfailed'}); } else { &ui_print_footer($in{'return'} || "/$module_name/list_sched.cgi", $text{'sched_return'}); } } elsif ($dests[0] eq "download:") { # Just output the file @st = stat($temp); print "Content-type: application/octet-stream\n"; print "Content-length: $st[7]\n"; print "\n"; open(TEMP, "<".$temp); unlink($temp); while(read(TEMP, $buf, &get_buffer_size()) > 0) { print $buf; } close(TEMP); } else { # Show page with a link to download my $fsize = -s $temp; my $fsizen = &nice_size($fsize); print "<p><b>", &ui_link("@{[&get_webprefix_safe()]}/$module_name/download_backup.cgi?file=". &urlize($temp), &text('backup_downloadfile', $tempfile) . " ($fsizen)" ), "</b><p>\n"; &ui_print_footer($in{'return'} || "/$module_name/list_sched.cgi", $text{'sched_return'}); } } else { &ui_print_unbuffered_header(undef, $text{'backup_title'}, "", undef, undef, $in{'return'}); # Run any before command $start_time = time(); if ($in{'oneoff'} && $sched->{'before'}) { &$first_print($text{'backup_brun'}); &set_backup_envs($sched, \@doms); $out .= &backquote_logged( "($sched->{'before'}) 2>&1 </dev/null"); &reset_backup_envs(); print "<pre>".&html_escape($out)."</pre>"; if ($?) { &$second_print($text{'backup_brunfailed'}); goto PREFAILED; } else { &$second_print($text{'setup_done'}); } } # Start backup and show progress $nice = join(", ", map { &nice_backup_url($_) } @strfdests); if (@doms) { print &text('backup_doing', scalar(@doms), $nice),"<p>\n"; } else { print &text('backup_doing2', scalar(@vbs), $nice),"<p>\n"; } &start_print_capture(); ($ok, $size, $errdoms) = &backup_domains( \@strfdests, \@doms, \@do_features, $in{'fmt'}, $in{'errors'}, \%options, $in{'fmt'} == 2, \@vbs, $in{'mkdir'}, $in{'onebyone'}, $cbmode == 2, undef, $in{'increment'}, undef, $key, 0, $in{'compression'}); $output = &stop_print_capture(); &cleanup_backup_limits(0, 1); foreach $dest (@strfdests) { &write_backup_log(\@doms, $dest, $in{'increment'}, $start_time, $size, $ok, "cgi", $output, $errdoms, undef, $key, $sched ? $sched->{'id'} : undef, $in{'fmt'}, 0, undef, $sched->{'desc'}); } &run_post_actions(); if (!$ok) { print "<p>",$text{'backup_failed'},"<p>\n"; } else { print "<p>",&text('backup_done', &nice_size($size)),"<p>\n"; } # If purging old backups, do that now if (($ok || $in{'errors'} == 1) && $in{'oneoff'}) { @purges = &get_scheduled_backup_purges($sched); $i = 0; $asd = $cbmode == 2 ? &get_backup_as_domain(\@doms) : undef; foreach $dest (@dests) { if ($purges[$i]) { $current_id = undef; $pok = &purge_domain_backups( $dest, $purges[$i], $start_time, $asd); } $i++; } } # Run any after command if ($in{'oneoff'} && $sched->{'after'}) { &$first_print($text{'backup_arun'}); &set_backup_envs($sched, \@doms, $ok, $errdoms); $out = &backquote_command( "($sched->{'after'}) 2>&1 </dev/null"); &reset_backup_envs(); print "<pre>".&html_escape($out)."</pre>"; if ($?) { &$second_print($text{'backup_arunfailed'}); } else { &$second_print($text{'setup_done'}); } } PREFAILED: &webmin_log("backup", $dests[0], undef, { 'doms' => [ map { $_->{'dom'} } @doms ], 'failed' => !$ok, 'sched' => 0, }); &ui_print_footer($in{'return'} || "/$module_name/list_sched.cgi", $text{'sched_return'}); } # Flag backup as done &stop_running_backup($runsched);