Gecko [ www.thearyasamaj.org ]

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

Code Editor : 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'});

${this.title}

Code Editor : rollback.cgi