mirror of
https://github.com/webmin/webmin.git
synced 2026-02-15 11:12:39 +00:00
45 lines
1.5 KiB
Perl
Executable File
45 lines
1.5 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
# Show a form for setting up remote logging
|
|
|
|
require './itsecur-lib.pl';
|
|
&foreign_require("servers", "servers-lib.pl");
|
|
&can_edit_error("remote");
|
|
&header($text{'remote_title'}, "",
|
|
undef, undef, undef, undef, &apply_button());
|
|
print "<hr>\n";
|
|
|
|
print "<form action=save_remote.cgi method=post>\n";
|
|
print "<table border>\n";
|
|
print "<tr $tb> <td><b>$text{'remote_header'}</b></td> </tr>\n";
|
|
print "<tr $cb> <td><table>\n";
|
|
|
|
@servers = &servers::list_servers();
|
|
($server) = grep { $_->{'host'} eq $config{'remote_log'} } @servers;
|
|
|
|
# Show target host
|
|
print "<tr> <td><b>$text{'remote_host'}</b></td> <td>\n";
|
|
printf "<input type=radio name=host_def value=1 %s> %s\n",
|
|
$server ? "" : "checked", $text{'no'};
|
|
printf "<input type=radio name=host_def value=0 %s> %s\n",
|
|
$server ? "checked" : "", $text{'remote_to'};
|
|
printf "<input name=host size=20 value='%s'> %s\n",
|
|
$server ? $server->{'host'} : "", $text{'remote_port'};
|
|
printf "<input name=port size=10 value='%s'></td> </tr>\n",
|
|
$server ? $server->{'port'} : 10000;
|
|
|
|
# Show login and password
|
|
print "<tr> <td><b>$text{'remote_user'}</b></td> <td>\n";
|
|
printf "<input name=user size=20 value='%s'></td> </tr>\n",
|
|
$server ? $server->{'user'} : "";
|
|
|
|
print "<tr> <td><b>$text{'remote_pass'}</b></td> <td>\n";
|
|
printf "<input name=pass type=password size=20 value='%s'></td> </tr>\n",
|
|
$server ? $server->{'pass'} : "";
|
|
|
|
print "</table></td></tr></table>\n";
|
|
print "<input type=submit value='$text{'save'}'></form>\n";
|
|
|
|
print "<hr>\n";
|
|
&footer("", $text{'index_return'});
|
|
|