JFIFxxC      C  " }!1AQa"q2#BR$3br %&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz w!1AQaq"2B #3Rbr# # Authentic Theme (https://github.com/authentic-theme/authentic-theme) # Copyright Ilia Rostovtsev # Licensed under MIT (https://github.com/authentic-theme/authentic-theme/blob/master/LICENSE) # use strict; use lib ($ENV{'LIBROOT'} . "/vendor_perl"); use File::Grep qw( fgrep fmap fdo ); use Encode qw( encode decode ); use Time::Local; use File::Find; BEGIN {push(@INC, "..");} use WebminCore; our ( %in, %text, %config, %gconfig, %tconfig, %gaccess, $current_lang, $title, $base_remote_user, $remote_user, $theme_root_directory, $current_theme, $root_directory, $config_directory, $var_directory, %theme_text, %module_text_full, %theme_config, $theme_info, $get_user_level, $theme_webprefix, $http_x_url, $has_virtualmin, $has_cloudmin, $has_usermin, $has_usermin_version, $has_usermin_root_dir, $has_usermin_conf_dir, $has_usermin_var_dir); init_type(); init_config(); do($ENV{'THEME_ROOT'} . "/authentic-init.pl"); sub authentic { init(); header([$title]); content(); footer(); } sub get_sysinfo_warning { my ($info_ref) = @_; my $returned_data = ''; # Show notifications first if (ref($info_ref)) { @{$info_ref} = sort {($b->{'type'} eq 'warning') <=> ($a->{'type'} eq 'warning')} @{$info_ref}; $returned_data .= '
'; foreach my $info (@{$info_ref}) { if ($info->{'type'} eq 'warning') { my $def_level = $info->{'level'} || 'warn'; my $info_data = $info->{'warning'}; # Customize hardcode types if ($info_data && $info_data =~ /\/fix_os\.cgi/m) { $def_level = 'info'; } if (ref($info_data) eq 'HASH') { $returned_data .= $info_data->{'alert'}; } else { $returned_data .= replace("ui_submit ui_form_end_submit", "btn-tiny ui_submit ui_form_end_submit", &ui_alert_box($info_data, $def_level, undef, 1, $info->{'desc'})); } } } } return $returned_data; } sub get_extended_sysinfo { my ($info_ref, $x) = @_; my $returned_sysinfo = ''; if ($info_ref) { $returned_sysinfo .= '
'; foreach my $info (@{$info_ref}) { if ($info->{'id'} ne 'notifications' && $info->{'type'} ne 'link' && $info->{'module'} ne 'mailbox' && $info->{'module'} ne 'system-status' && $info->{'type'} ne 'warning' && $a->{'type'} ne 'warning' && $b->{'type'} ne 'warning') { our $charts_not_supported = 'no'; if ($info->{'type'} eq 'chart') { foreach my $t (@{ $info->{'chart'} }) { if ($t->{'chart'}[0] < 0 || $t->{'chart'}[1] < 0) { $charts_not_supported = 'yes'; } } } if ($theme_config{'settings_sysinfo_hidden_panels_user'} =~ /\'$info->{'id'}\'/) { next; } if ($info->{'id'} && $charts_not_supported eq 'no') { my $open = ($info->{'open'} || $info->{'id'} eq 'domain') ? ' in' : ($theme_config{'settings_sysinfo_expand_all_accordions'} eq 'true' ? ' in' : ''); my $formatted_title = ( $info->{'id'} . '-' . $info->{'module'} eq 'status_services-status' ? $theme_text{'theme_xhred_sysinfo_system_monitors'} : ($info->{'id'} . '-' . $info->{'module'} eq 'sysinfo-virtual-server' ? $theme_text{'theme_xhred_sysinfo_software_versions'} : ($info->{'id'} . '-' . $info->{'module'} eq 'status-virtual-server' ? $theme_text{'theme_xhred_sysinfo_server_status'} : ($info->{'id'} . '-' . $info->{'module'} eq 'quota-virtual-server' ? $theme_text{'theme_xhred_sysinfo_disk_quotas'} : ($info->{'id'} . '-' . $info->{'module'} eq 'bw-virtual-server' ? $theme_text{'theme_xhred_sysinfo_bandwidth_quotas'} : ($info->{'id'} . '-' . $info->{'module'} eq 'updates-virtual-server' ? $theme_text{'theme_xhred_sysinfo_vm_package_updates'} : ($info->{'id'} . '-' . $info->{'module'} eq 'acl_logins-acl' ? $theme_text{'theme_xhred_sysinfo_recent_logins'} : ($info->{'desc'})))))))); $returned_sysinfo .= '
'; if ($info->{'id'} ne 'plugin_virtualmin-notes' && $info->{'id'} ne 'acl_logins') { $returned_sysinfo .= '
'; } if ($info->{'type'} ne 'html') { $returned_sysinfo .= ''; } my $status_icons_tpl = { _fa => 'fa fa-fw fa', _fa2 => 'fa2 fa-fw fa2', _fa115x => 'fa-1_15x', _falg => 'fa-lg', _text_succ => 'text-success', _text_warn => 'text-warning text-warning-brighter', _text_dang => 'text-danger', _vert_algn_md => 'vertical-align-middle', }; my $status_icons = { up => "{'_fa'}-check $status_icons_tpl->{'_falg'} $status_icons_tpl->{'_text_succ'}\">", stop => "{'_fa'}-times-circle $status_icons_tpl->{'_falg'} $status_icons_tpl->{'_text_warn'}\">", down => "{'_fa'}-minus-circle $status_icons_tpl->{'_falg'} $status_icons_tpl->{'_text_dang'}\">", start => "{'_fa'}-play text-success $status_icons_tpl->{'_falg'}\">", reload => "{'_fa'}-refresh text-info $status_icons_tpl->{'_falg'}\">", quest => "{'_fa'}-question-circle $status_icons_tpl->{'_fa115x'}\">", not => "{'_fa2'}-not-interested $status_icons_tpl->{'_fa115x'}\">", skip => "{'_fa2'}-minus $status_icons_tpl->{'_fa115x'} $status_icons_tpl->{'_vert_algn_md'}\">", timed => "{'_fa'}-clock $status_icons_tpl->{'_fa115x'} $status_icons_tpl->{'_vert_algn_md'} $status_icons_tpl->{'_text_warn'}\">", webmin => "{'_fa'}-webmin $status_icons_tpl->{'_fa115x'} $status_icons_tpl->{'_vert_algn_md'} $status_icons_tpl->{'_text_warn'}\">", }; if ($info->{'id'} eq 'status_services') { $info->{"html"} =~ s//$status_icons->{$1}/g; } if ($info->{'type'} eq 'table' && ( $info->{'module'} ne 'system-status' && $info->{'type'} ne 'link' )) { foreach my $t (@{ $info->{'table'} }) { $t->{"desc"} =~ s//$status_icons->{$1}/g; $t->{"value"} =~ s//$status_icons->{$1}/g; $returned_sysinfo .= ''; } } elsif ($info->{'type'} eq 'chart') { $returned_sysinfo .= print_charts($info, $x); } elsif ($info->{'type'} eq 'html') { $info->{'html'} =~ s/]*>.*?<\/script>//igs; $returned_sysinfo .= $info->{'html'}; } if ($info->{'id'} ne 'plugin_virtualmin-notes' && $info->{'id'} ne 'acl_logins') { my $cltbody; if ($info->{'type'} ne 'html') { $cltbody = "
' . $t->{"desc"} . ' ' . $t->{"value"} . '
"; } $returned_sysinfo .= "$cltbody
"; } $returned_sysinfo .= '
'; } } } if (&webmin_user_is_admin() && $theme_config{'settings_sysinfo_hidden_panels_user'} !~ /\'live_stats\'/ && $theme_config{'settings_sysinfo_real_time_status'} ne '0' && (acl_system_status('cpu') || acl_system_status('mem') || acl_system_status('load'))) { my $data = '
' . $theme_text{'theme_xhred_datatable_sloadingrecords'} . '
'; $returned_sysinfo .= print_panel( 1, 'live_stats', "$theme_text{'theme_dashboard_accordion_live_stats'}", $data, 1, 'A', 'live_stats'); } $returned_sysinfo .= '




