File Manager

X7ROOT File Manager

Current Path: /usr/libexec/webmin/webminlog

📁 ..
📄 CHANGELOG(2.01 KB)
📄 acl_security.pl(1.49 KB)
📄 config(14 B)
📄 config.info(70 B)
📄 config.info.ar(88 B)
📄 config.info.ca(89 B)
📄 config.info.cs(85 B)
📄 config.info.de(71 B)
📄 config.info.es(92 B)
📄 config.info.hr(0 B)
📄 config.info.hu(95 B)
📄 config.info.ja(102 B)
📄 config.info.ko(93 B)
📄 config.info.ms(77 B)
📄 config.info.nl(86 B)
📄 config.info.no(65 B)
📄 config.info.pl(89 B)
📄 config.info.ru(128 B)
📄 config.info.sk(87 B)
📄 config.info.tr(89 B)
📄 defaultacl(35 B)
📁 images
📄 index.cgi(5.29 KB)
📁 lang
📄 log_parser.pl(508 B)
📄 module.info(150 B)
📄 module.info.af(0 B)
📄 module.info.af.auto(120 B)
📄 module.info.ar(137 B)
📄 module.info.ar.auto(18 B)
📄 module.info.be(0 B)
📄 module.info.be.auto(192 B)
📄 module.info.bg(0 B)
📄 module.info.bg.auto(214 B)
📄 module.info.ca(119 B)
📄 module.info.ca.auto(17 B)
📄 module.info.cs(38 B)
📄 module.info.cs.auto(85 B)
📄 module.info.da(0 B)
📄 module.info.da.auto(118 B)
📄 module.info.de(96 B)
📄 module.info.de.auto(18 B)
📄 module.info.el(0 B)
📄 module.info.el.auto(192 B)
📄 module.info.es(41 B)
📄 module.info.es.auto(94 B)
📄 module.info.eu(0 B)
📄 module.info.eu.auto(124 B)
📄 module.info.fa(0 B)
📄 module.info.fa.auto(185 B)
📄 module.info.fi(0 B)
📄 module.info.fi.auto(123 B)
📄 module.info.fr(38 B)
📄 module.info.fr.auto(101 B)
📄 module.info.he(0 B)
📄 module.info.he.auto(141 B)
📄 module.info.hr(0 B)
📄 module.info.hr.auto(117 B)
📄 module.info.hu(23 B)
📄 module.info.hu.auto(115 B)
📄 module.info.it(31 B)
📄 module.info.it.auto(105 B)
📄 module.info.ja(151 B)
📄 module.info.ko(29 B)
📄 module.info.ko.auto(88 B)
📄 module.info.lt(0 B)
📄 module.info.lt.auto(146 B)
📄 module.info.lv(0 B)
📄 module.info.lv.auto(124 B)
📄 module.info.ms(86 B)
📄 module.info.ms.auto(18 B)
📄 module.info.mt(0 B)
📄 module.info.mt.auto(129 B)
📄 module.info.nl(25 B)
📄 module.info.nl.auto(97 B)
📄 module.info.no(23 B)
📄 module.info.no.auto(87 B)
📄 module.info.pl(98 B)
📄 module.info.pl.auto(18 B)
📄 module.info.pt(0 B)
📄 module.info.pt.auto(125 B)
📄 module.info.pt_BR(0 B)
📄 module.info.pt_BR.auto(134 B)
📄 module.info.ro(0 B)
📄 module.info.ro.auto(136 B)
📄 module.info.ru(45 B)
📄 module.info.ru.auto(135 B)
📄 module.info.sk(32 B)
📄 module.info.sk.auto(91 B)
📄 module.info.sl(0 B)
📄 module.info.sl.auto(116 B)
📄 module.info.sv(24 B)
📄 module.info.sv.auto(96 B)
📄 module.info.th(0 B)
📄 module.info.th.auto(222 B)
📄 module.info.tr(27 B)
📄 module.info.tr.auto(110 B)
📄 module.info.uk(0 B)
📄 module.info.uk.auto(160 B)
📄 module.info.ur(0 B)
📄 module.info.ur.auto(193 B)
📄 module.info.vi(0 B)
📄 module.info.vi.auto(144 B)
📄 module.info.zh(28 B)
📄 module.info.zh.auto(73 B)
📄 module.info.zh_TW(30 B)
📄 module.info.zh_TW.auto(79 B)
📄 negativeacl(9 B)
📄 rollback.cgi(5.14 KB)
📄 safeacl(19 B)
📄 save_notify.cgi(1.04 KB)
📄 search.cgi(7.55 KB)
📄 view.cgi(5.35 KB)
📄 webminlog-lib.pl(10.48 KB)

Editing: rollback.cgi

#!/usr/bin/perl
# rollback.cgi
# Revert all changed config files, after asking for confirmation

use strict;
use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
require './webminlog-lib.pl';
our (%text, %in, %access);
&ReadParse();
my $act = &get_action($in{'id'});

if ($in{'annosave'}) {
	# Just saving an annotation
	$in{'anno'} =~ s/\r//g;
	&save_annotation($act, $in{'anno'});
	&redirect("view.cgi?id=$in{'id'}&search=".&urlize($in{'search'}));
	exit;
	}

$access{'rollback'} ||  &error($text{'rollback_ecannot'});
&can_user($act->{'user'}) || &error($text{'view_ecannot'});
&can_mod($act->{'module'}) || &error($text{'view_ecannot'});
my %r = map { $_, 1 } split(/\0/, $in{'r'});
%r || &error($text{'rollback_enone'});
my @files = grep { $r{$_->{'file'}} } &list_files($act);

