File Manager

X7ROOT File Manager

Current Path: /usr/libexec/webmin/at

usr / libexec / webmin / at /

📁 ..
📄 CHANGELOG(702 B)
📄 acl_security.pl(1.17 KB)
📄 at-lib.pl(2.89 KB)
📄 backup_config.pl(892 B)
📄 bootup.cgi(356 B)
📄 cgi_args.pl(332 B)
📄 config-coherent-linux(84 B)
📄 config-corel-linux(88 B)
📄 config-debian-linux(88 B)
📄 config-debian-linux-3.0-ALL(45 B)
📄 config-freebsd(37 B)
📄 config-generic-linux(88 B)
📄 config-gentoo-linux(97 B)
📄 config-irix(44 B)
📄 config-macos(35 B)
📄 config-mandrake-linux(84 B)
📄 config-msc-linux(84 B)
📄 config-netbsd(37 B)
📄 config-open-linux(89 B)
📄 config-openbsd(37 B)
📄 config-openmamba-linux(84 B)
📄 config-openserver(50 B)
📄 config-redhat-linux(84 B)
📄 config-slackware-linux(88 B)
📄 config-sol-linux(88 B)
📄 config-solaris(47 B)
📄 config-suse-linux(88 B)
📄 config-syno-linux(88 B)
📄 config-trustix-linux(84 B)
📄 config-turbo-linux(84 B)
📄 config-united-linux(88 B)
📄 config.info(219 B)
📄 config.info.bg(347 B)
📄 config.info.ca(264 B)
📄 config.info.cs(241 B)
📄 config.info.de(293 B)
📄 config.info.es(262 B)
📄 config.info.fr(273 B)
📄 config.info.hr(0 B)
📄 config.info.hu(257 B)
📄 config.info.it(251 B)
📄 config.info.ms(241 B)
📄 config.info.nl(242 B)
📄 config.info.no(239 B)
📄 config.info.pl(206 B)
📄 config.info.pt_BR(154 B)
📄 config.info.ru(333 B)
📄 config.info.sk(302 B)
📄 config.info.sv(0 B)
📄 config.info.tr(139 B)
📄 config.info.uk(164 B)
📄 config.info.zh_TW(136 B)
📄 create_job.cgi(1.07 KB)
📄 defaultacl(40 B)
📄 delete_job.cgi(1.31 KB)
📄 delete_jobs.cgi(613 B)
📄 edit_job.cgi(1.57 KB)
📄 freebsd-lib.pl(1.43 KB)
📁 images
📄 index.cgi(4.93 KB)
📄 install_check.pl(406 B)
📄 irix-lib.pl(1.25 KB)
📁 lang
📄 linux-lib.pl(1.76 KB)
📄 log_parser.pl(625 B)
📄 macos-lib.pl(1.25 KB)
📄 module.info(425 B)
📄 module.info.af(0 B)
📄 module.info.af.auto(111 B)
📄 module.info.ar(0 B)
📄 module.info.ar.auto(156 B)
📄 module.info.be(0 B)
📄 module.info.be.auto(162 B)
📄 module.info.bg(0 B)
📄 module.info.bg.auto(183 B)
📄 module.info.ca(84 B)
📄 module.info.ca.auto(11 B)
📄 module.info.cs(30 B)
📄 module.info.cs.auto(90 B)
📄 module.info.da(0 B)
📄 module.info.da.auto(110 B)
📄 module.info.de(102 B)
📄 module.info.de.auto(13 B)
📄 module.info.el(0 B)
📄 module.info.el.auto(193 B)
📄 module.info.es(30 B)
📄 module.info.es.auto(76 B)
📄 module.info.eu(0 B)
📄 module.info.eu.auto(117 B)
📄 module.info.fa(0 B)
📄 module.info.fa.auto(187 B)
📄 module.info.fi(0 B)
📄 module.info.fi.auto(123 B)
📄 module.info.fr(31 B)
📄 module.info.fr.auto(82 B)
📄 module.info.he(0 B)
📄 module.info.he.auto(152 B)
📄 module.info.hr(0 B)
📄 module.info.hr.auto(106 B)
📄 module.info.hu(29 B)
📄 module.info.hu.auto(95 B)
📄 module.info.it(28 B)
📄 module.info.it.auto(77 B)
📄 module.info.ja(0 B)
📄 module.info.ja.auto(164 B)
📄 module.info.ko(0 B)
📄 module.info.ko.auto(123 B)
📄 module.info.lt(0 B)
📄 module.info.lt.auto(114 B)
📄 module.info.lv(0 B)
📄 module.info.lv.auto(111 B)
📄 module.info.ms(85 B)
📄 module.info.ms.auto(13 B)
📄 module.info.mt(0 B)
📄 module.info.mt.auto(104 B)
📄 module.info.nl(28 B)
📄 module.info.nl.auto(80 B)
📄 module.info.no(33 B)
📄 module.info.no.auto(80 B)
📄 module.info.pl(90 B)
📄 module.info.pl.auto(10 B)
📄 module.info.pt(0 B)
📄 module.info.pt.auto(102 B)
📄 module.info.pt_BR(30 B)
📄 module.info.pt_BR.auto(81 B)
📄 module.info.ro(0 B)
📄 module.info.ro.auto(108 B)
📄 module.info.ru(44 B)
📄 module.info.ru.auto(132 B)
📄 module.info.sk(29 B)
📄 module.info.sk.auto(86 B)
📄 module.info.sl(0 B)
📄 module.info.sl.auto(99 B)
📄 module.info.sv(30 B)
📄 module.info.sv.auto(80 B)
📄 module.info.th(0 B)
📄 module.info.th.auto(244 B)
📄 module.info.tr(38 B)
📄 module.info.tr.auto(103 B)
📄 module.info.uk(0 B)
📄 module.info.uk.auto(162 B)
📄 module.info.ur(0 B)
📄 module.info.ur.auto(171 B)
📄 module.info.vi(0 B)
📄 module.info.vi.auto(139 B)
📄 module.info.zh(0 B)
📄 module.info.zh.auto(85 B)
📄 module.info.zh_TW(24 B)
📄 module.info.zh_TW.auto(70 B)
📄 negativeacl(7 B)
📄 openserver-lib.pl(1.02 KB)
📄 rbac-mapping(103 B)
📄 save_allow.cgi(695 B)
📄 solaris-lib.pl(1.35 KB)
📄 start.cgi(311 B)
📄 stop.cgi(306 B)

