One Hat Cyber Team

Your IP: 216.73.216.93
Server IP: 65.108.141.171
Server: Linux server.heloix.com 5.4.0-214-generic #234-Ubuntu SMP Fri Mar 14 23:50:27 UTC 2025 x86_64
Server Software: Apache
PHP Version: 7.4.33
Buat File | Buat Folder

Dir : ~/usr/share/webmin/virtual-server/

Edit File: postgrey.cgi

#!/usr/bin/perl
# Show greylisting enable / disable flag and whitelists

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

# Check if can use
$err = &check_postgrey();
if ($err) {
	print &text('postgrey_failed', $err),"\n";
	if (&can_install_postgrey()) {
		print &ui_form_start("install_postgrey.cgi");
		print &text('postgrey_installdesc'),"\n";
		print &ui_form_end([ [ undef, $text{'postgrey_install'} ] ]);
		}
	&ui_print_footer("", $text{'index_return'});
	return;
	}

# Show button to enable / disable
print $text{'postgrey_desc'},"\n";
$ok = &is_postgrey_enabled();
print &ui_buttons_start();
if ($ok) {
	print &ui_buttons_row("disable_postgrey.cgi",
			 $text{'postgrey_disable'},
			 $text{'postgrey_disabledesc'});
	}
else {
	print &ui_buttons_row("enable_postgrey.cgi",
			 $text{'postgrey_enable'},
			 $text{'postgrey_enabledesc'});
	}
print &ui_buttons_end();

if ($ok) {
	# Show whitelists of emails and clients
	$formno = 1;
	print &ui_hr();
	@tabs = map { [ $_, $text{'postgrey_tab'.$_},
			'postgrey.cgi?type='.&urlize($_) ] }
		    @postgrey_data_types;
	print &ui_tabs_start(\@tabs, 'type', $in{'type'} || $tabs[0]->[0], 1);

foreach $t (@postgrey_data_types) {
		print &ui_tabs_start_tab('type', $t);
		$data = &list_postgrey_data($t);
		if ($data) {
			# Show in editable table
			@table = ( );
			foreach $d (@$data) {
				push(@table, [
				 { 'type' => 'checkbox', 'name' => 'd',
				 'value' => $d->{'index'} },
				 "<a href='edit_postgrey.cgi?type=$t&".
				 "index=$d->{'index'}'>".
				 &html_escape($d->{'value'})."</a>",
				 $d->{'re'} ? $text{'yes'} : $text{'no'},
				 &html_escape(join(" ", @{$d->{'cmts'}})),
				 ]);
				}
			print &ui_form_columns_table(
				"delete_postgrey.cgi",
				[ [ undef, $text{'postgrey_delete'} ] ],
				1,
				[ [ "edit_postgrey.cgi?type=$t&new=1",
				 $text{'postgrey_add'.$t} ] ],
				[ [ 'type', $t ] ],
				[ '', $text{'postgrey_head'.$t},
				 $text{'postgrey_re'}, 
				 $text{'postgrey_cmts'} ],
				100,
				\@table,
				undef,
				0,
				undef,
				$text{'postgrey_none'.$t},
				$formno++,
				);
			}
		else {
			# Could not get file
			print "$text{'postgrey_nofile'}\n";
			}
		print &ui_tabs_end_tab('type', $t);
		}

print &ui_tabs_end(1);
	}

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