Файловый менеджер - Редактировать - /usr/share/webmin/at/freebsd-lib.pl
Назад
# freebsd-lib.pl use strict; use warnings; no warnings 'redefine'; no warnings 'uninitialized'; no warnings "redefine"; our (%config); sub list_atjobs { my @rv; opendir(my $DIR, $config{'at_dir'}) || return (); while(my $f = readdir($DIR)) { my $p = "$config{'at_dir'}/$f"; if ($f =~ /^c(\S{5})(\S+)$/) { my @st = stat($p); my $job = { 'id' => hex($1), 'date' => hex($2) * 60, 'user' => scalar(getpwuid($st[4])), 'created' => $st[9] }; open(my $FILE, "<".$p); while(<$FILE>) { $job->{'cmd'} .= $_; } close($FILE); $job->{'realcmd'} = $job->{'cmd'}; $job->{'realcmd'} =~ s/^[\000-\177]+cd\s+(\S+)\s+\|\|\s+{\n.*\n.*\n.*\n//; push(@rv, $job); } } closedir($DIR); return @rv; } # create_atjob(user, time, commands, directory, send-mail) sub create_atjob { my @tm = localtime($_[1]); my $date = sprintf "%2.2d:%2.2d %d.%d.%d", $tm[2], $tm[1], $tm[3], $tm[4]+1, $tm[5]+1900; my $mailflag = $_[4] ? "-m" : ""; my $cmd = "cd ".quotemeta($_[3])." ; at $mailflag $date"; my @uinfo = getpwnam($_[0]); if ($uinfo[2] != $<) { # Only SU if we are not already the user $cmd = &command_as_user($_[0], 0, $cmd); } no strict "subs"; &open_execute_command(AT, "$cmd >/dev/null 2>&1", 0); print AT $_[2]; close(AT); use strict "subs"; &additional_log('exec', undef, "su \"$_[0]\" -c \"cd $_[3] ; at $date\""); } # delete_atjob(id) sub delete_atjob { &system_logged("atrm ".quotemeta($_[0])." >/dev/null 2>&1"); }
| ver. 1.4 |
Github
|
.
| PHP 7.4.3-4ubuntu2.28 | Генерация страницы: 0.02 |
proxy
|
phpinfo
|
Настройка