' . "\n"; } sub print_sysstats_table { my ($data, $quota) = @_; if ((defined($data) && scalar(@{$data})) || (defined($quota) && scalar(@{$quota}))) { print '' . "\n"; if (defined($data) && scalar(@{$data})) { foreach my $t (@{ @{$data}[0]->{'table'} }) { print_table_row($t->{"desc"}, $t->{"value"}); } } 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"; } sub theme_list_combined_system_info { 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 $cache_file = theme_cache_user_file("combined-system-info"); my $cache_file_path = theme_cache_path($cache_file); my @data; # Return cached data if available if (!$nocache && $is_webmin && -r $cache_file_path) { my $combined_system_info_cache = theme_cache_read($cache_file); $combined_system_info_cache = $combined_system_info_cache->[0] if ref($combined_system_info_cache) eq 'ARRAY' && ref($combined_system_info_cache->[0]) eq 'ARRAY'; @data = @{$combined_system_info_cache} if (ref($combined_system_info_cache) eq 'ARRAY' && @{$combined_system_info_cache}); # Update the existing sysinfo cache on the fly if we have newer stats if ( -r (my $file = theme_cache_path("real-time-monitoring-now.json")) ) { my $stats_mtime = (stat($file))[9] // 0; my $cache_mtime = (stat($cache_file_path))[9] // 0; merge_stats_now_into_system_info_data( \@data, &read_file_contents($file)) if ($stats_mtime > $cache_mtime); # Data merged or skipped, delete transient file ether way unlink_file($file) if (&is_under_directory(theme_cache_dir(), $file)); } # Update all caches from scratch if cache is missing } else { if (&foreign_check("system-status")) { &foreign_require("system-status"); &system_status::scheduled_collect_system_info('manual') if ($system_status::config{'collect_interval'} ne 'none'); } # Update caches for Virtualmin-specific info if applicable if (&foreign_check("virtual-server")) { &foreign_require("virtual-server"); if ($virtual_server::config{'collect_interval'} ne 'none') { my $info = &virtual_server::collect_system_info('manual'); &virtual_server::save_collected_info($info) if ($info); } } # Return updated combined info @data = &list_combined_system_info( { 'qshow' => 1, 'max' => $theme_config{'settings_sysinfo_max_servers'} }, undef); theme_cache_write($cache_file, \@data) if ($nocache && $is_webmin); } # Return data return @data if @data; } 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)) { my ($major, $minor, $build) = &virtual_server::get_module_version(); 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' ? ' GPL  ' : '' . ' Professional ' ) . '' )); } # 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 . '   '; } 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 = '

' . $title . '

' . $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) { my $cache_id = 'version-theme-development'; if (!$nocache) { $remote_version = theme_cache_read($cache_id); } if (!$remote_version || ($remote_version && !theme_cache_is_fresh($cache_id))) { http_download('api.github.com', '443', '/repos/webmin/authentic-theme/contents/theme.info', \$remote_version, \$error, undef, 1, undef, undef, 30, undef, undef, { 'accept', 'application/vnd.github.v3.raw' }); theme_cache_write($cache_id, $remote_version) if ($remote_version && !$error); } } else { my $cache_id = 'version-theme-stable'; if (!$nocache) { $remote_version = theme_cache_read($cache_id); } if (!$remote_version || ($remote_version && !theme_cache_is_fresh($cache_id))) { http_download('api.github.com', '443', '/repos/webmin/authentic-theme/releases/latest', \$remote_release, \$error, undef, 1, undef, undef, 30); $remote_release =~ /tag_name":"(.*?)"/; http_download('api.github.com', '443', '/repos/webmin/authentic-theme/contents/theme.info?ref=' . $1 . '', \$remote_version, \$error, undef, 1, undef, undef, 30, undef, undef, { 'accept', 'application/vnd.github.v3.raw' }); theme_cache_write($cache_id, $remote_version) if ($remote_version && !$error); } } } if ($data) { return $remote_version; } else { ($remote_version) = $remote_version =~ /^version=(.*)/m; return $remote_version; } } # theme_cache_dir() # Returns directory for per-user/admin theme cache sub theme_cache_dir { if (&webmin_user_is_admin()) { my ($dir) = &theme_var_dir(); return $dir; } my $dir = &get_user_home()."/tmp"; $dir = &tempname_dir() if (!-d $dir); return $dir; } # theme_cache_path(id) # Full path for a given theme cache id sub theme_cache_path { my ($id) = @_; $id || die "Can't use undefined as cache filename"; return &theme_cache_dir()."/$id"; } # theme_cache_user_file(id, [user]) # Returns cache filename with user suffix sub theme_cache_user_file { my ($id, $user) = @_; $id || die "Missing cache id"; $user ||= ($remote_user || $base_remote_user); return "$id-$user"; } # theme_cache_is_fresh(id, [interval_secs]) # Returns 1 if cache file exists and is fresh enough sub theme_cache_is_fresh { my ($id, $interval) = @_; my $ttl = $interval || $theme_config{'settings_cache_interval'} || 24*60*60; my $path = theme_cache_path($id); my @st = stat($path); return (@st && $st[9] > time() - $ttl) ? 1 : 0; } # theme_cache_read(id) # Returns deserialized arrayref or undef if missing/invalid sub theme_cache_read { my ($id) = @_; my $path = theme_cache_path($id); return undef unless -e $path; my $raw = read_file_contents($path) // return undef; return unserialise_variable($raw); } # theme_cache_write(id, &data) # Serializes and writes data to cache sub theme_cache_write { my ($id, $value) = @_; write_file_contents(theme_cache_path($id), serialise_variable($value)); } 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 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 (exclude from logs) 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"; 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 = '
  ×Close

    ' . $theme_text{'theme_update_notice'} . '

  Version ' . $version[1] . '

  ' . $changelog_data . '

  ---

  ' . $theme_text{'theme_development_support'} . '  

  ' . theme_text( 'theme_update_footer', '    GitHub', '    Telegram' ) . '
  '; 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;