File Manager

X7ROOT File Manager

Current Path: /usr/libexec/webmin/servers

📁 ..
📄 CHANGELOG(1.63 KB)
📄 acl_security.pl(2.46 KB)
📄 auto.pl(2.9 KB)
📄 backup_config.pl(678 B)
📄 cgi_args.pl(313 B)
📄 config(140 B)
📄 config-debian-linux(174 B)
📄 config-redhat-linux(180 B)
📄 config-syno-linux(140 B)
📄 config.info(977 B)
📄 config.info.ar(1.5 KB)
📄 config.info.ca(1.17 KB)
📄 config.info.cs(421 B)
📄 config.info.de(1.14 KB)
📄 config.info.es(481 B)
📄 config.info.fr(489 B)
📄 config.info.hu(147 B)
📄 config.info.it(1.03 KB)
📄 config.info.ja(1.21 KB)
📄 config.info.ko(983 B)
📄 config.info.ms(934 B)
📄 config.info.nl(979 B)
📄 config.info.no(925 B)
📄 config.info.pl(1.02 KB)
📄 config.info.pt_BR(460 B)
📄 config.info.ru(1.48 KB)
📄 config.info.sk(445 B)
📄 config.info.sv(99 B)
📄 config.info.tr(487 B)
📄 config.info.zh(81 B)
📄 config.info.zh_TW(60 B)
📄 config_info.pl(264 B)
📄 defaultacl(88 B)
📄 delete_servs.cgi(836 B)
📄 edit_auto.cgi(2.32 KB)
📄 edit_serv.cgi(4.8 KB)
📄 find.cgi(1.43 KB)
📁 images
📄 index-json.cgi(266 B)
📄 index.cgi(5.69 KB)
📁 lang
📄 link.cgi(7 KB)
📄 log_parser.pl(843 B)
📄 login.cgi(441 B)
📄 logout.cgi(340 B)
📄 module.info(178 B)
📄 module.info.af(0 B)
📄 module.info.af.auto(124 B)
📄 module.info.ar(133 B)
📄 module.info.ar.auto(23 B)
📄 module.info.be(0 B)
📄 module.info.be.auto(189 B)
📄 module.info.bg(0 B)
📄 module.info.bg.auto(190 B)
📄 module.info.ca(120 B)
📄 module.info.ca.auto(18 B)
📄 module.info.cs(31 B)
📄 module.info.cs.auto(92 B)
📄 module.info.da(0 B)
📄 module.info.da.auto(119 B)
📄 module.info.de(117 B)
📄 module.info.de.auto(15 B)
📄 module.info.el(0 B)
📄 module.info.el.auto(194 B)
📄 module.info.es(37 B)
📄 module.info.es.auto(109 B)
📄 module.info.eu(0 B)
📄 module.info.eu.auto(141 B)
📄 module.info.fa(0 B)
📄 module.info.fa.auto(193 B)
📄 module.info.fi(0 B)
📄 module.info.fi.auto(145 B)
📄 module.info.fr(34 B)
📄 module.info.fr.auto(102 B)
📄 module.info.he(0 B)
📄 module.info.he.auto(141 B)
📄 module.info.hr(0 B)
📄 module.info.hr.auto(141 B)
📄 module.info.hu(25 B)
📄 module.info.hu.auto(109 B)
📄 module.info.it(33 B)
📄 module.info.it.auto(99 B)
📄 module.info.ja(141 B)
📄 module.info.ko(32 B)
📄 module.info.ko.auto(109 B)
📄 module.info.lt(0 B)
📄 module.info.lt.auto(151 B)
📄 module.info.lv(0 B)
📄 module.info.lv.auto(131 B)
📄 module.info.ms(110 B)
📄 module.info.ms.auto(16 B)
📄 module.info.mt(0 B)
📄 module.info.mt.auto(127 B)
📄 module.info.nl(29 B)
📄 module.info.nl.auto(97 B)
📄 module.info.no(23 B)
📄 module.info.no.auto(89 B)
📄 module.info.pl(24 B)
📄 module.info.pl.auto(95 B)
📄 module.info.pt(36 B)
📄 module.info.pt.auto(107 B)
📄 module.info.pt_BR(40 B)
📄 module.info.pt_BR.auto(113 B)
📄 module.info.ro(0 B)
📄 module.info.ro.auto(125 B)
📄 module.info.ru(30 B)
📄 module.info.ru.auto(152 B)
📄 module.info.sk(31 B)
📄 module.info.sk.auto(91 B)
📄 module.info.sl(0 B)
📄 module.info.sl.auto(133 B)
📄 module.info.sv(27 B)
📄 module.info.sv.auto(93 B)
📄 module.info.th(0 B)
📄 module.info.th.auto(285 B)
📄 module.info.tr(36 B)
📄 module.info.tr.auto(111 B)
📄 module.info.uk(0 B)
📄 module.info.uk.auto(192 B)
📄 module.info.ur(0 B)
📄 module.info.ur.auto(188 B)
📄 module.info.vi(0 B)
📄 module.info.vi.auto(163 B)
📄 module.info.zh(30 B)
📄 module.info.zh.auto(85 B)
📄 module.info.zh_TW(34 B)
📄 module.info.zh_TW.auto(91 B)
📄 prefs.info(63 B)
📄 save_auto.cgi(2.34 KB)
📄 save_serv.cgi(3.31 KB)
📄 servers-lib.pl(15.11 KB)
📄 uninstall.pl(262 B)

