Gecko [ www.thearyasamaj.org ]

Name	Size	Permission
help	[ DIR ]	drwxr-xr-x
images	[ DIR ]	drwxr-xr-x
lang	[ DIR ]	drwxr-xr-x
CHANGELOG	685 B	-rw-r--r--
config-aix	506 B	-rw-r--r--
config-cobalt-linux	544 B	-rw-r--r--
config-coherent-linux	544 B	-rw-r--r--
config-corel-linux	562 B	-rw-r--r--
config-debian-linux	526 B	-rw-r--r--
config-debian-linux-2.1-ALL	580 B	-rw-r--r--
config-freebsd	497 B	-rw-r--r--
config-generic-linux	544 B	-rw-r--r--
config-gentoo-linux	553 B	-rw-r--r--
config-hpux	506 B	-rw-r--r--
config-irix	513 B	-rw-r--r--
config-macos	497 B	-rw-r--r--
config-macos-9.2-ALL	501 B	-rw-r--r--
config-mandrake-linux	544 B	-rw-r--r--
config-msc-linux	544 B	-rw-r--r--
config-netbsd	497 B	-rw-r--r--
config-open-linux	586 B	-rw-r--r--
config-openbsd	497 B	-rw-r--r--
config-openserver	497 B	-rw-r--r--
config-osf1	523 B	-rw-r--r--
config-pardus-linux	525 B	-rw-r--r--
config-redhat-linux	560 B	-rw-r--r--
config-slackware-linux	450 B	-rw-r--r--
config-sol-linux	541 B	-rw-r--r--
config-solaris	484 B	-rw-r--r--
config-solaris-11-ALL	486 B	-rw-r--r--
config-suse-linux	523 B	-rw-r--r--
config-suse-linux-7.0-8.0	529 B	-rw-r--r--
config-suse-linux-8.2-ALL	541 B	-rw-r--r--
config-syno-linux	293 B	-rw-r--r--
config-trustix-linux	554 B	-rw-r--r--
config-turbo-linux	544 B	-rw-r--r--
config-united-linux	541 B	-rw-r--r--
config-unixware	484 B	-rw-r--r--
config.info	542 B	-rw-r--r--
config.info.ca	1.76 KB	-rw-r--r--
config.info.cs	1.57 KB	-rw-r--r--
config.info.de	327 B	-rw-r--r--
config.info.el	1.03 KB	-rw-r--r--
config.info.es	1.53 KB	-rw-r--r--
config.info.fr	1.52 KB	-rw-r--r--
config.info.nl	1.61 KB	-rw-r--r--
config.info.no	570 B	-rw-r--r--
config.info.pl	1.73 KB	-rw-r--r--
config.info.sv	792 B	-rw-r--r--
config.info.tr	1.02 KB	-rw-r--r--
config.info.zh	687 B	-rw-r--r--
config.info.zh_TW	852 B	-rw-r--r--
cron-lib.pl	46.19 KB	-rwxr-xr-x
cron_editor.pl	599 B	-rwxr-xr-x
defaultacl	84 B	-rw-r--r--
defaultuconfig	40 B	-rw-r--r--
delete_cron.cgi	409 B	-rwxr-xr-x
delete_env.cgi	399 B	-rwxr-xr-x
delete_jobs.cgi	1.11 KB	-rwxr-xr-x
edit_cron.cgi	4.09 KB	-rwxr-xr-x
edit_env.cgi	1.87 KB	-rwxr-xr-x
exec_cron.cgi	2.05 KB	-rwxr-xr-x
feedback_files.pl	319 B	-rwxr-xr-x
index.cgi	9 KB	-rwxr-xr-x
module.info	119 B	-rw-r--r--
module.info.af	0 B	-rw-r--r--
module.info.af.auto	89 B	-rw-r--r--
module.info.ar	0 B	-rw-r--r--
module.info.ar.auto	143 B	-rw-r--r--
module.info.be	0 B	-rw-r--r--
module.info.be.auto	163 B	-rw-r--r--
module.info.bg	0 B	-rw-r--r--
module.info.bg.auto	178 B	-rw-r--r--
module.info.ca	34 B	-rw-r--r--
module.info.ca.auto	69 B	-rw-r--r--
module.info.cs	35 B	-rw-r--r--
module.info.cs.auto	77 B	-rw-r--r--
module.info.da	0 B	-rw-r--r--
module.info.da.auto	95 B	-rw-r--r--
module.info.de	105 B	-rw-r--r--
module.info.el	0 B	-rw-r--r--
module.info.el.auto	205 B	-rw-r--r--
module.info.es	0 B	-rw-r--r--
module.info.es.auto	105 B	-rw-r--r--
module.info.eu	0 B	-rw-r--r--
module.info.eu.auto	102 B	-rw-r--r--
module.info.fa	0 B	-rw-r--r--
module.info.fa.auto	148 B	-rw-r--r--
module.info.fi	0 B	-rw-r--r--
module.info.fi.auto	103 B	-rw-r--r--
module.info.fr	21 B	-rw-r--r--
module.info.he	0 B	-rw-r--r--
module.info.he.auto	130 B	-rw-r--r--
module.info.hr	0 B	-rw-r--r--
module.info.hr.auto	103 B	-rw-r--r--
module.info.hu	39 B	-rw-r--r--
module.info.hu.auto	85 B	-rw-r--r--
module.info.it	0 B	-rw-r--r--
module.info.it.auto	97 B	-rw-r--r--
module.info.ja	0 B	-rw-r--r--
module.info.ja.auto	133 B	-rw-r--r--
module.info.ko	0 B	-rw-r--r--
module.info.ko.auto	121 B	-rw-r--r--
module.info.lt	0 B	-rw-r--r--
module.info.lt.auto	121 B	-rw-r--r--
module.info.lv	0 B	-rw-r--r--
module.info.lv.auto	110 B	-rw-r--r--
module.info.ms	0 B	-rw-r--r--
module.info.ms.auto	95 B	-rw-r--r--
module.info.mt	0 B	-rw-r--r--
module.info.mt.auto	102 B	-rw-r--r--
module.info.nl	28 B	-rw-r--r--
module.info.no	30 B	-rw-r--r--
module.info.no.auto	69 B	-rw-r--r--
module.info.pl	32 B	-rw-r--r--
module.info.pl.auto	75 B	-rw-r--r--
module.info.pt	0 B	-rw-r--r--
module.info.pt.auto	102 B	-rw-r--r--
module.info.pt_BR	0 B	-rw-r--r--
module.info.pt_BR.auto	111 B	-rw-r--r--
module.info.ro	0 B	-rw-r--r--
module.info.ro.auto	99 B	-rw-r--r--
module.info.ru	0 B	-rw-r--r--
module.info.ru.auto	171 B	-rw-r--r--
module.info.sk	0 B	-rw-r--r--
module.info.sk.auto	110 B	-rw-r--r--
module.info.sl	0 B	-rw-r--r--
module.info.sl.auto	108 B	-rw-r--r--
module.info.sv	0 B	-rw-r--r--
module.info.sv.auto	99 B	-rw-r--r--
module.info.th	0 B	-rw-r--r--
module.info.th.auto	153 B	-rw-r--r--
module.info.tr	0 B	-rw-r--r--
module.info.tr.auto	113 B	-rw-r--r--
module.info.uk	0 B	-rw-r--r--
module.info.uk.auto	159 B	-rw-r--r--
module.info.ur	0 B	-rw-r--r--
module.info.ur.auto	179 B	-rw-r--r--
module.info.vi	0 B	-rw-r--r--
module.info.vi.auto	139 B	-rw-r--r--
module.info.zh	0 B	-rw-r--r--
module.info.zh.auto	93 B	-rw-r--r--
module.info.zh_TW	0 B	-rw-r--r--
module.info.zh_TW.auto	102 B	-rw-r--r--
move.cgi	1.17 KB	-rwxr-xr-x
range.pl	737 B	-rwxr-xr-x
save_cron.cgi	2.81 KB	-rwxr-xr-x
save_env.cgi	1.95 KB	-rwxr-xr-x
uconfig.info	135 B	-rw-r--r--
uconfig.info.ca	125 B	-rwxr-xr-x
uconfig.info.cs	105 B	-rw-r--r--
uconfig.info.de	145 B	-rw-r--r--
uconfig.info.fr	122 B	-rw-r--r--
uconfig.info.nl	165 B	-rw-r--r--
uconfig.info.no	158 B	-rw-r--r--
uconfig.info.pl	187 B	-rw-r--r--

