Server IP : 195.201.23.43 / Your IP : 18.117.120.35 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/sarg/ |
Upload File : |
#!/usr/bin/perl # Save options for report colour styling require './sarg-lib.pl'; &ReadParse(); $conf = &get_config(); $config_prefix = "style_"; &error_setup($text{'style_err'}); &lock_sarg_files(); if (&get_sarg_version() < 2.3) { &save_language($conf, "language"); &save_language($conf, "charset"); } &save_opt_textbox($conf, "title", \&check_title); &save_opt_textbox($conf, "title_color", \&check_colour); &save_opt_textbox($conf, "font_face", \&check_font); &save_opt_textbox($conf, "header_color", \&check_colour); &save_opt_textbox($conf, "header_bgcolor", \&check_colour); &save_opt_textbox($conf, "header_font_size", \&check_fontsize); &save_opt_textbox($conf, "text_color", \&check_colour); &save_opt_textbox($conf, "text_bgcolor", \&check_colour); &save_opt_textbox($conf, "logo_image"); &save_opt_textbox($conf, "image_size", \&check_size); &save_opt_textbox($conf, "logo_text"); &save_opt_textbox($conf, "logo_text_color", \&check_colour); &save_opt_textbox($conf, "background_image"); &save_opt_textbox($conf, "background_color", \&check_colour); &flush_file_lines(); &unlock_sarg_files(); &webmin_log("style"); &redirect(""); sub check_title { return $_[0] =~ /\S/ ? undef : $text{'style_etitle'}; } sub check_colour { return $_[0] =~ /^\S+$/ ? undef : $text{'style_ecolour'}; } sub check_font { return $_[0] =~ /^\S+$/ ? undef : $text{'style_efont'}; } sub check_fontsize { return $_[0] =~ /^\-?\d+$/ ? undef : $text{'style_efontsize'}; } sub check_size { return $_[0] =~ /^\d+\s+\d+$/ ? undef : $text{'style_esize'}; }Private