Gecko [ contributie.vriendennsm.nl ]

Name	Size	Permission	Date
images	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
lang	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
CHANGELOG	702 B	-rw-r--r--	2026-07-17 21:17
acl_security.pl	1.17 KB	-rwxr-xr-x	2026-07-17 21:17
at-lib.pl	3.29 KB	-rwxr-xr-x	2026-07-17 21:17
backup_config.pl	892 B	-rwxr-xr-x	2026-07-17 21:17
bootup.cgi	356 B	-rwxr-xr-x	2026-07-17 21:22
cgi_args.pl	332 B	-rwxr-xr-x	2026-07-17 21:17
config-coherent-linux	84 B	-rw-r--r--	2026-07-17 21:17
config-corel-linux	88 B	-rw-r--r--	2026-07-17 21:17
config-debian-linux	88 B	-rw-r--r--	2026-07-17 21:17
config-debian-linux-3.0-ALL	45 B	-rw-r--r--	2026-07-17 21:17
config-freebsd	37 B	-rw-r--r--	2026-07-17 21:17
config-generic-linux	88 B	-rw-r--r--	2026-07-17 21:17
config-gentoo-linux	97 B	-rw-r--r--	2026-07-17 21:17
config-irix	44 B	-rw-r--r--	2026-07-17 21:17
config-macos	35 B	-rw-r--r--	2026-07-17 21:17
config-mandrake-linux	84 B	-rw-r--r--	2026-07-17 21:17
config-msc-linux	84 B	-rw-r--r--	2026-07-17 21:17
config-netbsd	37 B	-rw-r--r--	2026-07-17 21:17
config-open-linux	89 B	-rw-r--r--	2026-07-17 21:17
config-openSUSE-Linux-15.0-ALL	88 B	-rw-r--r--	2026-07-17 21:17
config-openbsd	37 B	-rw-r--r--	2026-07-17 21:17
config-openmamba-linux	84 B	-rw-r--r--	2026-07-17 21:17
config-openserver	50 B	-rw-r--r--	2026-07-17 21:17
config-redhat-linux	84 B	-rw-r--r--	2026-07-17 21:17
config-slackware-linux	88 B	-rw-r--r--	2026-07-17 21:17
config-sol-linux	88 B	-rw-r--r--	2026-07-17 21:17
config-solaris	47 B	-rw-r--r--	2026-07-17 21:17
config-suse-linux	88 B	-rw-r--r--	2026-07-17 21:17
config-syno-linux	88 B	-rw-r--r--	2026-07-17 21:17
config-trustix-linux	84 B	-rw-r--r--	2026-07-17 21:17
config-turbo-linux	84 B	-rw-r--r--	2026-07-17 21:17
config-united-linux	88 B	-rw-r--r--	2026-07-17 21:17
config.info	237 B	-rw-r--r--	2026-07-17 21:17
config.info.bg	347 B	-rw-r--r--	2026-07-17 21:17
config.info.ca	264 B	-rw-r--r--	2026-07-17 21:17
config.info.cs	241 B	-rw-r--r--	2026-07-17 21:17
config.info.de	293 B	-rw-r--r--	2026-07-17 21:17
config.info.es	262 B	-rw-r--r--	2026-07-17 21:17
config.info.fr	273 B	-rw-r--r--	2026-07-17 21:17
config.info.hr	0 B	-rw-r--r--	2026-07-17 21:17
config.info.hu	257 B	-rw-r--r--	2026-07-17 21:17
config.info.it	251 B	-rw-r--r--	2026-07-17 21:17
config.info.ms	241 B	-rw-r--r--	2026-07-17 21:17
config.info.nl	242 B	-rw-r--r--	2026-07-17 21:17
config.info.no	239 B	-rw-r--r--	2026-07-17 21:17
config.info.pl	206 B	-rw-r--r--	2026-07-17 21:17
config.info.pt_BR	154 B	-rw-r--r--	2026-07-17 21:17
config.info.ru	333 B	-rw-r--r--	2026-07-17 21:17
config.info.sk	302 B	-rw-r--r--	2026-07-17 21:17
config.info.sv	0 B	-rw-r--r--	2026-07-17 21:17
config.info.tr	139 B	-rw-r--r--	2026-07-17 21:17
config.info.uk	164 B	-rw-r--r--	2026-07-17 21:17
config.info.zh_TW	136 B	-rw-r--r--	2026-07-17 21:17
create_job.cgi	1.07 KB	-rwxr-xr-x	2026-07-17 21:22
defaultacl	40 B	-rw-r--r--	2026-07-17 21:17
delete_job.cgi	1.31 KB	-rwxr-xr-x	2026-07-17 21:22
delete_jobs.cgi	613 B	-rwxr-xr-x	2026-07-17 21:22
edit_job.cgi	1.57 KB	-rwxr-xr-x	2026-07-17 21:22
freebsd-lib.pl	1.43 KB	-rwxr-xr-x	2026-07-17 21:17
index.cgi	4.74 KB	-rwxr-xr-x	2026-07-17 21:22
install_check.pl	406 B	-rwxr-xr-x	2026-07-17 21:17
irix-lib.pl	1.25 KB	-rwxr-xr-x	2026-07-17 21:17
linux-lib.pl	1.76 KB	-rwxr-xr-x	2026-07-17 21:17
log_parser.pl	625 B	-rwxr-xr-x	2026-07-17 21:17
macos-lib.pl	1.3 KB	-rwxr-xr-x	2026-07-17 21:17
module.info	438 B	-rw-r--r--	2026-07-17 21:17
module.info.ar	0 B	-rw-r--r--	2026-07-17 21:17
module.info.ar.auto	156 B	-rw-r--r--	2026-07-17 21:17
module.info.bg	0 B	-rw-r--r--	2026-07-17 21:17
module.info.bg.auto	183 B	-rw-r--r--	2026-07-17 21:17
module.info.ca	84 B	-rw-r--r--	2026-07-17 21:17
module.info.ca.auto	11 B	-rw-r--r--	2026-07-17 21:17
module.info.cs	30 B	-rw-r--r--	2026-07-17 21:17
module.info.cs.auto	90 B	-rw-r--r--	2026-07-17 21:17
module.info.da	0 B	-rw-r--r--	2026-07-17 21:17
module.info.da.auto	110 B	-rw-r--r--	2026-07-17 21:17
module.info.de	102 B	-rw-r--r--	2026-07-17 21:17
module.info.de.auto	13 B	-rw-r--r--	2026-07-17 21:17
module.info.el	0 B	-rw-r--r--	2026-07-17 21:17
module.info.el.auto	193 B	-rw-r--r--	2026-07-17 21:17
module.info.es	30 B	-rw-r--r--	2026-07-17 21:17
module.info.es.auto	76 B	-rw-r--r--	2026-07-17 21:17
module.info.eu	0 B	-rw-r--r--	2026-07-17 21:17
module.info.eu.auto	117 B	-rw-r--r--	2026-07-17 21:17
module.info.fa	0 B	-rw-r--r--	2026-07-17 21:17
module.info.fa.auto	187 B	-rw-r--r--	2026-07-17 21:17
module.info.fi	0 B	-rw-r--r--	2026-07-17 21:17
module.info.fi.auto	123 B	-rw-r--r--	2026-07-17 21:17
module.info.fr	31 B	-rw-r--r--	2026-07-17 21:17
module.info.fr.auto	82 B	-rw-r--r--	2026-07-17 21:17
module.info.hr	0 B	-rw-r--r--	2026-07-17 21:17
module.info.hr.auto	106 B	-rw-r--r--	2026-07-17 21:17
module.info.hu	29 B	-rw-r--r--	2026-07-17 21:17
module.info.hu.auto	95 B	-rw-r--r--	2026-07-17 21:17
module.info.it	28 B	-rw-r--r--	2026-07-17 21:17
module.info.it.auto	77 B	-rw-r--r--	2026-07-17 21:17
module.info.ja	0 B	-rw-r--r--	2026-07-17 21:17
module.info.ja.auto	164 B	-rw-r--r--	2026-07-17 21:17
module.info.ko	0 B	-rw-r--r--	2026-07-17 21:17
module.info.ko.auto	123 B	-rw-r--r--	2026-07-17 21:17
module.info.ms	85 B	-rw-r--r--	2026-07-17 21:17
module.info.ms.auto	13 B	-rw-r--r--	2026-07-17 21:17
module.info.nl	28 B	-rw-r--r--	2026-07-17 21:17
module.info.nl.auto	80 B	-rw-r--r--	2026-07-17 21:17
module.info.no	33 B	-rw-r--r--	2026-07-17 21:17
module.info.no.auto	80 B	-rw-r--r--	2026-07-17 21:17
module.info.pl	81 B	-rw-r--r--	2026-07-17 21:17
module.info.pl.auto	10 B	-rw-r--r--	2026-07-17 21:17
module.info.pt	0 B	-rw-r--r--	2026-07-17 21:17
module.info.pt.auto	102 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR	30 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR.auto	81 B	-rw-r--r--	2026-07-17 21:17
module.info.ru	44 B	-rw-r--r--	2026-07-17 21:17
module.info.ru.auto	132 B	-rw-r--r--	2026-07-17 21:17
module.info.sk	29 B	-rw-r--r--	2026-07-17 21:17
module.info.sk.auto	86 B	-rw-r--r--	2026-07-17 21:17
module.info.sv	30 B	-rw-r--r--	2026-07-17 21:17
module.info.sv.auto	80 B	-rw-r--r--	2026-07-17 21:17
module.info.tr	38 B	-rw-r--r--	2026-07-17 21:17
module.info.tr.auto	103 B	-rw-r--r--	2026-07-17 21:17
module.info.uk	0 B	-rw-r--r--	2026-07-17 21:17
module.info.uk.auto	162 B	-rw-r--r--	2026-07-17 21:17
module.info.zh	0 B	-rw-r--r--	2026-07-17 21:17
module.info.zh.auto	85 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW	24 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW.auto	70 B	-rw-r--r--	2026-07-17 21:17
negativeacl	7 B	-rw-r--r--	2026-07-17 21:17
openserver-lib.pl	1.05 KB	-rwxr-xr-x	2026-07-17 21:17
rbac-mapping	103 B	-rw-r--r--	2026-07-17 21:17
save_allow.cgi	695 B	-rwxr-xr-x	2026-07-17 21:22
solaris-lib.pl	1.35 KB	-rwxr-xr-x	2026-07-17 21:17
start.cgi	311 B	-rwxr-xr-x	2026-07-17 21:22
stop.cgi	306 B	-rwxr-xr-x	2026-07-17 21:22

