Gecko [ 122.154.134.11 ]

Name	Size	Permission
images	[ DIR ]	drwxr-xr-x
lang	[ DIR ]	drwxr-xr-x
CHANGELOG	3.94 KB	-rw-r--r--
acl_security.pl	1.37 KB	-rwxr-xr-x
backup_config.pl	2.17 KB	-rwxr-xr-x
bootup.cgi	1.12 KB	-rwxr-xr-x
cgi_args.pl	160 B	-rwxr-xr-x
change_access.cgi	783 B	-rwxr-xr-x
change_advanced.cgi	1.64 KB	-rwxr-xr-x
change_anon.cgi	758 B	-rwxr-xr-x
change_bind.cgi	3.18 KB	-rwxr-xr-x
change_lang.cgi	409 B	-rwxr-xr-x
change_mobile.cgi	989 B	-rwxr-xr-x
change_os.cgi	1.9 KB	-rwxr-xr-x
change_referers.cgi	462 B	-rwxr-xr-x
change_session.cgi	5.15 KB	-rwxr-xr-x
change_ssl.cgi	2.35 KB	-rwxr-xr-x
change_theme.cgi	675 B	-rwxr-xr-x
change_ui.cgi	1.59 KB	-rwxr-xr-x
change_users.cgi	1.19 KB	-rwxr-xr-x
clear_blocked.cgi	126 B	-rwxr-xr-x
clone_mod.cgi	1.53 KB	-rwxr-xr-x
config	85 B	-rw-r--r--
config.info	242 B	-rw-r--r--
config.info.ar	315 B	-rw-r--r--
config.info.ca	283 B	-rw-r--r--
config.info.ca.UTF-8	287 B	-rw-r--r--
config.info.cz	271 B	-rw-r--r--
config.info.cz.UTF-8	287 B	-rw-r--r--
config.info.de	283 B	-rw-r--r--
config.info.de.UTF-8	283 B	-rw-r--r--
config.info.es	310 B	-rw-r--r--
config.info.es.UTF-8	310 B	-rw-r--r--
config.info.fa	228 B	-rw-r--r--
config.info.fi	325 B	-rw-r--r--
config.info.fi.UTF-8	325 B	-rw-r--r--
config.info.hu	0 B	-rw-r--r--
config.info.it	304 B	-rw-r--r--
config.info.it.UTF-8	304 B	-rw-r--r--
config.info.ja_JP.UTF-8	275 B	-rw-r--r--
config.info.ja_JP.euc	213 B	-rw-r--r--
config.info.ms_MY	264 B	-rw-r--r--
config.info.ms_MY.UTF-8	264 B	-rw-r--r--
config.info.nl	266 B	-rw-r--r--
config.info.nl.UTF-8	266 B	-rw-r--r--
config.info.no	252 B	-rw-r--r--
config.info.no.UTF-8	252 B	-rw-r--r--
config.info.pl	280 B	-rw-r--r--
config.info.pl.UTF-8	290 B	-rw-r--r--
config.info.pt_BR	66 B	-rw-r--r--
config.info.pt_BR.UTF-8	66 B	-rw-r--r--
config.info.ru.UTF-8	62 B	-rw-r--r--
config.info.ru_RU	43 B	-rw-r--r--
config.info.ru_RU.UTF-8	62 B	-rw-r--r--
config.info.ru_SU	43 B	-rw-r--r--
config.info.uk_UA	46 B	-rw-r--r--
config.info.uk_UA.UTF-8	62 B	-rw-r--r--
config.info.zh_TW.Big5	30 B	-rw-r--r--
config.info.zh_TW.UTF-8	34 B	-rw-r--r--
copycert.cgi	1.58 KB	-rwxr-xr-x
defaultacl	251 B	-rw-r--r--
delete_mod.cgi	2.14 KB	-rwxr-xr-x
delete_session.cgi	317 B	-rwxr-xr-x
download_cert.cgi	575 B	-rwxr-xr-x
edit_access.cgi	1.22 KB	-rwxr-xr-x
edit_acl.cgi	620 B	-rwxr-xr-x
edit_advanced.cgi	2.18 KB	-rwxr-xr-x
edit_anon.cgi	807 B	-rwxr-xr-x
edit_assignment.cgi	1.18 KB	-rwxr-xr-x
edit_bind.cgi	2.08 KB	-rwxr-xr-x
edit_blocked.cgi	892 B	-rwxr-xr-x
edit_categories.cgi	2.05 KB	-rwxr-xr-x
edit_configs.cgi	2.68 KB	-rwxr-xr-x
edit_dav.cgi	1.75 KB	-rwxr-xr-x
edit_defacl.cgi	692 B	-rwxr-xr-x
edit_descs.cgi	846 B	-rwxr-xr-x
edit_ipkey.cgi	1.62 KB	-rwxr-xr-x
edit_lang.cgi	884 B	-rwxr-xr-x
edit_logout.cgi	1.16 KB	-rwxr-xr-x
edit_mobile.cgi	1.18 KB	-rwxr-xr-x
edit_mods.cgi	4.49 KB	-rwxr-xr-x
edit_os.cgi	3.04 KB	-rwxr-xr-x
edit_referers.cgi	913 B	-rwxr-xr-x
edit_restrict.cgi	2.05 KB	-rwxr-xr-x
edit_session.cgi	6.01 KB	-rwxr-xr-x
edit_ssl.cgi	6.15 KB	-rwxr-xr-x
edit_themes.cgi	3.23 KB	-rwxr-xr-x
edit_ui.cgi	2.86 KB	-rwxr-xr-x
edit_upgrade.cgi	4.04 KB	-rwxr-xr-x
edit_users.cgi	1.19 KB	-rwxr-xr-x
export_mod.cgi	1.3 KB	-rwxr-xr-x
feedback_files.pl	137 B	-rwxr-xr-x
index.cgi	3.71 KB	-rwxr-xr-x
install_check.pl	530 B	-rwxr-xr-x
install_mod.cgi	2.68 KB	-rwxr-xr-x
install_theme.cgi	2.19 KB	-rwxr-xr-x
list_configs.cgi	780 B	-rwxr-xr-x
list_restrict.cgi	1.51 KB	-rwxr-xr-x
list_sessions.cgi	1.42 KB	-rwxr-xr-x
log_parser.pl	1.49 KB	-rwxr-xr-x
module.info	217 B	-rw-r--r--
module.info.ar	133 B	-rw-r--r--
module.info.ca	129 B	-rw-r--r--
module.info.ca.UTF-8	143 B	-rw-r--r--
module.info.cz	29 B	-rw-r--r--
module.info.cz.UTF-8	35 B	-rw-r--r--
module.info.de	126 B	-rw-r--r--
module.info.de.UTF-8	138 B	-rw-r--r--
module.info.es	33 B	-rw-r--r--
module.info.es.UTF-8	40 B	-rw-r--r--
module.info.fi	26 B	-rw-r--r--
module.info.fi.UTF-8	32 B	-rw-r--r--
module.info.fr	33 B	-rw-r--r--
module.info.fr.UTF-8	39 B	-rw-r--r--
module.info.hu	28 B	-rw-r--r--
module.info.hu.UTF-8	37 B	-rw-r--r--
module.info.it	34 B	-rw-r--r--
module.info.it.UTF-8	40 B	-rw-r--r--
module.info.ja_JP.UTF-8	32 B	-rw-r--r--
module.info.ja_JP.euc	28 B	-rw-r--r--
module.info.ms_MY	126 B	-rw-r--r--
module.info.ms_MY.UTF-8	138 B	-rw-r--r--
module.info.nl	29 B	-rw-r--r--
module.info.nl.UTF-8	35 B	-rw-r--r--
module.info.no	30 B	-rw-r--r--
module.info.no.UTF-8	36 B	-rw-r--r--
module.info.pl	118 B	-rw-r--r--
module.info.pl.UTF-8	132 B	-rw-r--r--
module.info.pt_BR	45 B	-rw-r--r--
module.info.pt_BR.UTF-8	51 B	-rw-r--r--
module.info.ru.UTF-8	41 B	-rw-r--r--
module.info.ru_RU	29 B	-rw-r--r--
module.info.ru_RU.UTF-8	44 B	-rw-r--r--
module.info.ru_SU	29 B	-rw-r--r--
module.info.zh_TW.Big5	28 B	-rw-r--r--
move.cgi	606 B	-rwxr-xr-x
newkey.cgi	2.54 KB	-rwxr-xr-x
restart.cgi	110 B	-rwxr-xr-x
save_acl.cgi	355 B	-rwxr-xr-x
save_assignment.cgi	588 B	-rwxr-xr-x
save_categories.cgi	1.05 KB	-rwxr-xr-x
save_configs.cgi	751 B	-rwxr-xr-x
save_dav.cgi	1019 B	-rwxr-xr-x
save_defacl.cgi	626 B	-rwxr-xr-x
save_descs.cgi	585 B	-rwxr-xr-x
save_ipkey.cgi	1.49 KB	-rwxr-xr-x
save_logout.cgi	1022 B	-rwxr-xr-x
save_restrict.cgi	1.31 KB	-rwxr-xr-x
save_uconfigs.cgi	1.38 KB	-rwxr-xr-x
savekey.cgi	2.39 KB	-rwxr-xr-x
start.cgi	200 B	-rwxr-xr-x
stop.cgi	203 B	-rwxr-xr-x
switch.cgi	317 B	-rwxr-xr-x
syslog_logs.pl	646 B	-rwxr-xr-x
uninstall.pl	350 B	-rwxr-xr-x
update.cgi	3.54 KB	-rwxr-xr-x
update.pl	3.7 KB	-rwxr-xr-x
update_sched.cgi	1.98 KB	-rwxr-xr-x
upgrade.cgi	9.56 KB	-rwxr-xr-x
usermin-lib.pl	23.75 KB	-rwxr-xr-x