Code Editor : index.cgi

#!/usr/bin/perl
# index.cgi
# Display a list of all cron jobs, with the username and command for each one

require './cron-lib.pl';
&ReadParse();
&ui_print_header(undef, $text{'index_title'}, "", undef, 1, 1);
$max_jobs = $userconfig{'max_jobs'} || $config{'max_jobs'};

# Make sure cron is installed (very likely!)
$err = &check_cron_config();
if ($err) {
	print $err,"\n";
	&ui_print_footer("/", $text{'index'});
	exit;
	}

# Work out which users can be viewed
map { $ucan{$_}++ } split(/\s+/, $access{'users'});
@jobs = &list_cron_jobs();
@ulist = &unique(map { $_->{'user'} } @jobs);
if ($access{'mode'} == 1) {
	@ulist = grep { $ucan{$_} } @ulist;
	}
elsif ($access{'mode'} == 2) {
	@ulist = grep { !$ucan{$_} } @ulist;
	}
elsif ($access{'mode'} == 3) {
	@ulist = ( $remote_user );
	}
elsif ($access{'mode'} == 4) {
	@ulist = grep { local @u = getpwnam($_);
			(!$access{'uidmin'} || $u[2] >= $access{'uidmin'}) &&
			(!$access{'uidmax'} || $u[2] <= $access{'uidmax'}) }
		 @ulist;
	}