Editing: at-lib.pl

# at-lib.pl
# Functions for listing and creating at jobs

use strict;
use warnings "once";
no warnings "redefine";
our (%text, %config); 
our $remote_user;

BEGIN { push(@INC, ".."); };
use WebminCore;
&init_config();
our %access = &get_module_acl();

do "$config{'at_style'}-lib.pl";

# wrap_lines(text, width)
# Given a multi-line string, return an array of lines wrapped to
# the given width
sub wrap_lines
{
my @rv;
my $w = $_[1];
foreach my $rest (split(/\n/, $_[0])) {
	if ($rest =~ /\S/) {
		while(length($rest) > $w) {
			push(@rv, substr($rest, 0, $w));
			$rest = substr($rest, $w);
			}
		push(@rv, $rest);
		}
	else {
		# Empty line .. keep as it is
		push(@rv, $rest);
		}
	}
return @rv;
}

# can_edit_user(&access, user)
sub can_edit_user
{
my %umap;
map { $umap{$_}++; } split(/\s+/, $_[0]->{'users'});
if ($_[0]->{'mode'} == 1 && !$umap{$_[1]} ||
    $_[0]->{'mode'} == 2 && $umap{$_[1]}) { return 0; }
elsif ($_[0]->{'mode'} == 3) {
	return $remote_user eq $_[1];
	}
else {
	return 1;
	}
}

# list_allowed()
# Returns a list of all users in the cron allow file
sub list_allowed
{
local $_;
my @rv;
no strict "subs";
&open_readfile(ALLOW, $config{allow_file});
while(<ALLOW>) {
	next if (/^\s*#/);
	chop; push(@rv, $_) if (/\S/);
	}
close(ALLOW);
use strict "subs";
return @rv;
}

# list_denied()
# Return a list of users from the cron deny file
sub list_denied
{
local $_;
my @rv;
no strict "subs";
&open_readfile(DENY, $config{deny_file});
while(<DENY>) {
	next if (/^\s*#/);
	chop; push(@rv, $_) if (/\S/);
	}
close(DENY);
use strict "subs";
return @rv;
}

# save_allowed(user, user, ...)
# Save the list of allowed users
sub save_allowed
{
&lock_file($config{allow_file});
if (@_) {
	local($_);
	no strict "subs";
	&open_tempfile(ALLOW, ">$config{allow_file}");
	foreach my $u (@_) {
		&print_tempfile(ALLOW, $u,"\n");
		}
	&close_tempfile(ALLOW);
	use strict "subs";
	chmod(0444, $config{allow_file});
	}
else {
	&unlink_file($config{allow_file});
	}
&unlock_file($config{allow_file});
}

# save_denied(user, user, ...)
# Save the list of denied users
sub save_denied
{
&lock_file($config{deny_file});
if (@_ || !-r $config{'allow_file'}) {
	no strict "subs";
	&open_tempfile(DENY, ">$config{deny_file}");
	foreach my $u (@_) {
		&print_tempfile(DENY, $u,"\n");
		}
	&close_tempfile(DENY);
	use strict "subs";
	chmod(0444, $config{deny_file});
	}
else {
	&unlink_file($config{deny_file});
	}
&unlock_file($config{deny_file});
}

# can_use_at(user)
# Returns 1 if some user is allowed to use At jobs, based on the allow
# any deny files.
sub can_use_at
{
my ($user) = @_;
my (@allow, @deny, @denied);
if (!$config{'allow_file'}) {
	return 1;	# not supported by OS
	}
elsif (@allow = &list_allowed()) {
	return &indexof($user, @allow) >= 0;	# check allowed list
	}
elsif (@deny = &list_denied()) {
	return &indexof($user, @denied) < 0;	# check denied list
	}
else {
	return 1;	# if neither exists, fall back to allowing all
	}
}

X7ROOT File Manager

Editing: at-lib.pl

Upload File

Create Folder