Code Editor : upgrade.cgi

#!/usr/bin/perl
# upgrade.cgi
# Upgrade usermin if possible

require './usermin-lib.pl';
$access{'upgrade'} || &error($text{'acl_ecannot'});
&foreign_require("proc", "proc-lib.pl");
if ($ENV{'CONTENT_TYPE'} =~ /boundary=/) {
	&ReadParseMime();
	}
else {
	&ReadParse();
	}
&get_usermin_miniserv_config(\%miniserv);

&ui_print_unbuffered_header(undef, $in{'install'} ? $text{'upgrade_title2'} : $text{'upgrade_title'}, "");

if ($in{'source'} == 0) {
	# from local file
	&error_setup(&text('upgrade_err1', $in{'file'}));
	$file = $in{'file'};
	if (!(-r $file)) { &inst_error($text{'upgrade_efile'}); }
	}
elsif ($in{'source'} == 1) {
	# from uploaded file
	&error_setup($text{'upgrade_err2'});
	$file = &transname();
	$need_unlink = 1;
	if ($no_upload) {
 &inst_error($text{'upgrade_ebrowser'});
 }
	&open_tempfile(MOD, ">$file", 0, 1);
	&print_tempfile(MOD, $in{'upload'});
	&close_tempfile(MOD);
	}
