Server IP : 195.201.23.43 / Your IP : 3.141.40.192 Web Server : Apache System : Linux webserver2.vercom.be 5.4.0-192-generic #212-Ubuntu SMP Fri Jul 5 09:47:39 UTC 2024 x86_64 User : kdecoratie ( 1041) PHP Version : 7.1.33-63+ubuntu20.04.1+deb.sury.org+1 Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_get_handler,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,pcntl_async_signals, MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : ON | Pkexec : ON Directory : /usr/share/webmin/syslog/ |
Upload File : |
require 'syslog-lib.pl'; # acl_security_form(&options) # Output HTML for editing security options for the syslog module sub acl_security_form { # Can edit syslog settings print &ui_table_row($text{'acl_noedit'}, &ui_yesno_radio("noedit", int($_[0]->{'noedit'}))); # Can enter arbitrary filename print &ui_table_row($text{'acl_any'}, &ui_yesno_radio("any", int($_[0]->{'any'}))); # Can view syslog logs and logs from other modules print &ui_table_row($text{'acl_syslog'}, &ui_yesno_radio("syslog", int($_[0]->{'syslog'}))); print &ui_table_row($text{'acl_others'}, &ui_yesno_radio("others", int($_[0]->{'others'}))); # Allowed directories print &ui_table_row($text{'acl_logs'}, &ui_radio("logs_def", $_[0]->{'logs'} ? 0 : 1, [ [ 1, $text{'acl_all'} ], [ 0, $text{'acl_sel'} ] ]). "<br>\n". &ui_textarea("logs", join("\n", split(/\t+/, $_[0]->{'logs'})), 5, 50), 3); # Extra per-user log files print &ui_table_row($text{'acl_extra'}, &ui_textarea("extras", join("\n", split(/\t+/, $_[0]->{'extras'})), 5, 50), 3); } # acl_security_save(&options) # Parse the form for security options for the syslog module sub acl_security_save { $_[0]->{'noedit'} = $in{'noedit'}; $_[0]->{'any'} = $in{'any'}; $_[0]->{'syslog'} = $in{'syslog'}; $_[0]->{'others'} = $in{'others'}; $in{'logs'} =~ s/\r//g; $_[0]->{'logs'} = $in{'logs_def'} ? undef : join("\t", split(/\n/, $in{'logs'})); $_[0]->{'extras'} = join("\t", split(/\n/, $in{'extras'})); }Private