Gecko [ contributie.vriendennsm.nl ]

Name	Size	Permission	Date
help	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
images	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
lang	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
subdir	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
CHANGELOG	12.02 KB	-rw-r--r--	2026-07-17 21:17
acme_tiny.py	11.53 KB	-rwxr-xr-x	2026-07-17 21:17
adminupgrade	299 B	-rw-r--r--	2026-07-17 21:17
backup_config.pl	1.97 KB	-rwxr-xr-x	2026-07-17 21:17
bootup.cgi	1.04 KB	-rwxr-xr-x	2026-07-17 21:22
cache.cgi	1.47 KB	-rwxr-xr-x	2026-07-17 21:22
cgi_args.pl	159 B	-rwxr-xr-x	2026-07-17 21:17
change_access.cgi	1.93 KB	-rwxr-xr-x	2026-07-17 21:22
change_advanced.cgi	7.02 KB	-rwxr-xr-x	2026-07-17 21:22
change_anon.cgi	712 B	-rwxr-xr-x	2026-07-17 21:22
change_bind.cgi	5.08 KB	-rwxr-xr-x	2026-07-17 21:22
change_ca.cgi	674 B	-rwxr-xr-x	2026-07-17 21:22
change_debug.cgi	1.38 KB	-rwxr-xr-x	2026-07-17 21:22
change_lang.cgi	558 B	-rwxr-xr-x	2026-07-17 21:22
change_lock.cgi	554 B	-rwxr-xr-x	2026-07-17 21:22
change_log.cgi	2.42 KB	-rwxr-xr-x	2026-07-17 21:22
change_mobile.cgi	940 B	-rwxr-xr-x	2026-07-17 21:22
change_os.cgi	2.21 KB	-rwxr-xr-x	2026-07-17 21:22
change_osdn.cgi	1.54 KB	-rwxr-xr-x	2026-07-17 21:22
change_overlay.cgi	1.17 KB	-rwxr-xr-x	2026-07-17 21:22
change_proxy.cgi	1.09 KB	-rwxr-xr-x	2026-07-17 21:22
change_referers.cgi	633 B	-rwxr-xr-x	2026-07-17 21:22
change_session.cgi	5.88 KB	-rwxr-xr-x	2026-07-17 21:22
change_ssl.cgi	3.08 KB	-rwxr-xr-x	2026-07-17 21:22
change_startpage.cgi	687 B	-rwxr-xr-x	2026-07-17 21:22
change_status.cgi	1.08 KB	-rwxr-xr-x	2026-07-17 21:22
change_theme.cgi	1.17 KB	-rwxr-xr-x	2026-07-17 21:22
change_twofactor.cgi	1.48 KB	-rwxr-xr-x	2026-07-17 21:22
change_ui.cgi	1.61 KB	-rwxr-xr-x	2026-07-17 21:22
change_web.cgi	2.47 KB	-rwxr-xr-x	2026-07-17 21:22
clear_blocked.cgi	230 B	-rwxr-xr-x	2026-07-17 21:22
clear_cache.cgi	205 B	-rwxr-xr-x	2026-07-17 21:22
clone_mod.cgi	2.15 KB	-rwxr-xr-x	2026-07-17 21:22
config	155 B	-rw-r--r--	2026-07-17 21:17
config.info	940 B	-rw-r--r--	2026-07-17 21:17
config.info.ar	406 B	-rw-r--r--	2026-07-17 21:17
config.info.ca	388 B	-rw-r--r--	2026-07-17 21:17
config.info.cs	225 B	-rw-r--r--	2026-07-17 21:17
config.info.de	351 B	-rw-r--r--	2026-07-17 21:17
config.info.es	221 B	-rw-r--r--	2026-07-17 21:17
config.info.fa	293 B	-rw-r--r--	2026-07-17 21:17
config.info.fr	554 B	-rw-r--r--	2026-07-17 21:17
config.info.hr	0 B	-rw-r--r--	2026-07-17 21:17
config.info.hu	0 B	-rw-r--r--	2026-07-17 21:17
config.info.it	237 B	-rw-r--r--	2026-07-17 21:17
config.info.ja	514 B	-rw-r--r--	2026-07-17 21:17
config.info.ko	198 B	-rw-r--r--	2026-07-17 21:17
config.info.ms	278 B	-rw-r--r--	2026-07-17 21:17
config.info.nl	291 B	-rw-r--r--	2026-07-17 21:17
config.info.no	275 B	-rw-r--r--	2026-07-17 21:17
config.info.pl	276 B	-rw-r--r--	2026-07-17 21:17
config.info.pt_BR	291 B	-rw-r--r--	2026-07-17 21:17
config.info.ru	483 B	-rw-r--r--	2026-07-17 21:17
config.info.sk	124 B	-rw-r--r--	2026-07-17 21:17
config.info.sv	194 B	-rw-r--r--	2026-07-17 21:17
config.info.tr	147 B	-rw-r--r--	2026-07-17 21:17
cpan_modules.pl	229 B	-rwxr-xr-x	2026-07-17 21:17
defaultacl	17 B	-rw-r--r--	2026-07-17 21:17
delete_cache.cgi	471 B	-rwxr-xr-x	2026-07-17 21:22
delete_mod.cgi	2.24 KB	-rwxr-xr-x	2026-07-17 21:22
delete_webmincron.cgi	1.51 KB	-rwxr-xr-x	2026-07-17 21:22
developers-key.asc	3.07 KB	-rw-r--r--	2026-07-17 21:17
download_cert.cgi	532 B	-rwxr-xr-x	2026-07-17 21:22
edit_access.cgi	1.88 KB	-rwxr-xr-x	2026-07-17 21:22
edit_advanced.cgi	4.24 KB	-rwxr-xr-x	2026-07-17 21:22
edit_anon.cgi	812 B	-rwxr-xr-x	2026-07-17 21:22
edit_assignment.cgi	1.12 KB	-rwxr-xr-x	2026-07-17 21:22
edit_bind.cgi	3.54 KB	-rwxr-xr-x	2026-07-17 21:22
edit_blocked.cgi	944 B	-rwxr-xr-x	2026-07-17 21:22
edit_ca.cgi	2.82 KB	-rwxr-xr-x	2026-07-17 21:22
edit_categories.cgi	1.69 KB	-rwxr-xr-x	2026-07-17 21:22
edit_debug.cgi	2.05 KB	-rwxr-xr-x	2026-07-17 21:22
edit_descs.cgi	1.49 KB	-rwxr-xr-x	2026-07-17 21:22
edit_ipkey.cgi	1.7 KB	-rwxr-xr-x	2026-07-17 21:22
edit_lang.cgi	1.83 KB	-rwxr-xr-x	2026-07-17 21:22
edit_lock.cgi	2.13 KB	-rwxr-xr-x	2026-07-17 21:22
edit_log.cgi	3.16 KB	-rwxr-xr-x	2026-07-17 21:22
edit_mobile.cgi	1.26 KB	-rwxr-xr-x	2026-07-17 21:22
edit_mods.cgi	4.45 KB	-rwxr-xr-x	2026-07-17 21:22
edit_os.cgi	3.17 KB	-rwxr-xr-x	2026-07-17 21:22
edit_proxy.cgi	3.7 KB	-rwxr-xr-x	2026-07-17 21:22
edit_referers.cgi	899 B	-rwxr-xr-x	2026-07-17 21:22
edit_sendmail.cgi	3.68 KB	-rwxr-xr-x	2026-07-17 21:22
edit_session.cgi	6.23 KB	-rwxr-xr-x	2026-07-17 21:22
edit_ssl.cgi	13.69 KB	-rwxr-xr-x	2026-07-17 21:22
edit_startpage.cgi	1.48 KB	-rwxr-xr-x	2026-07-17 21:22
edit_status.cgi	1.26 KB	-rwxr-xr-x	2026-07-17 21:22
edit_themes.cgi	4.15 KB	-rwxr-xr-x	2026-07-17 21:22
edit_twofactor.cgi	1.5 KB	-rwxr-xr-x	2026-07-17 21:22
edit_ui.cgi	2.51 KB	-rwxr-xr-x	2026-07-17 21:22
edit_upgrade.cgi	4.39 KB	-rwxr-xr-x	2026-07-17 21:22
edit_web.cgi	2.92 KB	-rwxr-xr-x	2026-07-17 21:22
edit_webmincron.cgi	1.35 KB	-rwxr-xr-x	2026-07-17 21:22
export_mod.cgi	1.23 KB	-rwxr-xr-x	2026-07-17 21:22
feedback_files.pl	126 B	-rwxr-xr-x	2026-07-17 21:17
fix_os.cgi	228 B	-rwxr-xr-x	2026-07-17 21:22
fix_repo.cgi	1.87 KB	-rwxr-xr-x	2026-07-17 21:22
gnupg-lib.pl	14.82 KB	-rwxr-xr-x	2026-07-17 21:17
hide.cgi	326 B	-rwxr-xr-x	2026-07-17 21:22
index.cgi	4.41 KB	-rwxr-xr-x	2026-07-17 21:22
install_mod.cgi	3.11 KB	-rwxr-xr-x	2026-07-17 21:22
install_theme.cgi	2.29 KB	-rwxr-xr-x	2026-07-17 21:22
jcameron-key.asc	1.29 KB	-rw-r--r--	2026-07-17 21:17
kill_lock.cgi	1.57 KB	-rwxr-xr-x	2026-07-17 21:22
letsencrypt-cleanup.pl	1.94 KB	-rwxr-xr-x	2026-07-17 21:22
letsencrypt-dns.pl	2.49 KB	-rwxr-xr-x	2026-07-17 21:22
letsencrypt-lib.pl	19.62 KB	-rwxr-xr-x	2026-07-17 21:17
letsencrypt.cgi	8.25 KB	-rwxr-xr-x	2026-07-17 21:22
log_parser.pl	1.23 KB	-rwxr-xr-x	2026-07-17 21:17
module.info	195 B	-rw-r--r--	2026-07-17 21:17
module.info.ar	185 B	-rw-r--r--	2026-07-17 21:17
module.info.ar.auto	22 B	-rw-r--r--	2026-07-17 21:17
module.info.bg	0 B	-rw-r--r--	2026-07-17 21:17
module.info.bg.auto	218 B	-rw-r--r--	2026-07-17 21:17
module.info.ca	134 B	-rw-r--r--	2026-07-17 21:17
module.info.ca.auto	15 B	-rw-r--r--	2026-07-17 21:17
module.info.cs	28 B	-rw-r--r--	2026-07-17 21:17
module.info.cs.auto	128 B	-rw-r--r--	2026-07-17 21:17
module.info.da	0 B	-rw-r--r--	2026-07-17 21:17
module.info.da.auto	142 B	-rw-r--r--	2026-07-17 21:17
module.info.de	126 B	-rw-r--r--	2026-07-17 21:17
module.info.de.auto	15 B	-rw-r--r--	2026-07-17 21:17
module.info.el	0 B	-rw-r--r--	2026-07-17 21:17
module.info.el.auto	262 B	-rw-r--r--	2026-07-17 21:17
module.info.es	33 B	-rw-r--r--	2026-07-17 21:17
module.info.es.auto	109 B	-rw-r--r--	2026-07-17 21:17
module.info.eu	0 B	-rw-r--r--	2026-07-17 21:17
module.info.eu.auto	158 B	-rw-r--r--	2026-07-17 21:17
module.info.fa	0 B	-rw-r--r--	2026-07-17 21:17
module.info.fa.auto	202 B	-rw-r--r--	2026-07-17 21:17
module.info.fi	0 B	-rw-r--r--	2026-07-17 21:17
module.info.fi.auto	141 B	-rw-r--r--	2026-07-17 21:17
module.info.fr	32 B	-rw-r--r--	2026-07-17 21:17
module.info.fr.auto	129 B	-rw-r--r--	2026-07-17 21:17
module.info.hr	0 B	-rw-r--r--	2026-07-17 21:17
module.info.hr.auto	149 B	-rw-r--r--	2026-07-17 21:17
module.info.hu	30 B	-rw-r--r--	2026-07-17 21:17
module.info.hu.auto	148 B	-rw-r--r--	2026-07-17 21:17
module.info.it	33 B	-rw-r--r--	2026-07-17 21:17
module.info.it.auto	107 B	-rw-r--r--	2026-07-17 21:17
module.info.ja	180 B	-rw-r--r--	2026-07-17 21:17
module.info.ko	22 B	-rw-r--r--	2026-07-17 21:17
module.info.ko.auto	129 B	-rw-r--r--	2026-07-17 21:17
module.info.ms	119 B	-rw-r--r--	2026-07-17 21:17
module.info.ms.auto	15 B	-rw-r--r--	2026-07-17 21:17
module.info.nl	28 B	-rw-r--r--	2026-07-17 21:17
module.info.nl.auto	117 B	-rw-r--r--	2026-07-17 21:17
module.info.no	29 B	-rw-r--r--	2026-07-17 21:17
module.info.no.auto	117 B	-rw-r--r--	2026-07-17 21:17
module.info.pl	155 B	-rw-r--r--	2026-07-17 21:17
module.info.pl.auto	15 B	-rw-r--r--	2026-07-17 21:17
module.info.pt	33 B	-rw-r--r--	2026-07-17 21:17
module.info.pt.auto	113 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR	36 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR.auto	119 B	-rw-r--r--	2026-07-17 21:17
module.info.ru	34 B	-rw-r--r--	2026-07-17 21:17
module.info.ru.auto	172 B	-rw-r--r--	2026-07-17 21:17
module.info.sk	30 B	-rw-r--r--	2026-07-17 21:17
module.info.sk.auto	132 B	-rw-r--r--	2026-07-17 21:17
module.info.sv	30 B	-rw-r--r--	2026-07-17 21:17
module.info.sv.auto	114 B	-rw-r--r--	2026-07-17 21:17
module.info.tr	33 B	-rw-r--r--	2026-07-17 21:17
module.info.tr.auto	128 B	-rw-r--r--	2026-07-17 21:17
module.info.uk	0 B	-rw-r--r--	2026-07-17 21:17
module.info.uk.auto	215 B	-rw-r--r--	2026-07-17 21:17
module.info.zh	22 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW	25 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW.auto	115 B	-rw-r--r--	2026-07-17 21:17
newcsr.cgi	800 B	-rwxr-xr-x	2026-07-17 21:22
newkey.cgi	879 B	-rwxr-xr-x	2026-07-17 21:22
os-eol-lib.pl	9.55 KB	-rwxr-xr-x	2026-07-17 21:17
postinstall.pl	2.59 KB	-rwxr-xr-x	2026-07-17 21:17
refresh_modules.cgi	661 B	-rwxr-xr-x	2026-07-17 21:22
restart.cgi	87 B	-rwxr-xr-x	2026-07-17 21:22
save_assignment.cgi	485 B	-rwxr-xr-x	2026-07-17 21:22
save_categories.cgi	986 B	-rwxr-xr-x	2026-07-17 21:22
save_descs.cgi	1006 B	-rwxr-xr-x	2026-07-17 21:22
save_ipkey.cgi	1.31 KB	-rwxr-xr-x	2026-07-17 21:22
save_newmod.cgi	278 B	-rwxr-xr-x	2026-07-17 21:22
save_sendmail.cgi	2.32 KB	-rwxr-xr-x	2026-07-17 21:22
save_webmincron.cgi	1016 B	-rwxr-xr-x	2026-07-17 21:22
savekey.cgi	2.8 KB	-rwxr-xr-x	2026-07-17 21:22
setup_ca.cgi	1.52 KB	-rwxr-xr-x	2026-07-17 21:22
standard_chooser.cgi	1.68 KB	-rwxr-xr-x	2026-07-17 21:22
stop_ca.cgi	1.03 KB	-rwxr-xr-x	2026-07-17 21:22
syslog_logs.pl	633 B	-rwxr-xr-x	2026-07-17 21:17
system_info.pl	5.08 KB	-rw-r--r--	2026-07-17 21:17
test_sendmail.cgi	784 B	-rwxr-xr-x	2026-07-17 21:22
third_chooser.cgi	1.55 KB	-rwxr-xr-x	2026-07-17 21:22
twofactor-funcs-lib.pl	11.24 KB	-rw-r--r--	2026-07-17 21:17
uninstall.pl	236 B	-rwxr-xr-x	2026-07-17 21:17
update.cgi	2.89 KB	-rwxr-xr-x	2026-07-17 21:22
upgrade.cgi	16.95 KB	-rwxr-xr-x	2026-07-17 21:22
view_webmincron.cgi	1.66 KB	-rwxr-xr-x	2026-07-17 21:22
webmin-lib.pl	75.99 KB	-rwxr-xr-x	2026-07-17 21:17