elsif ($in{'source'} == 2) {
	# find latest version at www.webmin.com by looking at index page
	&error_setup($text{'upgrade_err3'});
	$file = &transname();
	&http_download('www.webmin.com', 80, '/index6.html', $file, \$error);
	$error && &inst_error($error);
	open(FILE, $file);
	while(<FILE>) {
		if (/usermin-([0-9\.]+)-(\d+)\.tar\.gz/ ||
		 /usermin-([0-9\.]+)\.tar\.gz/) {
			$version = $1;
			$release = $2;
			last;
			}
		}
	close(FILE);
	unlink($file);
	if (!$in{'force'}) {
		if ($version == &get_usermin_version()) {
			&inst_error(&text('upgrade_elatest', $version));
			}
		elsif ($version <= &get_usermin_version()) {
			&inst_error(&text('upgrade_eversion', $version));
			}
		}

# Work out the current Usermin type (webmail or regular)
	$product = "usermin";
	if (&has_command("rpm") && $in{'mode'} eq 'rpm' &&
	    &execute_command("rpm -q usermin-webmail") == 0) {
		$product = "usermin-webmail";
		}
	elsif (&has_command("dpkg") && $in{'mode'} eq 'deb' &&
	       &execute_command("dpkg --list usermin-webmail") == 0) {
		$product = "usermin-webmail";
		}

if ($in{'mode'} eq 'rpm') {
		$release ||= 1;
		$progress_callback_url = &convert_osdn_url(
		    "http://$webmin::osdn_host/webadmin/${product}-${version}-${release}.noarch.rpm");
		}
	elsif ($in{'mode'} eq 'deb') {
		$release = $release ? "-".$release : "";
		$progress_callback_url = &convert_osdn_url(
		    "http://$webmin::osdn_host/webadmin/${product}_${version}${release}_all.deb");
		}
	else {
		$release = $release ? "-".$release : "";
		$progress_callback_url = &convert_osdn_url(
		    "http://$webmin::osdn_host/webadmin/${product}-${version}${release}.tar.gz");
		}
	($host, $port, $page, $ssl) = &parse_http_url($progress_callback_url);
	&http_download($host, $port, $page, $file, \$error,
		       \&progress_callback, $ssl);
	$error && &inst_error($error);
	$need_unlink = 1;
	}