&ui_print_header(undef, $text{'rollback_title'}, "");
if ($in{'confirm'}) {
	# Do it!
	my %done;
	foreach my $f (@files) {
		next if ($done{$f->{'file'}});
		if (-d $f->{'file'} || $f->{'type'} == 1) {
			# Skip directory
			print &text('rollback_skipdir',"<tt>$f->{'file'}</tt>");
			}
		elsif (-l $f->{'file'} && $f->{'type'} == 2 ||
		 !-e $f->{'file'} && $f->{'type'} == 2 ||
		 !-l $f->{'file'} && $f->{'type'} == 2) {
			# Modify or create link
			&lock_file($f->{'file'});
			&unlink_file($f->{'file'});
			&symlink_file($f->{'data'}, $f->{'file'});
			&unlock_file($f->{'file'});
			print &text('rollback_madelink',
				 "<tt>$f->{'file'}</tt>",
				 "<tt>$f->{'data'}</tt>");
			}
		elsif (-e $f->{'file'} && -l $f->{'file'} &&
		 $f->{'type'} == 0) {
			# Remove link and create file
			&lock_file($f->{'file'});
			&unlink_file($f->{'file'});
			my $fh;
			&open_tempfile($fh, ">$f->{'file'}");
			&print_tempfile($fh, $f->{'data'});
			&close_tempfile($fh);
			&unlock_file($f->{'file'});
			print &text('rollback_madefile',
				 "<tt>$f->{'file'}</tt>");
			}
		elsif ($f->{'type'} == -1) {
			if (-e $f->{'file'}) {
				# Remove file
				&unlink_logged($f->{'file'});
				print &text('rollback_deleted',
					 "<tt>$f->{'file'}</tt>");
				}
			else {
				print &text('rollback_nodeleted',
					 "<tt>$f->{'file'}</tt>");
				}
			}
		else {
			# Replace file with old contents
			my $fh;
			&open_lock_tempfile($fh, ">$f->{'file'}");
			&print_tempfile($fh, $f->{'data'});
			&close_tempfile($fh);
			print &text('rollback_modfile',
				 "<tt>$f->{'file'}</tt>");
			}
		print " \n";
		$done{$f->{'file'}}++;
		}
	my %minfo = &get_module_info($act->{'module'});
	&webmin_log("rollback", undef, $in{'id'},
		 { 'desc' => &get_action_description($act),
		 'mdesc' => $minfo{'desc'} });
	}
else {
	# Show the user what will be done
	print &ui_form_start("rollback.cgi");
	print &ui_hidden("id", $in{'id'});
	print &ui_hidden("search", $in{'search'});
	foreach my $r (keys %r) {
		print &ui_hidden("r", $r);
		}
	print $text{'rollback_rusure'},"\n";
	my %done;
	my $count = 0;
	foreach my $f (@files) {
		next if ($done{$f->{'file'}});
		print &ui_table_start("<tt>$f->{'file'}</tt>", "width=100%", 2);
		print "<tr> <td colspan=2>";
		if (-d $f->{'file'} || $f->{'type'} == 1) {
			# Is a directory
			print &text('rollback_isdir');
			}
		elsif (-l $f->{'file'} && $f->{'type'} == 2 ||
		 !-e $f->{'file'} && $f->{'type'} == 2) {
			# Was a link, and is one now
			my $lnk = readlink($f->{'file'});
			if (!-e $f->{'file'}) {
				print &text('rollback_clink', "<tt>$f->{'data'}</tt>");
				$count++;
				}
			elsif ($lnk ne $f->{'data'}) {
				print &text('rollback_link', "<tt>$f->{'data'}</tt>", "<tt>$lnk</tt>");
				$count++;
				}
			else {
				print &text('rollback_nolink');
				}
			}
		elsif (-e $f->{'file'} && -l $f->{'file'} &&
		 $f->{'type'} == 0) {
			# Was a file, but is now a link
			my $lnk = readlink($f->{'file'});
			print &text('rollback_makefile', "<tt>$lnk</tt>");
			print "<pre>$f->{'data'}</pre>";
			$count++;
			}
		elsif (!-l $f->{'file'} && $f->{'type'} == 2) {
			# Was a link, but is now a file
			print &text('rollback_makelink', "<tt>$f->{'data'}</tt>");
			$count++;
			}
		elsif ($f->{'type'} == -1) {
			# Was created
			if (-e $f->{'file'}) {
				print &text('rollback_delete',
					 "<tt>$f->{'file'}</tt>");
				$count++;
				}
			else {
				print &text('rollback_nodelete',
					 "<tt>$f->{'file'}</tt>");
				}
			}
		elsif (!-e $f->{'file'}) {
			# No longer exists
			print $text{'rollback_fillfile'};
			print "<pre>$f->{'data'}</pre>";
			$count++;
			}
		else {
			# Was a file, and is one now
			my $qnew = quotemeta($f->{'file'});
			my $temp = &transname();
			open(TEMP, ">$temp");
			print TEMP $f->{'data'};
			close(TEMP);
			my $out = &backquote_command("diff $qnew $temp");
			if ($out) {
				print $text{'rollback_changes'};
				print "<pre>$out</pre>";
				$count++;
				}
			else {
				print $text{'rollback_nochanges'};
				}
			}
		$done{$f->{'file'}}++;
		print "</td> </tr>\n";
		print &ui_table_end();
		print " \n";
		}
	if ($count) {
		print &ui_form_end([ [ "confirm", $text{'rollback_ok'} ] ]);
		}
	else {
		print "$text{'rollback_none'}\n";
		print &ui_form_end();
		}
	}
&ui_print_footer("view.cgi?id=$in{'id'}&search=".&urlize($in{'search'}),
		 $text{'view_return'},
		 "", $text{'index_return'});

X7ROOT File Manager

Editing: rollback.cgi

Upload File

Create Folder