Rename

use strict;
use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
do 'webmin-lib.pl';
our ($module_var_directory, %gconfig, $hidden_announce_file, $module_name, %text);

our $webmin_announce_url = "https://announce.webmin.com/index.txt";
our $webmin_announce_cache = "$module_var_directory/announce-cache";
our $webmin_announce_cache_time = 24*60*60;

# list_system_info()
# If any, returns announcements to Webmin users
sub list_system_info
{
return ( ) if ($gconfig{'no_announce'});

# Can we use the cache?
my $rawcache = &read_file_contents($webmin_announce_cache);
my $cache = $rawcache ? &unserialise_variable($rawcache) : undef;
my @st = stat($webmin_announce_cache);
my @ann;
if (@st && $st[9] > time() - $webmin_announce_cache_time) {
	# Cache is new enough to use
	@ann = @$cache;
	}
else {
	# Fetch the index of announcements
	my ($host, $port, $page, $ssl) = &parse_http_url($webmin_announce_url);
	return ( ) if (!$host);
	my ($out, $err);
	&http_download($host, $port, $page, \$out, \$err,
		       undef, $ssl, undef, undef, 5);

if (!$err) {
		# Parse the announcements index file
		$out ||= "";
		foreach my $l (split(/\r?\n/, $out)) {
			$l =~ s/^#.*//;		# Skip comments and spaces
			$l =~ s/^\s+//;
			$l =~ s/\s+$//;
			next if (!$l);
			my ($ahost, $aport, $apage, $assl) =
				&parse_http_url($l, $host, $port, $page, $ssl);
			next if (!$ahost);	# Invalid URL??

my $afile = &transname();
			&http_download($ahost, $aport, $apage, $afile, \$err,
				       undef, $assl, undef, undef, 5);
			last if ($err);
			my %a = ( 'file' => $l );
			&read_file($afile, \%a);
			&unlink_file($afile);
			push(@ann, \%a);
			}
		}
	if ($err && $cache) {
		# HTTP download failed somewhere, so fall back to the cache
		# and reset it's validity to prevent a failed retry storm
		@ann = @$cache;
		&execute_command("touch ".quotemeta($webmin_announce_cache));
		}
	elsif ($err) {
		# Cannot fetch, and no cache
		return ( );
		}
	else {
		# Write to the cache
		my $fh = "CACHE";
		&open_tempfile($fh, ">$webmin_announce_cache");
		&print_tempfile($fh, &serialise_variable(\@ann));
		&close_tempfile($fh);
		}
	}

# Is Virtualmin or Cloudmin pro installed?
my %vminfo = &get_module_info("virtual-server");
my $vmpro = %vminfo && $vminfo{'version'} !~ /gpl/;
my %cminfo = &get_module_info("server-manager");
my $cmpro = %cminfo && $cminfo{'version'} !~ /gpl/;
my $ver = &get_webmin_version();

# What type of user is this?
my $utype;
if (&foreign_check("virtual-server")) {
	&foreign_require("virtual-server");
	if (&virtual_server::reseller_admin()) {
		$utype = "reseller";
		}
	elsif (&virtual_server::extra_admin()) {
		$utype = "extra";
		}
	elsif (!&virtual_server::master_admin()) {
		$utype = "domain";
		}
	}
if (!$utype && &foreign_check("server-manager")) {
	&foreign_require("server-manager");
	if ($server_manager::access{'owner'}) {
		$utype = "owner";
		}
	}
$utype ||= "master";

# Now we have the announcement hash refs, turn them into messages
my %hide;
&read_file($hidden_announce_file, \%hide);
my @rv;
my $i = 0;
foreach my $a (@ann) {
	# Check if this announcement should be skipped
	next if ($hide{$a->{'file'}});
	next if ($a->{'skip_virtualmin_pro'} && $vmpro);
	next if ($a->{'skip_virtualmin_gpl'} && %vminfo && !$vmpro);
	next if ($a->{'skip_cloudmin_pro'} && $cmpro);
	next if ($a->{'skip_cloudmin_gpl'} && %cminfo && !$cmpro);
	next if ($a->{'skip_pro'} && ($vmpro || $cmpro));
	next if ($a->{'atleast_version'} && &compare_version_numbers($ver, '<', $a->{'atleast_version'}));
	next if ($a->{'atmost_version'} && &compare_version_numbers($ver, '>', $a->{'atmost_version'}));
	next if ($a->{'user_types'} && $a->{'user_types'} !~ /\Q$utype\E/);
	next if ($a->{'beta'} && !$gconfig{'beta_announce'});
	next if ($a->{'depends'} && !&foreign_check($a->{'depends'}));
	next if ($a->{'installed'} &&
		 &foreign_installed($a->{'installed'}, 1) != 2);
	
	(my $id = $a->{'file'}) =~ s/\.//;
	my $info = { 'id' => "announce_".$id,
		     'open' => 1,
		     'desc' => $a->{'title'},
		   };
	my $hide = &ui_link_button(
		&get_webprefix()."/$module_name/hide.cgi?id=".&urlize($a->{'file'}),
		$text{'announce_hide'});
	if ($a->{'type'} eq 'warning') {
		# A warning message
		$info->{'type'} = 'warning';
		$info->{'level'} = $a->{'level'} || 'info';
		$info->{'warning'} = &html_escape($a->{'message'})."<p>\n";
		for(my $b=0; defined($a->{'link'.$b}); $b++) {
			my $link = $a->{'link'.$b};
			$link = &get_webprefix().$link
				if (&get_webprefix() && $link =~ /^\//);
			$info->{'warning'} .= &ui_link_button(
				$link, $a->{'desc'.$b}, "_new")."\n";
			}
		$info->{'warning'} .= $hide;
		}
	elsif ($a->{'type'} eq 'message') {
		# A message possibly with some buttons
		$info->{'type'} = 'html';
		$info->{'level'} = $a->{'level'};
		$info->{'html'} = &html_escape($a->{'message'})."<p>\n";
		for(my $b=0; defined($a->{'link'.$b}); $b++) {
			my $link = $a->{'link'.$b};
			$link = &get_webprefix().$link
				if (&get_webprefix() && $link =~ /^\//);
			$info->{'html'} .= &ui_link_button(
				$link, $a->{'desc'.$b}, "_new")."\n";
			}
		$info->{'html'} .= $hide;
		}
	else {
		# Unknown type??
		next;
		}
	push(@rv, $info);
	}
return @rv;
}