elsif ($in{'source'} == 5) {
	# Download from some URL
	&error_setup(&text('upgrade_err5', $in{'url'}));
	$file = &transname();
	$progress_callback_url = $in{'url'};
	if ($in{'url'} =~ /^(http|https):\/\/([^\/]+)(\/.*)$/) {
		$ssl = $1 eq 'https';
		$host = $2; $page = $3; $port = $ssl ? 443 : 80;
		if ($host =~ /^(.*):(\d+)$/) { $host = $1; $port = $2; }
		&http_download($host, $port, $page, $file, \$error,
			       \&progress_callback, $ssl);
		}
	elsif ($in{'url'} =~ /^ftp:\/\/([^\/]+)(:21)?\/(.*)$/) {
		$host = $1; $ffile = $3;
		&ftp_download($host, $ffile, $file,
			      \$error, \&progress_callback);
		}
	else { &inst_error($text{'upgrade_eurl'}); }
	$need_unlink = 1;
	$error && &inst_error($error);
	}
$qfile = quotemeta($file);

# gunzip the file if needed
open(FILE, $file);
read(FILE, $two, 2);
close(FILE);
if ($two eq "\037\213") {
	if (!&has_command("gunzip")) {
		&inst_error($text{'upgrade_egunzip'});
		}
	$newfile = &transname();
	$out = `gunzip -c $file 2>&1 >$newfile`;
	if ($?) {
		unlink($newfile);
		&inst_error(&text('upgrade_egzip', "<tt>$out</tt>"));
		}
	unlink($file) if ($need_unlink);
	$need_unlink = 1;
	$file = $newfile;
	}
$qfile = quotemeta($file);

# Get list of updates
$updatestemp = &transname();
&http_download($update_host, $update_port, $update_page, $updatestemp,
               \$updates_error);

if ($in{'mode'} eq 'rpm') {
	# Check if it is an RPM package
	$out = `rpm -qp $qfile`;
	$out =~ /^usermin-(\d+\.\d+)/ ||
	 $out =~ /^usermin-webmail-(\d+\.\d+)/ ||
		&inst_error($text{'upgrade_erpm'});
	$version = $1;
	if ($version <= &get_usermin_version() && !$in{'force'}) {
		&inst_error(&text('upgrade_eversion', $version));
		}

# Install the RPM
	if ($in{'force'}) {
		$cmd = "rpm -U --force --nodeps $qfile";
		}
	else {
		$cmd = "rpm -U --ignoreos --ignorearch --nodeps $qfile";
		}
	print "",&text($in{'install'} ? 'upgrade_setup2' : 'upgrade_setup',
			 "<tt>$cmd</tt>")," \n";
	print "<pre>";
	&proc::safe_process_exec($cmd, 0, 0, STDOUT, undef, 1);
	print "</pre>";
	unlink($file) if ($need_unlink);
	}
elsif ($in{'mode'} eq 'deb') {
	# Check if it is a Debian package
	$out = `dpkg --info $qfile`;
	$out =~ /Package:\s+(\S+)/ &&
	 ($1 eq "usermin" || $1 eq "usermin-webmail") ||
		&inst_error($text{'upgrade_edeb'});
	$out =~ /Version:\s+(\S+)/ ||
		&inst_error($text{'upgrade_edeb'});
	$version = $1;
	if ($version <= &get_usermin_version() && !$in{'force'}) {
		&inst_error(&text('upgrade_eversion', $version));
		}

# Install the package
	$cmd = "dpkg --install $qfile";
	print "",&text($in{'install'} ? 'upgrade_setup2' : 'upgrade_setup',
			 "<tt>$cmd</tt>")," \n";
	print "<pre>";
	&proc::safe_process_exec($cmd, 0, 0, STDOUT, undef, 1);
	print "</pre>";
	unlink($file) if ($need_unlink);
	}
