Private

Server IP : 195.201.23.43 / Your IP : 13.59.203.127
Web Server : Apache
System : Linux webserver2.vercom.be 5.4.0-192-generic #212-Ubuntu SMP Fri Jul 5 09:47:39 UTC 2024 x86_64
User : kdecoratie ( 1041)
PHP Version : 7.1.33-63+ubuntu20.04.1+deb.sury.org+1
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_get_handler,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,pcntl_async_signals,
MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : ON | Pkexec : ON
Directory : /usr/share/webmin/virtualmin-htpasswd/

Upload File :

[ HOME SHELL ]

Current File : /usr/share/webmin/virtualmin-htpasswd/add_form.cgi

#!/usr/bin/perl
# Show a form for adding protection to a directory
use strict;
use warnings;
our (%in, %text);

require './virtualmin-htpasswd-lib.pl';
&ReadParse();
my $d;
if ($in{'dom'}) {
	$d = &virtual_server::get_domain($in{'dom'});
	&virtual_server::can_edit_domain($d) || &error($text{'index_ecannot'});
	}

&ui_print_header($d ? &virtual_server::domain_in($d) : undef,
		 $text{'add_title'}, "");

print &ui_form_start("add.cgi", "post");
print &ui_table_start($text{'add_header'}, undef, 2);

# Domain selector
if (!$d) {
	my @doms = grep { &virtual_server::can_edit_domain($_) }
		     &virtual_server::list_domains();
	print &ui_table_row($text{'add_dom'},
	    &ui_select("dom", undef,
		       [ map { [ $_->{'id'}, $_->{'dom'} ] } @doms ]));
	}
else {
	print &ui_hidden("dom", $in{'dom'}),"\n";
	}

# Directory under public_html
print &ui_table_row(&hlink($text{'add_dir'}, 'add_dir'),
	&ui_radio_table("dir_def", 1,
		[ [ 1, $text{'add_all'} ],
		  [ 0, $text{'add_subdir'}, &ui_textbox("dir", undef, 40, undef, undef, " placeholder=\"$text{'add_tip_under'} @{[&quote_escape($d->{'public_html_dir'})]}/\"") ],
		  [ 2, $text{'add_subcgi'}, &ui_textbox("cgi", undef, 40, undef, undef, " placeholder=\"$text{'add_tip_under'} @{[&quote_escape($d->{'cgi_bin_dir'})]}/\"") ] ]));

# Authentication realm
print &ui_table_row(&hlink($text{'add_desc'}, 'add_desc'),
	&ui_textbox("desc", undef, 40));

print &ui_table_end();
print &ui_form_end([ [ "create", $text{'create'} ] ]);

&ui_print_footer("index.cgi?dom=$in{'dom'}", $text{'index_return'});

Private