elsif ($access{'mode'} == 5) {
	@ulist = grep { local @u = getpwnam($_);
			$u[3] == $access{'users'} } @ulist;
	}

if ($config{'show_run'}) {
	&foreign_require("proc", "proc-lib.pl");
	@procs = &proc::list_processes();
	}

# Work out creation links
@crlinks = ( );
if ($access{'create'}) {
	push(@crlinks, &ui_link("edit_cron.cgi?new=1&search=".
				  &urlize($in{'search'}),
			        $text{'index_create'}) );
	push(@crlinks, &ui_link("edit_env.cgi?new=1&search=".
				  &urlize($in{'search'}),
				$text{'index_ecreate'}) ) if ($env_support);
	}
if ($config{cron_allow_file} && $config{cron_deny_file} && $access{'allow'}) {
	push(@crlinks, &ui_link("edit_allow.cgi", $text{'index_allow'}) );
	}
my @files = &list_cron_files();
if ($access{'mode'} == 0 && @files) {
	push(@crlinks, &ui_link("edit_manual.cgi", $text{'index_manual'}));
	}

# Build a list of cron job rows to show
$single_user = !&supports_users() || (@ulist == 1 && $access{'mode'});
@links = ( &select_all_link("d", 1),
	   &select_invert_link("d", 1),
	   @crlinks );