Rename

#!/usr/bin/perl
# index.cgi
# List all at jobs and display a form for creating a new one
#
# F&AS : default parameters can be set 
#   ext_user : default user
#   ext_cmd  : default command
use strict;
use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
our (%access, %text, %in, %config);
our ($module_name, $remote_user);

require './at-lib.pl';
use POSIX;
&ui_print_header(undef, $text{'index_title'}, "", undef, 1, 1);
ReadParse();

# Check if at is installed
if (!&has_command("at")) {
	&ui_print_endpage(&text('index_noat', "<tt>at</tt>",
			        "../config.cgi?$module_name"));
	}

# Check if OS is supported
if (!defined(&list_atjobs)) {
	&ui_print_endpage(&text('index_nostyle', "../config.cgi?$module_name"));
	}

# Show list of existing jobs
my @jobs = &list_atjobs();
@jobs = grep { &can_edit_user(\%access, $_->{'user'}) } @jobs;
if (@jobs) {
	print &ui_form_start("delete_jobs.cgi", "post");
	@jobs = sort { $a->{'id'} <=> $b->{'id'} } @jobs;
	my @tds = ( "width=5", "nowrap" );
	my @links = ( &select_all_link("d"), &select_invert_link("d") );
	print &ui_links_row(\@links);
	print &ui_columns_start([
		"",
		$text{'index_id'},
		$text{'index_user'},
		$text{'index_exec'},
		$text{'index_created'},
		$text{'index_cmd'} ], 100, 0, \@tds);
	foreach my $j (@jobs) {
		my @cols;
		push(@cols, &ui_link("edit_job.cgi?id=".$j->{'id'}, $j->{'id'}) );
		push(@cols, &html_escape($j->{'user'}));
		my $date = localtime($j->{'date'});
		push(@cols, "<tt>$date</tt>");
		my $created = localtime($j->{'created'});
		push(@cols, "<tt>$created</tt>");
		push(@cols, join("<br>", split(/\n/,
				&html_escape($j->{'realcmd'}))));
		print &ui_checked_columns_row(\@cols, \@tds, "d", $j->{'id'});
		}
	print &ui_columns_end();
	print &ui_links_row(\@links);
	print &ui_form_end([ [ "delete", $text{'index_delete'} ] ]);
	print &ui_hr();
	}