else {
	# Check if it is a usermin tarfile
	open(TAR, "tar tf $file 2>&1 |");
	while(<TAR>) {
		if (/^usermin-([0-9\.]+)\//) {
			$version = $1;
			}
		if (/^webmin-([0-9\.]+)\//) {
			$webmin_version = $1;
			}
		if (/^[^\/]+\/(\S+)$/) {
			$hasfile{$1}++;
			}
		}
	close(TAR);
	if ($webmin_version) {
		&inst_error(&text('upgrade_ewebmin', $webmin_version));
		}
	if (!$version) {
		if ($hasfile{'module.info'}) {
			&inst_error(&text('upgrade_emod', 'edit_mods.cgi'));
			}
		else {
			&inst_error($text{'upgrade_etar'});
			}
		}
	if (!$in{'force'}) {
		if ($version <= &get_usermin_version()) {
			&inst_error(&text('upgrade_eversion', $version));
			}
		}

$| = 1;
	local $cmd;
	if ($in{'install'}) {
		# Installing .. extract it in /usr/local and run setup.sh
		local $root = "/usr/local";
		mkdir($root, 0755);
		$out = `cd $root ; tar xf $file 2>&1 >/dev/null`;
		if ($?) {
			&inst_error(&text('upgrade_euntar', "<tt>$out</tt>"));
			}
		unlink($file) if ($need_unlink);
		$ENV{'config_dir'} = $standard_usermin_dir;
		$ENV{'var_dir'} = "/var/usermin";
		$perl = &get_perl_path();
		$ENV{'perl'} = $perl;
		$ENV{'autoos'} = 3;
		$ENV{'port'} = 20000;
		$ENV{'ssl'} = 1;
		$ENV{'os_type'} = $gconfig{'os_type'};
		$ENV{'os_version'} = $gconfig{'os_version'};
		$ENV{'real_os_type'} = $gconfig{'real_os_type'};
		$ENV{'real_os_version'} = $gconfig{'real_os_version'};
		$cmd = "(cd $root/usermin-$version && ./setup.sh)";
		print "",&text('upgrade_setup2', "<tt>setup.sh</tt>")," \n";
		}
	else {
		# Upgrading .. work out where to extract
		if ($in{'dir'}) {
			# Since we are currently installed in a fixed directory,
			# just extract to a temporary location
			$extract = &transname();
			mkdir($extract, 0755);
			}
		else {
			# Next to the current directory
			$extract = "$miniserv{'root'}/..";
			}

# Extract it next to the current directory and run setup.sh
		$out = `cd $extract ; tar xf $file 2>&1 >/dev/null`;
		if ($?) {
			&inst_error(&text('upgrade_euntar', "<tt>$out</tt>"));
			}
		unlink($file) if ($need_unlink);
		$ENV{'config_dir'} = $config{'usermin_dir'};
		$ENV{'webmin_upgrade'} = 1;
		$ENV{'autothird'} = 1;
		$setup = $in{'dir'} ? "./setup.sh '$in{'dir'}'" : "./setup.sh";
		if ($in{'delete'}) {
			$ENV{'deletedold'} = 1;
			$cmd = "(cd $extract/usermin-$version && $setup && rm -rf \"$miniserv{'root'}\")";
			}
		else {
			$cmd = "(cd $extract/usermin-$version && $setup)";
			}
		print "",&text('upgrade_setup', "<tt>setup.sh</tt>")," \n";
		}
	print "<pre>";
	&proc::safe_process_exec($cmd, 0, 0, STDOUT, undef, 1);
	print "</pre>";
	if ($in{'dir'}) {
		# Can delete the temporary source directory
		system("rm -rf \"$extract\"");
		}
	}

# Notify Webmin that this module might now be usable
&foreign_require("webmin", "webmin-lib.pl");
($inst, $changed) = &webmin::build_installed_modules(0, 'usermin');
if (@$changed && defined(&theme_post_change_modules)) {
	&theme_post_change_modules();
	}

&webmin_log($in{'install'} ? "uinstall" : "upgrade", undef, undef,
	    { 'version' => $version, 'mode' => $in{'mode'} });

# Find out about any updates for this new version.
if ($updates_error) {
 print " ",&text('upgrade_eupdates', $updates_error),"\n";
 }
else {
 open(UPDATES, $updatestemp);
 while(<UPDATES>) {
 if (/^([^\t]+)\t+([^\t]+)\t+([^\t]+)\t+([^\t]+)\t+(.*)/) {
 push(@updates, [ $1, $2, $3, $4, $5 ]);
 }
 }
 close(UPDATES);
 unlink($updatestemp);
 $bversion = &base_version($version);
 foreach $u (@updates) {
 next if ($u->[1] >= $bversion + .01 || $u->[1] <= $bversion ||
			 $u->[1] <= $version);
 local $osinfo = { 'os_support' => $u->[3] };
 next if (!&check_usermin_os_support($osinfo));
 $ucount++;
 }
 if ($ucount) {
 print " ",&text('upgrade_updates', $ucount,
 "update.cgi?source=0&show=0&missing=0"),"\n";
 }
 }

&ui_print_footer("", $text{'index_return'});

sub inst_error
{
unlink($file) if ($need_unlink);
&error($_[0]);
exit;
}

${this.title}

Code Editor : upgrade.cgi