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 : view.cgi

#!/usr/bin/perl
# view.cgi
# Show details of the action, including changed files

use strict;
use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
require './webminlog-lib.pl';
our (%text, %in);
&ReadParse();

# find the log record to view
my $act = &get_action($in{'id'});
&can_user($act->{'user'}) || &error($text{'view_ecannot'});
&can_mod($act->{'module'}) || &error($text{'view_ecannot'});

# display info about the action
&ui_print_header($in{'search_sub_title'} || undef, $text{'view_title'}, "", undef, undef, $in{'no_return'});

my @files = &list_files($act);
print &ui_form_start("rollback.cgi");
print &ui_hidden("id", $in{'id'});
print &ui_hidden("search", $in{'search'});

print &ui_hidden_table_start(&text('view_header', $act->{'id'}),
		      	     "width=100%", 4, "main", 1);

# This "" is needed to make the label show properly!
print &ui_table_row($text{'view_action'}."",
		    &filter_javascript(&get_action_description($act, 1)), 3);

my %minfo = $act->{'module'} eq 'global' ?
		( 'desc' => $text{'search_global'} ) :
		&get_module_info($act->{'module'});
print &ui_table_row($text{'view_module'},
		    $minfo{'desc'});

if ($act->{'module'} ne 'global') {
	print &ui_table_row($text{'view_script'},
			 "<tt>$act->{'module'}/$act->{'script'}</tt>");
	}
else {
	print &ui_table_row($text{'view_script'}, "<tt>$act->{'script'}</tt>");
	}

print &ui_table_row($text{'view_user'},
		    &html_escape($act->{'user'}));

print &ui_table_row($text{'view_ip'},
		    &html_escape($act->{'ip'}));

if ($act->{'sid'} ne '-') {
	print &ui_table_row($text{'view_sid'},
		&ui_link("search.cgi?sid=$act->{'sid'}&uall=1&mall=1&tall=1&fall=1&return=".
        &urlize($in{'return'})."&returndesc=".
        &urlize($in{'returndesc'}), $act->{'sid'}) );
	}

print &ui_table_row($text{'view_time'}, &make_date($act->{'time'}));

if ($act->{'webmin'}) {
	print &ui_table_row($text{'view_host'},
			    $act->{'webmin'});
	}
print &ui_hidden_table_end("main");

# Annotations for this log entry
my $text = &get_annotation($act);
print &ui_hidden_table_start($text{'view_anno'}, "width=100%", 1, "anno",
			 $text ? 1 : 0);
print &ui_table_row(undef,
	&ui_textarea("anno", $text, 10, 80, "auto", 0,
		 "style='width:100%'")." ".
	&ui_submit($text{'save'}, "annosave"));
print &ui_hidden_table_end("anno");

# Page output, if any
my $output = &get_action_output($act);
if ($output && &foreign_check("mailboxes")) {
	&foreign_require("mailboxes");
	$output = &mailboxes::filter_javascript($output);
	$output = &mailboxes::safe_urls($output);
	$output = &mailboxes::disable_html_images($output, 1);
	print &ui_hidden_table_start($text{'view_output'}, "width=100%", 1,
				     "output", 0);
	print &ui_table_row(undef, $output, 2);
	print &ui_hidden_table_end("output");
	}

# Raw log data, hidden by default
print &ui_hidden_table_start($text{'view_raw'}, "width=100%", 1, "raw", 0);
my @tds = ( "width=20% ");
my $rtable = &ui_columns_start(
	[ $text{'view_rawname'}, $text{'view_rawvalue'} ], 100, 0, \@tds);
foreach my $k (keys %$act) {
	next if ($k eq 'param');
	$rtable .= &ui_columns_row([
		"".&html_escape($k)."",
		&html_escape($act->{$k}) ], \@tds);
	}
foreach my $k (keys %{$act->{'param'}}) {
	$rtable .= &ui_columns_row([
		&html_escape($k),
		&html_escape(join("\n", split(/\0/, $act->{'param'}->{$k}))) ],
		\@tds);
	}
$rtable .= &ui_columns_end();
print &ui_table_row(undef, $rtable, 2);
print &ui_hidden_table_end("raw");

# display modified and commands run files
my $rbcount = 0;
my $i = 0;
my $fhtml = "";
my $anydiffs = 0;
foreach my $d (&list_diffs($act)) {
	my $t = $text{"view_type_".$d->{'type'}};
	my $rb;
	if ($d->{'type'} eq 'create' || $d->{'type'} eq 'modify' ||
	 $d->{'type'} eq 'delete') {
		($rb) = grep { $_->{'file'} eq $d->{'object'} } @files;
		}
	my $cbox = @files ?
		&ui_checkbox("r", $d->{'object'}, "", $rb, undef, !$rb) : "";
	$rbcount++ if ($rb);
	my $open = !$in{'file'} || $d->{'object'} eq $in{'file'};
	if ($t =~ /\$2/ || !$d->{'diff'}) {
		# Diff is just a single line message
		$fhtml .= &ui_hidden_table_start($cbox.
		 &text("view_type_".$d->{'type'},
			 "<tt>$d->{'object'}</tt>",
			 "<tt>".&html_escape($d->{'diff'})."</tt>"),
		 "width=100%", 2, "diff$i", $open);
		}
	else {
		# Show multi-line diff
		$fhtml .= &ui_hidden_table_start(
			$cbox.&text("view_type_".$d->{'type'},
			 "<tt>$d->{'object'}</tt>"),
			"width=100%", 2, "diff$i", $open);
		$fhtml .= &ui_table_row(undef,
			"<pre>".&html_escape($d->{'diff'})."</pre>", 2);
		if ($d->{'input'}) {
			# And input too
			$fhtml .= &ui_table_row(undef,
				"".&text('view_input')." ".
				"<pre>".&html_escape($d->{'input'})."</pre>",2);
			}
		}
	$fhtml .= &ui_hidden_table_end("diff$i");
	$i++;
	$anydiffs++;
	}
if ($rbcount) {
	$fhtml .= &ui_links_row([ &select_all_link("r"),
			 &select_invert_link("r") ]);
	}
print &ui_hidden_table_start($text{'view_files'}, "width=100%", 1, "files", 1);
$fhtml .= "$text{'view_nofiles'}\n" if (!$anydiffs);
print &ui_table_row(undef, $fhtml, 2);
print &ui_hidden_table_end("raw");

# Show rollback button
if (@files && $rbcount) {
	print &ui_form_end([ [ "rollback", $text{'view_rollback2'} ] ]);
	}
else {
	print &ui_form_end();
	}
my @return_index = $in{'no_return'} ? ( ) : ("", $text{'index_return'});
&ui_print_footer("search.cgi?search=".&urlize($in{'search'}), $text{'search_return'},
                 @return_index);

${this.title}

Code Editor : view.cgi