# Show form for creating a new At job
print &ui_form_start("create_job.cgi");
print &ui_table_start($text{'index_header'}, undef, 2);

# User to run as
my $dir = "/";
my ($user, $usel);
if ($access{'mode'} == 1) {
	$usel = &ui_select("user", undef,
			   [ split(/\s+/, $access{'users'}) ]);
	}
elsif ($access{'mode'} == 3) {
	$usel = "<tt>$remote_user</tt>";
	print &ui_hidden("user", $remote_user);
	my @uinfo = getpwnam($remote_user);
	$dir = $uinfo[7];
	}
else {
	$usel = &ui_user_textbox("user", $in{'ext_user'});
	}
print &ui_table_row($text{'index_user'}, $usel);

# Run date
my @now = localtime(time());
print &ui_table_row($text{'index_date'},
	&ui_textbox("day", $now[3], 2)."/".
	&ui_select("month", $now[4],
		   [ map { [ $_, $text{"smonth_".($_+1)} ] } ( 0 .. 11 ) ])."/".
	&ui_textbox("year", $now[5]+1900, 4).
	&date_chooser_button("day", "month", "year"));

# Run time
print &ui_table_row($text{'index_time'},
	&ui_textbox("hour", undef, 2).":".&ui_textbox("min", "00", 2));