'; return $returned_sysinfo; } } sub print_charts { my ($info, $x) = @_; my $returned_sysinfo = ''; foreach my $t (@{ $info->{'chart'} }) { my $unlimited = 0; my $percent_width_1 = int($t->{'chart'}[1]); my $percent_width_2 = int($t->{'chart'}[2]); my $percent_width_sum = $percent_width_1 + $percent_width_2; my $is_2 = defined($t->{'chart'}[2]); my $percent_1 = ' ' . $percent_width_1 . '%'; my $percent_2 = ' ' . $percent_width_2 . '%'; my $dd = $theme_text{'right_out'}; $dd =~ s/\s| |\$1|\$2//g; if ($t->{"value"} !~ /\Q$dd/) { $percent_1 = ' ' . $theme_text{'right_unlimited'}; $percent_width_1 = '0'; $unlimited = 1; } my $color; if ($percent_width_sum <= 49) { $color = 'green'; } elsif ($percent_width_sum <= 90) { $color = 'yellow'; } else { $color = 'red'; } if ($unlimited || $percent_width_sum == 0) { $color = 'gray'; } my $bar; if ($is_2 && !$unlimited && $percent_width_2) { $bar = '{'id'} . '-' . $info->{'module'} . $x . '-collapse', '(') . ' class="bar ' . $color . '" style="width:' . $percent_width_1 . '%;">' . $percent_1 . ''; $bar .= '{'id'} . '-' . $info->{'module'} . $x . '-collapse', '(') . ' class="bar ' . $color . '" style="width:' . $percent_width_2 . '%;">' . $percent_2 . ''; } else { $bar = '{'id'} . '-' . $info->{'module'} . $x . '-collapse', '(') : undef ) . ' class="bar ' . $color . '" style="width:' . $percent_width_1 . '%;">' . $percent_1 . ''; } $returned_sysinfo .= ' ' . replace('edit_domain', 'summary_domain', $t->{"desc"}) . '
' . $bar . '
' . $t->{"value"} . ' '; } return $returned_sysinfo; } sub print_easypie_charts { my ($cpu_percent, $mem_percent, $virt_percent, $disk_percent) = @_; if (defined($cpu_percent) || defined($mem_percent) || defined($virt_percent) || defined($disk_percent)) { print '
' . "\n"; my $columns = '3'; # CPU usage defined($cpu_percent) && print_easypie_chart($columns, ( ($cpu_percent || $cpu_percent eq "0") ? $cpu_percent : 'NaN' ), $theme_text{'body_cp'}, 'sysinfo_cpu_percent'); # Memory allocation defined($mem_percent) && print_easypie_chart($columns, ( ($mem_percent || $mem_percent eq "0") ? $mem_percent : 'NaN' ), ( ($current_lang eq 'ru' || $current_lang eq 'ru.UTF-8') ? $theme_text{'body_real2'} : $theme_text{'body_real'} ), 'sysinfo_mem_percent'); defined($virt_percent) && print_easypie_chart($columns, (($virt_percent || $virt_percent eq "0") ? $virt_percent : 'NaN'), ( ($current_lang eq 'ru' || $current_lang eq 'ru.UTF-8') ? $theme_text{'body_virt2'} : $theme_text{'body_virt'} ), 'sysinfo_virt_percent'); # Disk usage defined($disk_percent) && print_easypie_chart($columns, ( ($disk_percent || $disk_percent eq "0") ? $disk_percent : 'NaN' ), ( ($current_lang eq 'ru' || $current_lang eq 'ru.UTF-8') ? $theme_text{'body_disk2'} : $theme_text{'body_disk'} ), 'sysinfo_disk_percent'); print '
' . "\n"; } } sub print_sysstats_panel_end { print ''; } sub print_sysstats_panel_start { my ($info_ref) = @_; my $recollect; my $event_hold_modifer_icon = sub { my $alt_key = 'Alt'; my $ctrl_key = 'Ctrl'; my $meta_key = 'Meta'; if (get_env('http_user_agent') =~ /macintosh/i) { $alt_key = '⌥'; $ctrl_key = '⌃'; $meta_key = '⌘'; } return $theme_config{'settings_hotkey_toggle_hold_modifier'} eq 'ctrlKey' ? $ctrl_key : $theme_config{'settings_hotkey_toggle_hold_modifier'} eq 'metaKey' ? $meta_key : $theme_config{'settings_hotkey_toggle_hold_modifier'} eq 'shiftKey' ? '⇧' : $alt_key; }; if ($info_ref) { my @recollect = @{$info_ref}; @recollect = grep {$_->{'id'} =~ /recollect/} @recollect; if (@recollect) { $recollect = ''; } } my $copy_to_clipboard = sub { my ($type) = @_; return ''; }; my $submit_support_ticket = sub { my $vs_license = check_pro_package('vm'); return $vs_license ? ( '' ) : undef; }; my %virtualmin_config = foreign_config('virtual-server'); my %cloudmin_config = foreign_config('server-manager'); print '
' . "\n"; print '
' . "\n"; my $debug_mode = theme_debug_mode() ? '  ' : ""; print '

' . ( $recollect . '' . ( $get_user_level eq '3' ? (&$copy_to_clipboard('account') . $theme_text{'body_header1'}) : (&$copy_to_clipboard('sysinfo') . $theme_text{'body_header0'}) ) . (1 == 1 ? &$submit_support_ticket() : undef) . '') . ( $cloudmin_config{'docs_link'} && foreign_available("server-manager") ? ' ' . $cloudmin_config{'docs_text'} . '' : undef ) . ' ' . ($virtualmin_config{'docs_link'} && foreign_available("virtual-server") ? ' ' . $virtualmin_config{'docs_text'} . '' : undef ) . $debug_mode . '

