File Manager

X7ROOT File Manager

Current Path: /usr/libexec/webmin/cluster-copy

📁 ..
📄 CHANGELOG(1.02 KB)
📄 cluster-copy-lib.pl(6.67 KB)
📄 config(12 B)
📄 config.info(83 B)
📄 config.info.ca(107 B)
📄 config.info.de(84 B)
📄 config.info.fr(107 B)
📄 config.info.hu(0 B)
📄 config.info.ms(86 B)
📄 config.info.nl(93 B)
📄 config.info.no(95 B)
📄 config.info.pl(90 B)
📄 copy.pl(1.8 KB)
📄 delete.cgi(507 B)
📄 edit.cgi(2.67 KB)
📄 exec.cgi(2.02 KB)
📁 help
📁 images
📄 index.cgi(1.89 KB)
📁 lang
📄 log_parser.pl(704 B)
📄 module.info(172 B)
📄 module.info.af(0 B)
📄 module.info.af.auto(135 B)
📄 module.info.ar(0 B)
📄 module.info.ar.auto(179 B)
📄 module.info.be(0 B)
📄 module.info.be.auto(213 B)
📄 module.info.bg(0 B)
📄 module.info.bg.auto(235 B)
📄 module.info.ca(156 B)
📄 module.info.cs(41 B)
📄 module.info.cs.auto(95 B)
📄 module.info.da(0 B)
📄 module.info.da.auto(124 B)
📄 module.info.de(126 B)
📄 module.info.el(0 B)
📄 module.info.el.auto(273 B)
📄 module.info.es(36 B)
📄 module.info.es.auto(113 B)
📄 module.info.eu(0 B)
📄 module.info.eu.auto(145 B)
📄 module.info.fa(0 B)
📄 module.info.fa.auto(213 B)
📄 module.info.fi(0 B)
📄 module.info.fi.auto(134 B)
📄 module.info.fr(40 B)
📄 module.info.fr.auto(109 B)
📄 module.info.he(0 B)
📄 module.info.he.auto(146 B)
📄 module.info.hr(0 B)
📄 module.info.hr.auto(139 B)
📄 module.info.hu(35 B)
📄 module.info.hu.auto(99 B)
📄 module.info.it(0 B)
📄 module.info.it.auto(129 B)
📄 module.info.ja(0 B)
📄 module.info.ja.auto(190 B)
📄 module.info.ko(0 B)
📄 module.info.ko.auto(144 B)
📄 module.info.lt(0 B)
📄 module.info.lt.auto(141 B)
📄 module.info.lv(0 B)
📄 module.info.lv.auto(136 B)
📄 module.info.ms(127 B)
📄 module.info.mt(0 B)
📄 module.info.mt.auto(140 B)
📄 module.info.nl(38 B)
📄 module.info.nl.auto(106 B)
📄 module.info.no(30 B)
📄 module.info.no.auto(101 B)
📄 module.info.pl(120 B)
📄 module.info.pt(0 B)
📄 module.info.pt.auto(147 B)
📄 module.info.pt_BR(0 B)
📄 module.info.pt_BR.auto(153 B)
📄 module.info.ro(0 B)
📄 module.info.ro.auto(147 B)
📄 module.info.ru(0 B)
📄 module.info.ru.auto(230 B)
📄 module.info.sk(0 B)
📄 module.info.sk.auto(132 B)
📄 module.info.sl(0 B)
📄 module.info.sl.auto(118 B)
📄 module.info.sv(0 B)
📄 module.info.sv.auto(135 B)
📄 module.info.th(0 B)
📄 module.info.th.auto(320 B)
📄 module.info.tr(0 B)
📄 module.info.tr.auto(148 B)
📄 module.info.uk(0 B)
📄 module.info.uk.auto(216 B)
📄 module.info.ur(0 B)
📄 module.info.ur.auto(195 B)
📄 module.info.vi(0 B)
📄 module.info.vi.auto(137 B)
📄 module.info.zh(0 B)
📄 module.info.zh.auto(115 B)
📄 module.info.zh_TW(0 B)
📄 module.info.zh_TW.auto(121 B)
📄 save.cgi(2.1 KB)
📄 uninstall.pl(230 B)

Editing: exec.cgi

#!/usr/bin/perl
# exec.cgi
# Run the cron job on all configured servers

require './cluster-copy-lib.pl';
&ReadParse();
&ui_print_unbuffered_header(undef, $text{'exec_title'}, "");

# Run on all servers and show output
$copy = &get_copy($in{'id'});
@files = split(/\t+/, $copy->{'files'});
$under = $copy->{'dest'} eq "/" ? "" :
		&text('exec_under', "<tt>$copy->{'dest'}</tt>");
if (@files > 3) {
	print &text('exec_files1', scalar(@files), $under),"\n";
	}
else {
	print &text('exec_files2',
		 join(", ", map { "<tt>$_</tt>" } @files), $under),"\n";
	}
@run = &run_cluster_job($copy, \&callback);
if (!@run) {
	print "$text{'exec_nohosts'}\n";
	}

&webmin_log("exec", "copy", undef, $copy);

&ui_print_footer("edit.cgi?id=$in{'id'}", $text{'edit_return'},
	"", $text{'index_return'});

# callback(error, &server, message, dirs, command-output, before-output)
sub callback
{
local $d = $_[1]->{'desc'} || $_[1]->{'host'};
if (!$_[0]) {
	# Failed - show error
	print "",&text('exec_failed', $d, $_[2]),"\n";
	}
else {
	if ($_[6]) {
		# Show before command output
		print "",&text('exec_before', $d)," \n";
		print "<tt>",join(" ", &mailboxes::wrap_lines($_[6], 80)),
		 "</tt>\n";
		}
	if (@{$_[4]}) {
		# Show created directories
		print "",&text('exec_made', $d)," <ul>\n";
		foreach $f (@{$_[4]}) {
			print "<tt>$f</tt> \n";
			}
		print "</ul>\n";
		}
	if (!@{$_[2]}) {
		# Nothing copied
		print "",&text('exec_nothing', $d),"\n";
		}
	else {
		# Show copied files
		print "",&text('exec_success', $d)," <ul>\n";
		foreach $f (@{$_[2]}) {
			print "<tt>$f</tt> \n";
			}
		print "</ul>\n";
		}
	if (@{$_[3]}) {
		# Show failed files
		print "",&text('exec_not', $d)," <ul>\n";
		foreach $f (@{$_[3]}) {
			print "<tt>$f->[0]</tt> : $f->[1] \n";
			}
		print "</ul>\n";
		}
	if ($_[5]) {
		# Show after command output
		print "",&text('exec_cmd', $d)," \n";
		print "<tt>",join(" ", &mailboxes::wrap_lines($_[5], 80)),
		 "</tt>\n";
		}
	}
}

X7ROOT File Manager

Editing: exec.cgi

Upload File

Create Folder