@rows = ( );
foreach $u (@ulist) {
	if (!$config{'single_file'}) {
		# Get the Unix user's real name
		if ((@uinfo = getpwnam($u)) && $uinfo[5] =~ /\S/) {
			$uname = "$u ($uinfo[5])";
			}
		else { $uname = $u; }
		}

@jlist = grep { $_->{'user'} eq $u } @jobs;
	@plist = ();
	for($i=0; $i<@jlist; $i++) {
		local $rpd = &is_run_parts($jlist[$i]->{'command'});
		local @exp = $rpd ? &expand_run_parts($rpd) : ();
		if (!$rpd || @exp) {
			push(@plist, [ $jlist[$i], \@exp ]);
			}
		}
	for($i=0; $i<@plist; $i++) {
		local $job = $plist[$i]->[0];
		&convert_range($job);
		&convert_comment($job);
		local @exp = @{$plist[$i]->[1]};
		local $idx = $job->{'index'};
		local @cols;
		push(@cols, $idx);
		$useridx = 0;
		$cmdidx = 0;
		if (!$single_user) {
			$useridx = scalar(@cols);
			push(@cols, &html_escape($uname));
			}
		push(@cols, $job->{'active'} ? $text{'yes'} :
				"$text{'no'}");
		$donelink = 0;
		if ($job->{'name'}) {
			# An environment variable - show the name only
			$cmdidx = scalar(@cols);
			push(@cols, &ui_link("edit_env.cgi?idx=".$idx,
				 "$text{'index_env'} ".
				 "<tt>$job->{'name'} = $job->{'value'}</tt>") );
			$donelink = 1;
			}
		elsif (@exp && $access{'command'}) {
			# A multi-part command
			$cmdidx = scalar(@cols);
			@exp = map { &html_escape($_) } @exp;
			push(@cols, &ui_link("edit_cron.cgi?idx=".$idx.
				 "&search=".&urlize($in{'search'}),
				 join(" ",@exp)) );
			$donelink = 1;
			}
		elsif ($access{'command'}) {
			# A simple command
			$cmdidx = scalar(@cols);
			local $max = $config{'max_len'} || 10000;
			local ($cmd, $input) =
				&extract_input($job->{'command'});
			$cmd =~ s/\\%/%/g;
			$input =~ s/\\%/%/g;
			$cmd = length($cmd) > $max ?
			 &html_escape(substr($cmd, 0, $max))." ..." :
			 $cmd !~ /\S/ ? "BLANK" : &html_escape($cmd);
			push(@cols, &ui_link("edit_cron.cgi?idx=".$idx.
					 "&search=".&urlize($in{'search'}),
					 $cmd) );
			$donelink = 1;
			}

# Show cron time
		if (!$access{'command'} || $config{'show_time'} || $userconfig{'show_time'}) {
			$when = &when_text($job, 1);
			if ($job->{'name'}) {
				push(@cols, "");
				}
			elsif ($donelink) {
				push(@cols, $when);
				}
			else {
				push(@cols, &ui_link(
					"edit_cron.cgi?idx=".$idx.
					  "&search=".&urlize($in{'search'}),
					$when) );
				}
			}

# Show comment
		if ($config{'show_comment'} || $userconfig{'show_comment'}) {
			push(@cols, $job->{'comment'});
			}

# Show next run time
		if ($config{'show_next'} || $userconfig{'show_next'}) {
			my $n = &next_run($job);
			push(@cols, $n ? &make_date($n)
				 : "$text{'index_nunknown'}");
			}

# Show running indicator
		if ($config{'show_run'}) {
			if ($job->{'name'}) {
				# An environment variable
				push(@cols, "");
				}
			else {
				# Try to find the process
				local $proc = &find_cron_process($job, \@procs);
				$txt = $proc ?
				 "$text{'yes'}" :
				 $text{'no'};
				if ($config{'show_run'} == 2 &&
				 ($access{'kill'} || !$proc)) {
					$lnk = $proc ? "kill_cron.cgi?idx=$idx" : "exec_cron.cgi?idx=$idx&bg=1";
					push(@cols, &ui_link($lnk, $txt) );
					}
				else {
					push(@cols, $txt);
					}
				}
			}

# Show mover buttons
		local $prv = $i > 0 ? $plist[$i-1]->[0] : undef;
		local $nxt = $i != $#plist ? $plist[$i+1]->[0] : undef;
		if ($access{'move'}) {
			local $canup = $prv &&
				$prv->{'file'} eq $job->{'file'} &&
				($job->{'type'} == 0 || $job->{'type'} == 3);
			local $candown = $nxt &&
				$nxt->{'file'} eq $job->{'file'} &&
				($job->{'type'} == 0 || $job->{'type'} == 3);
			local $mover = "move.cgi?search=".
				       &urlize($in{'search'})."&idx=$idx";
			push(@cols, &ui_up_down_arrows(
				"$mover&up=1",
				"$mover&down=1",
				$canup, $candown,
			        ));
			push(@cols, &ui_up_down_arrows(
				"$mover&top=1",
				"$mover&bottom=1",
				$canup, $candown,
				"images/top.gif",
				"images/bottom.gif",
			        ));
			}

# Add search colume
		push(@cols, $job->{'command'}.' '.$job->{'name'}.' '.
			    $job->{'comment'});
		push(@rows, \@cols);
		}
	}