' . "\n"; print '
'; print '
' . "\n"; } sub print_sysstats_table { my ($data, $quota, $prod) = @_; if ((defined($data) && scalar(@{$data})) || (defined($quota) && scalar(@{$quota}))) { print '' . "\n"; if (defined($data) && scalar(@{$data})) { foreach my $t (@{ @{$data}[0]->{'table'} }) { my $insert = ($t->{"desc"} =~ /\Q$prod/i); if ($insert && $get_user_level ne '3') { print_table_row($theme_text{'body_webmin'}, get_webmin_version()); } print_table_row($t->{"desc"}, $t->{"value"}); if ($insert) { print_table_row($theme_text{'theme_version'}, get_theme_user_link()); } } } if (defined($quota) && scalar(@{$quota})) { print_table_row(@{$quota}[0]->{'desc'}, @{$quota}[0]->{"chart"}->[0]->{'value'}); } print '
' . "\n"; } } sub print_easypie_chart { my ($columns, $percent, $label, $id) = @_; print '
' . "\n"; print '
' . $label . '
'; print '
' . "\n"; } sub theme_list_combined_system_info { my $skipmods; my $nocache = post_has('xhr-info') || post_has('no-cache') || string_contains(get_env('query_string'), 'no-cache'); my $is_webmin = get_product_name() eq 'webmin'; my @opts = ("combined-system-info-$remote_user", $theme_config{'settings_sysinfo_cache_timeout'}, 1); if (!$nocache && $is_webmin) { $skipmods = ['package-updates', 'webmin', 'cpuio']; my $combined_system_info_cache = theme_cached($opts[0], undef, undef, $opts[1]); return @{$combined_system_info_cache} if ($combined_system_info_cache); } my @combined_system_info = &list_combined_system_info( { 'qshow' => 1, 'max' => $theme_config{'settings_sysinfo_max_servers'} }, undef, $skipmods); if ($nocache && $is_webmin) { theme_cached($opts[0], \@combined_system_info, undef, $opts[2]); } return @combined_system_info; } sub show_sysinfo_section { my ($s) = @_; my %access = &get_module_acl(undef, 'system-status'); $access{'show'} ||= ""; if ($access{'show'} eq '*') { return 1; } else { return &indexof($s, split(/\s+/, $access{'show'})) >= 0; } } sub get_sysinfo_vars { my ($info_ref) = @_; my ($info, $info_arr, @info); # Ask for collected info if (@_) { @info = @{$info_ref}; } else { @info = theme_list_combined_system_info(); } @info = grep {$_->{'id'} eq 'sysinfo'} @info; # Define used vars my ($cpu_percent, $mem_percent, $virt_percent, $disk_percent, $host, $os, $webmin_version, $virtualmin_version, $cloudmin_version, $authentic_theme_version, $local_time, $kernel_arch, $cpu_type, $cpu_temperature, $cpu_fans, $hdd_temperature, $uptime, $running_proc, $load, $real_memory, $virtual_memory, $disk_space, $package_message, $csf_title, $csf_data, $csf_remote_version, $authentic_remote_version, $local_motd); if (@info) { $info_arr = @info[0]->{'raw'}; $info = @$info_arr[0]; } else { return; } if (!@$info_arr) { return; } # Require memory information my @m; if ($info->{'mem'}) { @m = @{ $info->{'mem'} }; } # Easypie charts numbers if (show_sysinfo_section('cpu') && $info->{'cpu'}) { my @c = @{ $info->{'cpu'} }; $cpu_percent = $c[0] + $c[1] + $c[3]; $cpu_percent = int($cpu_percent); } if (show_sysinfo_section('mem')) { if (@m && $m[0]) { $mem_percent = ($m[0] - $m[1]) / $m[0] * 100; $mem_percent = int($mem_percent); } if (@m && $m[2]) { $virt_percent = ($m[2] - $m[3]) / $m[2] * 100; $virt_percent = int($virt_percent); } } if (show_sysinfo_section('disk')) { if ($info->{'disk_total'}) { my ($total, $free) = ($info->{'disk_total'}, $info->{'disk_free'}); $disk_percent = ($total - $free) / $total * 100; $disk_percent = int($disk_percent); } } if (show_sysinfo_section('host')) { # Operation system my @ips_all = &to_ipaddress(get_system_hostname()); my (@ips_noloop, @ips_noloc, $ip_detect); if (@ips_all) { @ips_noloop = grep { $_ !~ /^127\./} @ips_all; @ips_noloc = grep { $_ !~ /^(10\.|192\.168\.)/} @ips_noloop; $ip_detect = @ips_noloc ? $ips_noloc[0] : @ips_noloop ? $ips_noloop[0] : $ips_all[0]; } my $ip = $info && $info->{'ips'} ? $info->{'ips'}->[0]->[0] : $ip_detect; $ip = " ($ip)" if ($ip); $host = &get_display_hostname() . $ip; if (&foreign_available("net")) { $host = '' . $host . ''; } # Operating System Info if ($gconfig{'os_version'} eq '*') { $os = $gconfig{'real_os_type'}; } else { $os = $gconfig{'real_os_type'} . ' ' . $gconfig{'real_os_version'}; } # EOL info my $eol = $gconfig{'os_eol_expired'} || $gconfig{'os_eol_expiring'}; if ($eol) { $os .= " $eol"; } my $is_hidden_link = (!&webmin_user_is_admin() ? ' hidden-force ' : undef); # Webmin version my $wmv = get_webmin_version(); my $wmvrel = get_webmin_version_release(); $wmv .= "-" . $wmvrel if ($wmvrel && $wmvrel > 1); $webmin_version = product_version_update($wmv, 'w') . ' '; # Virtualmin version if ($has_virtualmin) { &foreign_require("virtual-server"); if (defined(&virtual_server::get_module_version_and_type)) { my ($major, $minor, $build) = &virtual_server::get_module_version_and_type(1); my ($vs_license, $__virtual_server_version); $vs_license = check_pro_package('vm'); $__virtual_server_version = ("$major.$minor".(defined($build) ? ".$build" : '').""); $virtualmin_version = ( product_version_update($__virtual_server_version, 'v') . " " . ( $vs_license eq '0' ? '' : '' . ' Pro ' : '
') ) . ($vs_license eq '1' ? '' : ' ') . '' . '' ); } else { $virtualmin_version = $virtual_server::module_info{'version'}; } } # Cloudmin version if ($has_cloudmin) { my ($cm_licensed, $cm_version, $cm_type, $cm_type_g, $cm_type_p, $cm_version_o); $cm_licensed = check_pro_package('cm'); if (defined(&server_manager::get_module_version_and_type)) { ($cm_version, $cm_type) = &server_manager::get_module_version_and_type(); } else { $cm_version_o = (defined(@$info_arr[3]) ? @$info_arr[3]->{'cm_version'} : (defined(@$info_arr[2]) ? @$info_arr[2]->{'cm_version'} : undef)); $cm_version_o =~ s/(\.[a-z]+)$//igs; } $cm_type_g = $cm_version ? $cm_type : ''; $cm_type_p = $cm_version ? $cm_type : 'Pro'; $cloudmin_version = ( product_version_update($cm_version || $cm_version_o, 'c') . " " . ( $cm_licensed eq '0' ? $cm_type_g : ' ' . $cm_type_p . ' ' : '
' ) . '' )); } # Fetch theme version if (&webmin_user_is_admin() && $theme_config{'settings_upgrade_allowed'} eq 'true') { # Theme version/update my $authentic_remote_data = theme_remote_version(1); my $authentic_installed_version = theme_version('version'); my ($authentic_installed_version_parsed) = $authentic_installed_version =~ /([0-9\.]+)/; my $authentic_installed_version_devel = $authentic_installed_version =~ /alpha|beta|RC/; my $incompatible = theme_update_incompatible($authentic_remote_data); ($authentic_remote_version) = $authentic_remote_data =~ /^version=(.*)/gm; my $authentic_remote_version_local = $authentic_remote_version; if ($incompatible && $authentic_remote_version_local !~ /alpha|beta|RC/) { $authentic_remote_version = $authentic_installed_version; } if ( $theme_config{'settings_sysinfo_theme_updates'} eq 'true' && ( (!$incompatible || ($incompatible && $authentic_remote_version_local =~ /alpha|beta|RC/)) && ( (($authentic_remote_version_local !~ /alpha|beta|RC/ && $authentic_installed_version_devel) && lc($authentic_remote_version_local) ge $authentic_installed_version_parsed ) || lc($authentic_remote_version_local) gt lc($authentic_installed_version)) )) { my $authentic_remote_beta = $authentic_remote_version_local =~ /alpha|beta|RC/; my $authentic_remote_alpha_beta = $authentic_remote_version_local =~ /alpha|beta/; my $authentic_remote_version_tag = $authentic_remote_version_local; my @_remote_version_tag = split /-/, $authentic_remote_version_tag; $authentic_remote_version_tag = $_remote_version_tag[0]; $authentic_theme_version = '' . $theme_text{'theme_name'} . ' ' . $authentic_installed_version . '. ' . ($authentic_remote_beta ? $theme_text{'theme_git_patch_available'} : $theme_text{'theme_update_available'}) . ' ' . $authentic_remote_version_local . '   
' . ' ' . $theme_text{'theme_update'} . '' . ' ' . $theme_text{'theme_changelog'} . '' . ' ' . $theme_text{'theme_download'} . '' . ' ' . $theme_text{'theme_xhred_global_configuration'} . '' . '
'; } else { $authentic_theme_version = get_theme_user_link(); } } else { $authentic_theme_version = get_theme_user_link(); } # Load ConfigServer Security & Firewall lib if available ($csf_title, $csf_data, $csf_remote_version) = lib_csf_control('strings'); #System time my ($_time); $_time = time(); $local_time = localtime($_time); my $no_theme_date_time = $theme_config{'settings_theme_make_date'} eq 'false'; if (foreign_available("time")) { if ($no_theme_date_time) { $local_time = '' . $local_time . ''; } else { $local_time = '' . $local_time . ''; } } else { if ($no_theme_date_time) { $local_time = '' . $local_time . ''; } else { $local_time = '' . $local_time . ''; } } } if (show_sysinfo_section('cpu')) { # Kernel and arch if ($info->{'kernel'}) { $kernel_arch = &theme_text('body_kernelon', $info->{'kernel'}->{'os'}, $info->{'kernel'}->{'version'}, $info->{'kernel'}->{'arch'}); } # CPU Type and cores my @c; if ($info->{'load'}) { @c = @{ $info->{'load'} }; if (@c > 3) { $cpu_type = &theme_text($c[7] == 1 ? 'body_cputype1' : 'body_cputype', @c); } } } if (show_sysinfo_section('temp')) { # Temperatures if ($info->{'cputemps'}) { my $cpucores = scalar(@{ $info->{'cputemps'} }); foreach my $t (@{ $info->{'cputemps'} }) { $cpu_temperature .= ' ' . ($cpucores > 1 ? ($theme_text{'theme_global_core'} . ' ' . (int($t->{'core'}) + 1) . ': ') : '') . ( get_module_config_data('system-status', 'collect_units') ? (int(($t->{'temp'} * 9.0 / 5) + 32) . "°F") : (int($t->{'temp'}) . '°C ') ) . ''; } if ($info->{'cpufans'}) { my $cpufans = scalar(@{ $info->{'cpufans'} }); foreach my $t (@{ $info->{'cpufans'} }) { $cpu_fans .= ' ' . ($cpufans > 1 ? ($theme_text{'theme_global_fan'} . ' ' . $t->{'fan'} . ': ') : '') . "$t->{'rpm'} $theme_text{'body_cpufan_rpm'}" . ''; } } } if ($info->{'drivetemps'}) { foreach my $t (@{ $info->{'drivetemps'} }) { my $short = $t->{'device'}; $short =~ s/^\/dev\///; my $emsg; if ($t->{'errors'}) { $emsg .= '  ' . &theme_text('body_driveerr', $t->{'errors'}) . ""; } elsif ($t->{'failed'}) { $emsg .= '  ' . &theme_text('body_drivefailed') . ''; } $hdd_temperature .= '' . $short . ': ' . ( get_module_config_data('system-status', 'collect_units') ? (int(($t->{'temp'} * 9.0 / 5) + 32) . "°F") : (int($t->{'temp'}) . '°C ') ) . $emsg . ''; } } } if (show_sysinfo_section('load')) { # System uptime if (foreign_check("proc") && foreign_available("proc")) { foreign_require("proc"); my @system_uptime = defined(&proc::get_system_uptime) ? proc::get_system_uptime() : (); if (scalar(@system_uptime)) { my ($day, $hour, $minute) = @system_uptime; my $uptime_text; if ($day) { $uptime_text = &theme_text('body_updays', $day, $hour, $minute); } elsif ($minute && $hour) { $uptime_text = &theme_text('body_uphours', $hour, $minute); } elsif ($minute) { $uptime_text = &theme_text('body_upmins', $minute); } # Trim System uptime Ses for Enlgish lang only if ($current_lang eq 'en') { if ($day == 1) { $uptime_text =~ s/ys/y/; } if ($hour == 1) { $uptime_text =~ s/rs/r/; } if ($minute == 1) { $uptime_text =~ s/es/e/; } } $uptime = !$uptime_text ? undef : (foreign_available("init") ? '' . $uptime_text . '' : $uptime_text); } # Running processes my @procs = proc::list_processes(); $running_proc = scalar(@procs); $running_proc = '' . $running_proc . ''; } # Load averages if ($info->{'load'}) { my @c = @{ $info->{'load'} }; if (@c) { $load = &theme_text('body_load', @c); } } } if (show_sysinfo_section('mem')) { # Memory if (@m) { # Real memory details if ($m[0] && $m[1]) { $real_memory = &theme_text($m[4] ? 'body_used_cached_total' : 'body_used', nice_size(($m[0]) * 1024, -1), nice_size(($m[0] - $m[1]) * 1024, -1), ($m[4] ? nice_size($m[4] * 1024, -1) : undef)); } # Virtual memory details if ($m[2] > 0) { $virtual_memory = &theme_text('body_used', nice_size(($m[2]) * 1024, -1), nice_size(($m[2] - $m[3]) * 1024, -1)); } if (get_text_ltr()) { $real_memory = reverse_string($real_memory, "/"); if ($virtual_memory) { $virtual_memory = reverse_string($virtual_memory, "/"); } } } } if (show_sysinfo_section('disk')) { # Local disk space if ($info->{'disk_total'} && $info->{'disk_total'}) { $disk_space = &theme_text('body_used_and_free', nice_size($info->{'disk_total'}, -1), nice_size($info->{'disk_free'}, -1), nice_size($info->{'disk_total'} - $info->{'disk_free'}, -1)); if ($disk_space && get_text_ltr()) { $disk_space = reverse_string($disk_space, "/"); } } } if (show_sysinfo_section('poss')) { # Package updates if (&foreign_available("package-updates") && $info->{'poss'}) { my $msg; my @poss = @{ $info->{'poss'} }; my @secs = grep {$_->{'security'}} @poss; my $poss = scalar(@poss); my $secs = scalar(@secs); if ($poss && $secs) { $msg = &theme_text( ($poss gt 1 && $secs gt 1 ? 'body_upsec' : $poss gt 1 && $secs eq 1 ? 'body_upsec1' : $poss eq 1 && $secs gt 1 ? 'body_upsec2' : 'body_upsec3' ), $poss, $secs); } elsif ($poss) { $msg = &theme_text(($poss gt 1 ? 'body_upneed' : 'body_upneed1'), $poss); } else { $msg = $theme_text{'body_upok'}; } $msg =~ s/([0-9]+)/" $1 <\/i>"/eg; $package_message = '' . $msg . ''; } } # Get broadcasted, local message of the day from admins $local_motd = get_all_users_motd_data(); return ($cpu_percent, $mem_percent, $virt_percent, $disk_percent, $host, $os, $webmin_version, $virtualmin_version, $cloudmin_version, $authentic_theme_version, $local_time, $kernel_arch, $cpu_type, $cpu_temperature, $cpu_fans, $hdd_temperature, $uptime, $running_proc, $load, $real_memory, $virtual_memory, $disk_space, $package_message, $csf_title, $csf_data, $csf_remote_version, $authentic_remote_version, $local_motd); } sub put_user_motd { my ($data) = @_; my ($tvardir, $webmin_var) = theme_var_dir(); my $user_motd_file = "$tvardir/motd.$remote_user"; $data = &serialise_variable($data); &write_file_contents($user_motd_file, $data); &write_file_contents(replace($webmin_var, $has_usermin_var_dir, $user_motd_file), $data) if ($has_usermin_var_dir); } sub get_user_motd { my ($file) = @_; if (-r $file) { my $data = &read_file_contents($file); return &unserialise_variable($data); } return; } sub get_all_users_motd_data { my ($specific_user) = @_; my ($tvardir) = theme_var_dir(); my @users_motd_files; my %users_motd; find( { wanted => sub { push(@users_motd_files, "$tvardir/$_") if ((!$specific_user && $_ =~ /^motd\.[a-zA-Z0-9\_\-]+$/) || ($specific_user =~ /^[a-zA-Z0-9\_\-]+$/ && $_ =~ /^motd\.$specific_user$/)); }, }, $tvardir); foreach my $user_motd_file (@users_motd_files) { my $user_motd = get_user_motd($user_motd_file); my ($user) = $user_motd_file =~ /\.([^.]+)$/; if ($user_motd) { my @user_motd_allowed; foreach my $motd (@{$user_motd}) { # Skip message if cannot be displayed for the given user if ($specific_user || ($motd->{'target'} eq 'all' || (&webmin_user_is_admin() && $motd->{'target'} eq 'adm') || ($get_user_level eq '1' && $motd->{'target'} eq 'res') || ($get_user_level eq '2' && $motd->{'target'} eq 'vm') || ($get_user_level eq '3' && $motd->{'target'} eq 'um') || ($get_user_level eq '4' && $motd->{'target'} eq 'cm'))) { # Remove any script tag $motd->{'msg'} =~ s///g; # Extract possible link in message my ($href) = $motd->{'msg'} =~ /(?|]|])/; # Remove all attrs from tags $motd->{'msg'} =~ s/(<[a-zA-Z]+).*?(>)/$1$2/gi; # Restore link if any $motd->{'msg'} =~ s///g if ($href); # Push as allowed push(@user_motd_allowed, $motd); } } $users_motd{ lc($user) } = \@user_motd_allowed; } } return \%users_motd; } sub get_current_user_config { our ($___user) = grep {$_->{'name'} eq $base_remote_user} &acl::list_users(); return $___user; } sub get_col_num { my ($info, $max_col) = @_; my $num_col = 0; if ($info->{'cpu'}) {$num_col++;} if ($info->{'mem'}) { my @m = @{ $info->{'mem'} }; if (@m && $m[0]) {$num_col++;} if (@m && $m[2]) {$num_col++;} } if ($info->{'disk_total'}) {$num_col++;} my $col = $max_col / $num_col; return $col; } sub print_table_row { my ($title, $content, $id) = @_; print '' . "\n"; print '' . $title . '' . "\n"; print '' . $content . '' . "\n"; print '' . "\n"; } sub print_table_row_responsive { my ($title, $content, $id, $title2, $content2, $id2) = @_; print '' . "\n"; print '' . $title . '' . "\n"; print '' . $content . '' . "\n"; if ($title2) { print '' . $title2 . '' . "\n"; print '' . $content2 . '' . "\n"; print '' . "\n"; } } sub print_favorites { # Support for previous installs my $ff = $config_directory . "/$current_theme/favorites.json"; if (-r $ff) { my $ffn = $ff; $ffn =~ s/\.json/-$remote_user.json/; rename_file($ff, $ffn); } my $f = &read_file_contents($config_directory . "/$current_theme/favorites-$remote_user.json"); print '
'; } sub print_panels_group_start { my ($id, $get) = @_; my $str = '
'; if ($get) { return $str; } print $str; } sub print_panels_group_end { my ($get) = @_; my $str = '
'; if ($get) { return $str; } print $str; } sub print_panel { my ($opened, $id, $title, $data, $get, $sorter, $ref) = @_; if ($sorter) { $sorter = ' data-sorter="' . $sorter . '" '; } if ($ref) { $ref = ' data-referrer="' . $ref . '" '; } my $str = '
' . $data . '
'; if ($get) { return $str; } print $str; } sub parse_license_date { if ($_[0] =~ /^(\d{4})-(\d+)-(\d+)$/) { return eval {timelocal(0, 0, 0, $3, $2 - 1, $1 - 1900)}; } return undef; } sub embed_logo { my $lgt; my $img; ((get_env('script_name') eq '/session_login.cgi' || get_env('script_name') eq '/pam_login.cgi') ? ($lgt = 'logo_welcome') : ($lgt = 'logo')); my $lnk = $config_directory . "/$current_theme/" . $lgt . ".png"; if (-r $lnk) { $img = (''); } if ($get_user_level eq '1') { my %reseller = get_user_acl(undef, 'virtual-server'); if (length $reseller{'logo'} > 4 && $reseller{'link'}) { $img = (''); } elsif ($reseller{'logo'}) { $img = (''); } } if ($img && $img !~ /="none"/) { print '
'; print $img; print '
' . "\n"; } } sub head { print "Content-type: text/html\n\n"; } sub error_40x { my %miniserv; get_miniserv_config(\%miniserv); our %theme_config = (settings($config_directory . "/$current_theme/settings-admin", 'settings_'), settings($config_directory . "/$current_theme/settings-root", 'settings_')); # Get block time to refresh the page afterwards my $block_time = $miniserv{'blockhost_time'} < $miniserv{'blockuser_time'} ? $miniserv{'blockuser_time'} : $miniserv{'blockhost_time'}; if ($block_time < 30) { $block_time = 30; } $block_time += 5; my $sec = lc(get_env('https')) eq 'on' ? "; secure" : ""; my $sidname = "sid"; print "Set-Cookie: $sidname=x; path=/$sec\r\n" if ($in{'logout'}); print "Set-Cookie: redirect=1; path=/\r\n"; print "Set-Cookie: testing=1; path=/$sec\r\n"; my $charset = &get_charset(); &PrintHeader($charset); print '', "\n"; print '', "\n"; embed_login_head(!$main::session_id); print '' . "\n"; print ''; embed_overlay_prebody(); print '
' . "\n"; if (defined($in{'code'})) { my $file = get_env('request_uri'); if ($file) { $file = "  — " . html_escape("$file") . ""; } print '
' . "\n"; print ' ' . html_escape($in{'code'}) . '
' . html_escape($in{'message'}) . "$file\n"; print '
' . "\n"; } &footer(); } sub theme_update_incompatible { my ($authentic_remote_data, $force_stable) = @_; my $webmin_compatible_version; my $usermin_compatible_version; my @notice; $force_stable ||= 0; my $force_button = '' . $theme_text{'theme_xhred_global_click_here'} . ''; my $usermin_enabled_updates = ($theme_config{'settings_sysinfo_theme_updates_for_usermin'} ne 'false' ? 1 : 0); my ($authentic_remote_version) = $authentic_remote_data =~ /^version=(.*)/gm; $authentic_remote_data =~ /^depends=(\d.\d\d\d)\s+(\d.\d\d\d)|(\d.\d\d\d)/gm; $webmin_compatible_version = $3 ? $3 : $1; $usermin_compatible_version = $2; my $webmin_version_file = "$root_directory/version"; my $usermin_version_file = "$has_usermin_root_dir/version"; my $get_latest_dev = sub { my ($file, $var) = @_; if (-r $file) { my $version_dev = read_file_lines($file, 1)->[0]; if ($version_dev =~ /\d\.\d{4,}/) { my @file_stat = stat($file); if ($file_stat[9] > time() - (60 * 60)) { ${$var} = 1; } } } }; # Do we have latest dev version of Webmin installed &$get_latest_dev($webmin_version_file, \$webmin_compatible_version); # Do we have latest dev version of Usermin installed &$get_latest_dev($usermin_version_file, \$usermin_compatible_version); if ( ($authentic_remote_version && $webmin_compatible_version && $usermin_compatible_version && (get_webmin_version() < $webmin_compatible_version) && ($has_usermin && $usermin_enabled_updates && $has_usermin_version < $usermin_compatible_version)) ) { @notice = { "incompatible" => ( theme_text('theme_git_patch_incompatible_message', $theme_text{'theme_name'}, $authentic_remote_version, $theme_text{'theme_xhred_titles_wm'}, $webmin_compatible_version, $theme_text{'theme_xhred_titles_um'}, $usermin_compatible_version ) . " " . theme_text('theme_git_patch_incompatible_message_desc', $force_button, ($theme_text{'theme_xhred_titles_wm'} . "/" . $theme_text{'theme_xhred_titles_um'})) ) }; } elsif ( ($authentic_remote_version && $webmin_compatible_version && (get_webmin_version() < $webmin_compatible_version)) ) { @notice = { "incompatible" => ( theme_text('theme_git_patch_incompatible_message_s', $theme_text{'theme_name'}, $authentic_remote_version, $theme_text{'theme_xhred_titles_wm'}, $webmin_compatible_version ) . " " . theme_text('theme_git_patch_incompatible_message_desc', $force_button, $theme_text{'theme_xhred_titles_wm'}) ) }; } elsif ( ($authentic_remote_version && $usermin_compatible_version && ($has_usermin && $usermin_enabled_updates && $has_usermin_version < $usermin_compatible_version)) ) { @notice = { "incompatible" => ( theme_text('theme_git_patch_incompatible_message_s', $theme_text{'theme_name'}, $authentic_remote_version, $theme_text{'theme_xhred_titles_um'}, $usermin_compatible_version ) . " " . theme_text('theme_git_patch_incompatible_message_desc', $force_button, $theme_text{'theme_xhred_titles_um'}) ) }; } return @notice; } sub theme_remote_version { return if ($theme_config{'settings_upgrade_allowed'} ne 'true'); my ($data, $force_stable_check, $force_beta_check, $nocache) = @_; my $remote_version = 0; my $remote_release; my $error; my $installed_version_devel = theme_version('version') =~ /alpha|beta|RC/; if (($theme_config{'settings_sysinfo_theme_updates'} eq 'true' || $data) && &webmin_user_is_admin() && post_has('xhr-')) { if (($tconfig{'beta_updates'} eq '1' || $force_beta_check || $installed_version_devel) && !$force_stable_check) { if (!$nocache) { $remote_version = theme_cached('version-theme-development'); } if (!$remote_version) { http_download('api.github.com', '443', '/repos/authentic-theme/authentic-theme/contents/theme.info', \$remote_version, \$error, undef, 1, undef, undef, 30, undef, undef, { 'accept', 'application/vnd.github.v3.raw' }); theme_cached('version-theme-development', $remote_version, $error); } } else { if (!$nocache) { $remote_version = theme_cached('version-theme-stable'); } if (!$remote_version) { http_download('api.github.com', '443', '/repos/authentic-theme/authentic-theme/releases/latest', \$remote_release, \$error, undef, 1, undef, undef, 30); $remote_release =~ /tag_name":"(.*?)"/; http_download('api.github.com', '443', '/repos/authentic-theme/authentic-theme/contents/theme.info?ref=' . $1 . '', \$remote_version, \$error, undef, 1, undef, undef, 30, undef, undef, { 'accept', 'application/vnd.github.v3.raw' }); theme_cached('version-theme-stable', $remote_version, $error); } } } if ($data) { return $remote_version; } else { ($remote_version) = $remote_version =~ /^version=(.*)/m; return $remote_version; } } sub theme_cached { my ($id, $cvalue, $error, $cache_interval_option) = @_; $id || die "Can't use undefined as cache filename"; my $theme_var_dir; if (&webmin_user_is_admin()) { ($theme_var_dir) = theme_var_dir(); } else { $theme_var_dir = get_user_home() . "/tmp"; $theme_var_dir = tempname_dir() if (!-d $theme_var_dir); } my $fcached = "$theme_var_dir/$id"; my @cached = stat($fcached); my $ctime = $cache_interval_option || $theme_config{'settings_cache_interval'} || 24 * 60 * 60; my $cache = read_file_contents($fcached); my $cdata = $cache ? unserialise_variable($cache) : undef; my @data; if (@cached && $cached[9] > time() - $ctime) { # Use cache for now if ($cdata) { @data = @$cdata; } else { return undef; } } else { # Error when catching remote data if ($error) { if ($cdata) { # Error: Use current cache for another period @data = @$cdata; } else { # Error: No cache available return undef; } } elsif ($cvalue) { # Use supplied data push(@data, $cvalue); } if (@data) { # Write cache my $fh = "cache"; open_tempfile($fh, ">$fcached"); print_tempfile($fh, serialise_variable(\@data)); close_tempfile($fh); } } return wantarray ? @data : $data[0]; } sub theme_var_dir { my $product_var = $var_directory || get_env('webmin_var'); if (!$product_var) { open(VARPATH, "$config_directory/var-path"); chop($product_var = ); close(VARPATH); } my $var_dir = $product_var . "/modules"; my $theme_var_dir = "$var_dir/$current_theme"; if (!-d $var_dir) { mkdir($var_dir, 0700); } if (!-d $theme_var_dir) { mkdir($theme_var_dir, 0700); } else { chmod(0700, $theme_var_dir); } return ($theme_var_dir, $product_var); } sub clear_theme_cache { my ($root, $full) = @_; my $salt = substr(encode_base64($main::session_id), 0, 6); my $tmp_dir = tempname_dir(); my $home_tmp_dir = get_user_home() . "/tmp"; my ($theme_var_dir, $product_var) = theme_var_dir(); # Clear cached files if ($root) { unlink_file("$theme_var_dir/combined-system-info-$remote_user"); unlink_file("$theme_var_dir/version-theme-stable"); unlink_file("$theme_var_dir/version-theme-development"); unlink_file("$theme_var_dir/version-csf-stable"); unlink_file("$theme_var_dir/software-latest"); unlink_file("$theme_var_dir/software+latest"); # Clear stats history opendir(my $dir, $theme_var_dir); grep {unlink_file("$theme_var_dir/$_") if (/^stats-server-\d+/)} readdir($dir); closedir($dir); unlink_file("$theme_var_dir/real-time-monitoring.json"); kill_byname("$current_theme/stats.pl", 9); unlink_file("$theme_var_dir/stats-$remote_user.json"); # Remove cached downloads unlink_file("$product_var/cache"); # Remove cached OS info unlink_file("$product_var/modules/webmin/announce-cache"); unlink_file("$product_var/modules/webmin/oscache"); unlink_file("$product_var/modules/webmin/realos-cache"); # Remove package updates cache unlink_file("$product_var/modules/package-updates/current.cache"); unlink_file("$product_var/modules/package-updates/updates.cache"); # Remove cached package updates if (&foreign_available('package-updates')) { &foreign_require("package-updates"); &package_updates::flush_package_caches(); } } # Clear user cached collected info unlink_file("$tmp_dir/combined-system-info-$remote_user"); unlink_file("$home_tmp_dir/combined-system-info-$remote_user"); # Remove and regenerate OS cache if (&foreign_available('webmin')) { &foreign_require("webmin"); &webmin::detect_operating_system(); } # Remove EOL cache if (defined($gconfig{'os_eol'})) { # Invalidate EOL cache &lock_file("$config_directory/config"); foreach my $key (keys %gconfig) { delete $gconfig{$key} if ($key =~ /^(os_eol|os_ext_eol)/); } &write_file("$config_directory/config", \%gconfig); &unlock_file("$config_directory/config"); } # Clear potentially stuck BIND cache if (&foreign_available('bind8')) { &foreign_require("bind8"); &bind8::flush_zone_names(); } # Clear potentially stuck Postfix version file if (&foreign_available('postfix')) { &foreign_require("postfix"); my $postfix_version_file = $postfix::version_file; unlink_file($postfix_version_file) if (-f $postfix_version_file); } # Clear potentially stuck Apache cache if (&foreign_available('apache')) { &foreign_require("apache", "postinstall.pl"); &apache::module_install(); } # Clear Virtualmin related cache if (&foreign_available('virtual-server')) { &foreign_require("virtual-server"); # Clear links cache if (webmin_user_is_admin()) { my $vm_links_cache_global = "$virtual_server::links_cache_dir/global"; if (-r $vm_links_cache_global) { unlink_file($vm_links_cache_global); } } &virtual_server::clear_links_cache($remote_user); # Clear license status cache my $licence_status = &virtual_server::cache_file_path("licence-status"); unlink_file($licence_status); # Clear collected data my $collected_info_file = &virtual_server::cache_file_path("collected"); unlink_file($collected_info_file); # Clear server templates cache my $vm_var_dir = $virtual_server::module_var_directory; opendir(my $dir, $vm_var_dir); grep {unlink_file("$vm_var_dir/$_") if (/^virtual\-server\-server\-templates/)} readdir($dir); closedir($dir); # Clear seen features cache if ($full) { my $seenfeatdir = $virtual_server::newfeatures_seen_dir; unlink_file("$seenfeatdir/$remote_user-pro-tips"); } } # Clear potentially stuck menus and other cache flush_webmin_caches(); # Clear session specific temporary files opendir(my $dir, $tmp_dir); grep {unlink_file("$tmp_dir/$_") if (/^\.theme_/ && /$salt/)} readdir($dir); closedir($dir); } sub theme_make_config_dir { my $_wm_at_conf_dir = $config_directory . '/' . $current_theme; if (!-d $_wm_at_conf_dir) { mkdir($_wm_at_conf_dir, 0755); } else { chmod(0755, $_wm_at_conf_dir); } if ($has_usermin) { (my $_um_at_conf_dir = $config_directory) =~ s/webmin/usermin/; if (!-d $_um_at_conf_dir) { mkdir($_um_at_conf_dir, 0755); } else { chmod(0755, $_um_at_conf_dir); } } } sub get_theme_user_link { my $is_hidden = (!foreign_available("webmin") && $theme_config{'settings_theme_config_admins_only_privileged'} eq 'true' ? ' hidden-force ' : undef); my $is_hidden_link = ((!&webmin_user_is_admin() || $theme_config{'settings_upgrade_allowed'} ne 'true') ? ' hidden-force ' : undef); my $link = '/tconfig.cgi'; return '' . theme_version('versionfull') . '
'; } sub init_type { (($ENV{'CONTENT_TYPE'} =~ /multipart\/form-data/i) ? ReadParseMime() : ($ENV{'SCRIPT_NAME'} =~ /session_login|pam_login/i ? ReadParse(undef, undef, undef, 2) : ReadParse())); } sub init { # Don't log XHR requests my %tmp_miniserv; get_miniserv_config(\%tmp_miniserv); my $nolog = quotemeta('/stats.cgi?xhr-stats=general'); $nolog =~ s/\\ / /g; if ($tmp_miniserv{'nolog'} eq $nolog) { delete($tmp_miniserv{'nolog'}); put_miniserv_config(\%tmp_miniserv); reload_miniserv(); } # Make sure that config directory exists theme_make_config_dir(); # Provide unobstructive access for AJAX calls exit if (post_has('xhr-')); # Load module lib if available lib_csf_control('load'); } sub content { # Mobile toggle my $nav_collapsed = $theme_config{'settings_navigation_always_collapse'} eq 'true' ? 1 : 0; my $nav_styles_extra = get_filters(); if ($nav_collapsed) { $nav_styles_extra .= " transform: translate(0px, 0px);"; } print '
"; print '' . "\n"; print '
' . "\n"; # Navigation do($ENV{'THEME_ROOT'} . "/navigation-lib.pl"); print "' . "\n"; # Favorites menu print_favorites(); # Content print '
' . "\n"; print '
' . "\n"; } sub update_notice { my $changelog_data = (read_file_contents($root_directory . '/' . $current_theme . "/CHANGELOG.md") =~ /#### Version(.*?)/s)[0]; if ($changelog_data) { $changelog_data =~ s/###(.*?)\)/<\/ul>@{[get_version_link($1, 2)]}
    /g; } else { $changelog_data = (read_file_contents($root_directory . '/' . $current_theme . "/CHANGELOG.md") =~ /### Version(.*?)/s)[0]; } my @changelog_version = split /\n/, $changelog_data; $changelog_data =~ s/^[^\n]*\n/\n/s; $changelog_data =~ s/`(.*?)`/$1<\/code>/g; $changelog_data =~ s/__(.*?)__/$1<\/strong>/g; $changelog_data =~ s/_(.*?)_/$1<\/em>/g; $changelog_data =~ s/(Fixed bugs)/$1<\/span>/g; $changelog_data =~ s/\[([^\[]+)\]\(([^\)]+)\)/$1<\/a>/g; $changelog_data =~ s/\n\*(.*)/\n
  • $1<\/li>/g; my @version = split(/ /, $changelog_version[0]); my $changelog_content = ' '; return $changelog_content; } sub get_cookies { my @r = split /; /, get_env('http_cookie'); my %c; foreach (@r) { my ($k, $v) = split /=/, $_; $c{$k} = $v; } return %c; } sub get_access_data { my ($key) = @_; if ($key) { if ($key eq 'root' && $gaccess{'root'} eq '/') { return undef; } else { return $gaccess{$key}; } } else { return %gaccess; } } sub get_available_modules { my ($json) = @_; my @mods; foreach my $x (get_all_module_infos()) { if ($x->{'dir'} ne undef && &foreign_available($x->{'dir'})) { push @mods, $x->{'dir'}; } } if ($json eq 'json') { return convert_to_json(\@mods); } else { return @mods; } } sub theme_config_save { theme_make_config_dir(); my %u = settings_filter(%in); my %a = %u; # Never allow saving privileged options sent from user delete @u{ grep(/_privileged$/, keys %u) }; write_file(get_tuconfig_file(), \%u); # Master administrator must also save certain options to # global `settings.js` config file to affect all users if (&webmin_user_is_admin()) { delete @a{ grep(!/^settings_/, keys %a) }; # Never save user-based options to global config delete @a{ grep(/_user$/, keys %a) }; write_file(get_tgconfig_file(), \%a); # Never save extra options delete @a{ grep(/_extra_/, keys %a) }; write_file(get_tgconfig_file(), \%a); # Check for Usermin configuration if ($has_usermin_conf_dir) { my $theme_settings_webmin_file = get_tgconfig_file(); my $theme_settings_usermin_file = $theme_settings_webmin_file; $theme_settings_usermin_file =~ s/$config_directory/$has_usermin_conf_dir/; if (!-l $theme_settings_usermin_file) { symlink_file($theme_settings_webmin_file, $theme_settings_usermin_file); } } } } sub theme_config_restore { my $tuconfig_file = get_tuconfig_file(); unlink_file($tuconfig_file); if (&webmin_user_is_admin()) { my $tgconfig_file = get_tgconfig_file(); unlink_file($tgconfig_file); if ($has_usermin) { my $tugconfig_file = $tgconfig_file; $tugconfig_file =~ s/$config_directory/$has_usermin_conf_dir/; unlink_file($tugconfig_file); } } } sub get_user_acl { my ($key, $module) = @_; if ($module) { $module = '/' . $module; } my $acl = "$config_directory$module/$remote_user.acl"; my %config; read_file($acl, \%config); if (-r $acl) { if ($key) { return $config{$key}; } else { return %config; } } else { return undef; } } sub get_module_config_data { my ($module, $key) = @_; if (-r $config_directory . '/' . $module . '/config') { my %config; read_file(($config_directory . '/' . $module . '/config'), \%config); if ($key) { return $config{$key}; } else { return %config; } } else { return undef; } } sub get_history_shell_file { my $file; if ($in{'xhr-shell-cms'} eq "1") { my $id = $in{'xhr-shell-cmsid'}; $id =~ s/[^\p{L}\p{N}.\-\/]//g; $file = "$config_directory/server-manager/previous/$id"; } else { $file = "$config_directory/shell/previous.$remote_user"; } return $file; } sub get_autocomplete_shell { my ($type, $string) = @_; my ($cd, $cmd, $cmd2, $cd_cmd, $command, @rs, @rs_tmp); if ($type eq 'commands') { $command = '-c'; } elsif ($type eq 'groups') { $command = '-g'; } elsif ($type eq 'service') { (!string_starts_with($string, '::::') && ($command = '-s')); } elsif ($type eq 'systemctl') { $command = undef; } elsif ($type eq 'users') { $command = '-u'; } else { my @strings = split /::::/, $string; ($cd, $string, $cmd, $cmd2) = @strings[0, 1, 2, 3]; $cd_cmd = "cd " . quotemeta($cd) . "; "; $command = '-o default'; } if ($command) { @rs = array_unique( backquote_command($cd_cmd . "bash -c 'compgen " . $command . " '" . quotemeta($cmd2 ? $cmd2 : $string) . "")); } else { if ($type eq 'service' && has_command('service')) { my @cmd = split /::::/, $string; my $units_tmp = backquote_command("service " . quotemeta($cmd[1])); my ($unit_tmp) = $units_tmp =~ / \( ( [^\)]+ ) \) /x; if (!$unit_tmp) { ($unit_tmp) = $units_tmp =~ / { ( [^}]+ ) } /x; } if (!$unit_tmp) { ($unit_tmp) = $units_tmp =~ / \[ ( [^]]+ ) \] /x; } $unit_tmp =~ s/\s+//g; $unit_tmp =~ s/\|/,/g; $unit_tmp =~ s/;/,/g; my @units_tmp = split /,/, $unit_tmp; my @units_possible_tmp = ('start', 'stop', 'restart', 'try-restart', 'reload', 'force-reload', 'status'); @rs_tmp = (@units_tmp ? @units_tmp : @units_possible_tmp); my @rs_cmd; if ($cmd[2]) { foreach my $cmd (@rs_tmp) { if (string_starts_with($cmd, $cmd[2])) { push @rs_cmd, $cmd; } } @rs = @rs_cmd; } else { @rs = @rs_tmp; } } if ($type eq 'systemctl' && has_command('systemctl')) { my (@units, @units_tmp); @units_tmp = array_unique(backquote_command("systemctl list-unit-files")); my $i = 0; my $n = $#units_tmp; foreach my $unit (@units_tmp) { my @tmp = split / {1,}/, $unit; my ($unit_tmp, $status_tmp) = @tmp[0, 1]; if ($i && --$n && $unit_tmp && (!$string || string_starts_with($unit_tmp, $string))) { push @units, $unit_tmp; } $i++; } @rs = @units; } } if ($cd || $cmd2) { my @rs_tmp; foreach my $file (@rs) { if (-d $file || -d ($cd . $file)) { push @rs_tmp, ($file . '/'); } else { if ($cmd ne 'cd') { push @rs_tmp, $file; } } } @rs = @rs_tmp; } return @rs; } 1;