# Current date and time
print &ui_table_row($text{'index_cdatetime'}, &make_date(time()));

# Run in directory
print &ui_table_row($text{'index_dir'},
		    &ui_textbox("dir", $dir, 50));

# Commands to run
print &ui_table_row($text{'index_cmd'},
		    &ui_textarea("cmd", $in{'ext_cmd'}, 5, 50));

# Send email on completion
print &ui_table_row($text{'index_mail'},
		    &ui_yesno_radio("mail", 0));

print &ui_table_end();
print &ui_form_end([ [ undef, $text{'create'} ] ]);

if ($access{'allow'} && $config{'allow_file'}) {
	# Show form to manage allowed and denied users
	my @allow = &list_allowed();
	my @deny = &list_denied();
	print &ui_hr();
	print &ui_form_start("save_allow.cgi", "post");
	print &ui_table_start($text{'index_allow'}, undef, 2);
	print &ui_table_row($text{'index_amode'},
		    &ui_radio("amode", 
			@allow ? 1 : @deny ? 2 : 0,
			[ [ 0, $text{'index_amode0'} ],
			  [ 1, $text{'index_amode1'} ],
			  [ 2, $text{'index_amode2'} ] ]));
	print &ui_table_row("",
		    &ui_textarea("ausers", @allow ? join("\n", @allow) :
					  @deny ? join("\n", @deny) : undef,
				5, 50));
	print &ui_table_end();
	print &ui_form_end([ [ "save", $text{'save'} ] ]);
	}

# If there is an init script that runs an atd server, show status
my ($init, $r, $atboot) = &get_init_status();
if ($access{'stop'} && $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?
	my $atboot = &init::action_status($init);
	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'});