# Limit to search
if ($in{'search'}) {
	@rows = grep { $_->[@$_-1] =~ /\Q$in{'search'}\E/i ||
		       $_->[1] =~ /\Q$in{'search'}\E/i } @rows;
	}

# Show search form
print &ui_form_start("index.cgi");
print "$text{'index_search'}:&nbsp;\n";
print &ui_textbox("search", $in{'search'}, 20);
print &ui_submit($text{'index_ok'});
print &ui_form_end();

# Check if we are over the display limit
if ($max_jobs && @rows > $max_jobs && !$in{'search'}) {
	print "$text{'index_toomany2'}\n";
	print &ui_links_row(\@crlinks);
	}
elsif (@rows) {
	# Show jobs
	if ($in{'search'}) {
		print &text('index_searchres',
			"".&html_escape($in{'search'}).""),"\n";
		push(@links, &ui_link("index.cgi", $text{'index_reset'}) );
		}
	print &ui_form_start("delete_jobs.cgi", "post");
	print &ui_links_row(\@links);
	@tds = ( "width=5" );
	print &ui_columns_start([
		"",
		$single_user ? ( ) : ( $text{'index_user'} ),
		$text{'index_active'},
		$access{'command'} ? ( $text{'index_command'} ) : ( ),
		!$access{'command'} || $config{'show_time'} ||
		 $userconfig{'show_time'} ? ( $text{'index_when'} ) : ( ),
		$config{'show_comment'} || $userconfig{'show_comment'} ?
		 ( $text{'index_comment'} ) : ( ),
		$config{'show_next'} ? ( $text{'index_next'} ) : ( ),
		$config{'show_run'} ? ( $text{'index_run'} ) : ( ),
		$access{'move'} ? ( $text{'index_move'}, "" ) : ( ),
		], 100, 0, \@tds);
	foreach my $r (@rows) {
		print &ui_checked_columns_row([ @$r[1..(@$r-2)] ],
					 \@tds, "d", $r->[0]);
		}
	print &ui_columns_end();
	print &ui_links_row(\@links);
	print &ui_form_end([ [ "delete", $text{'index_delete'} ],
			 [ "disable", $text{'index_disable'} ],
			 [ "enable", $text{'index_enable'} ] ]);
	}
else {
	# Show message
	if ($in{'search'}) {
		push(@crlinks, &ui_link("index.cgi", $text{'index_reset'}) );
		}
	print $in{'search'} ? &text('index_esearch',
			"".&html_escape($in{'search'})."")."" :
	 $module_info{'usermin'} ? "$text{'index_none3'} \n" :
	 $access{'mode'} ? "$text{'index_none2'} \n"
			 : "$text{'index_none'} \n";
	print &ui_links_row(\@crlinks);
	}

# If there is an init script that runs crond, show status
if (&foreign_available("init")) {
	&foreign_require("init");
	my $init = $config{'init_name'};
	my $atboot;
	if ($access{'stop'} && $init && ($atboot = &init::action_status($init))) {
		print &ui_hr();
		print &ui_buttons_start();

# Running now?
		my $r = &init::status_action($init);
		if ($r == 1) {
			print &ui_buttons_row("stop.cgi", $text{'index_stop'},
					      $text{'index_stopdesc'});
			}
		elsif ($r == 0) {
			print &ui_buttons_row("start.cgi", $text{'index_start'},
					      $text{'index_startdesc'});
			}

# Start at boot?
		print &ui_buttons_row("bootup.cgi", $text{'index_boot'},
				      $text{'index_bootdesc'}, undef,
				      &ui_radio("boot", $atboot == 2 ? 1 : 0,
						[ [ 1, $text{'yes'} ],
						  [ 0, $text{'no'} ] ]));

print &ui_buttons_end();
		}
	}

&ui_print_footer("/", $text{'index'});

${this.title}

Code Editor : index.cgi