Editing: save_serv.cgi

#!/usr/bin/perl
# save_serv.cgi
# Save or delete a server

use strict;
use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
require './servers-lib.pl';
our (%in, %access, %text);
&ReadParse();
$access{'edit'} || &error($text{'edit_ecannot'});
&error_setup($text{'save_err'});

my $serv;
if ($in{'id'}) {
	$serv = &get_server($in{'id'});
	&can_use_server($serv) || &error($text{'edit_ecannot'});
	}
else {
	$access{'add'} || &error($text{'edit_ecannot'});
	$serv = { 'id' => time() };
	}

if ($in{'delete'}) {
	# delete the server
	&delete_server($in{'id'});
	&webmin_log("delete", "server", $serv->{'host'}, $serv); 
	}
else {
	# validate inputs
	$in{'host'} =~ /^\S+$/ || &error($text{'save_ehost'});
	if ($in{'port_def'}) {
		$in{'mode'} == 0 || &error($text{'save_eport2'});
		}
	else {
		$in{'port'} =~ /^\d+$/ || &error($text{'save_eport'});
		}
	if ($in{'mode'} == 1) {
		&to_ipaddress($in{'host'}) || &to_ip6address($in{'host'}) ||
			&error($text{'save_ehost2'});
		$in{'wuser'} =~ /\S/ || &error($text{'save_euser'});
		$in{'wpass'} =~ /\S/ || &error($text{'save_epass'});
		}
	if ($in{'fast'} == 2 && $in{'mode'} == 1) {
		# Does the server have fastrpc.cgi ?
		my $con = &make_http_connection($in{'host'}, $in{'port'},
					   $in{'ssl'}, "GET", "/fastrpc.cgi");
		$in{'fast'} = 0;
		if (ref($con)) {
			&write_http_connection($con,
				        "Host: $serv->{'host'}\r\n");
			&write_http_connection($con,
					"User-agent: Webmin\r\n");
			my $auth = &encode_base64("$in{'wuser'}:$in{'wpass'}");
			$auth =~ s/\n//g;
			&write_http_connection($con,
					"Authorization: basic $auth\r\n");
			&write_http_connection($con, "\r\n");
			my $line = &read_http_connection($con);
			if ($line =~ /^HTTP\/1\..\s+401\s+/) {
				&error($text{'save_elogin'});
				}
			elsif ($line =~ /^HTTP\/1\..\s+200\s+/) {
				# It does .. tell the fastrpc.cgi process to die
				do {
					$line = &read_http_connection($con);
					$line =~ s/\r|\n//g;
					} while($line);
				$line = &read_http_connection($con);
				if ($line =~ /^1\s+(\S+)\s+(\S+)/) {
					my ($port, $sid, $error) = ($1, $2);
					&open_socket($in{'host'}, $port,
						     $sid, \$error);
					if (!$error) {
						close($sid);
						$in{'fast'} = 1;
						}
					}
				}
			&close_http_connection($con);
			}
		}
	elsif ($in{'fast'} == 2) {
		# No login provided, so we cannot say for now ..
		}

# save the server
	my @groups = split(/\0/, $in{'group'});
	if ($in{'newgroup'}) {
		$in{'newgroup'} =~ /^\S+$/ || &error($text{'save_egroup2'});
		push(@groups, $in{'newgroup'});
		}
	$serv->{'host'} = $in{'host'};
	$serv->{'port'} = $in{'port_def'} ? undef : $in{'port'};
	$serv->{'type'} = $in{'type'};
	$serv->{'ssl'} = $in{'ssl'};
	$serv->{'checkssl'} = $in{'checkssl'};
	$serv->{'desc'} = $in{'desc_def'} ? undef : $in{'desc'};
	$serv->{'group'} = join("\t", @groups);
	$serv->{'fast'} = $in{'fast'};
	delete($serv->{'user'});
	delete($serv->{'pass'});
	delete($serv->{'autouser'});
	delete($serv->{'sameuser'});
	if ($in{'mode'} == 1) {
		$serv->{'user'} = $in{'wuser'};
		$serv->{'pass'} = $in{'wpass'};
		}
	elsif ($in{'mode'} == 2) {
		$serv->{'autouser'} = 1;
		}
	elsif ($in{'mode'} == 3) {
		$serv->{'user'} = 'same';
		$serv->{'sameuser'} = 1;
		}
	&save_server($serv);
	delete($serv->{'pass'});
	&webmin_log($in{'new'} ? 'create' : 'modify', 'server',
		    $serv->{'host'}, $serv);
	}
&redirect("");

X7ROOT File Manager

Editing: save_serv.cgi

Upload File

Create Folder