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: mass_aedit_form.cgi

#!/usr/bin/perl
# Show a form for manually editing all simple aliases in a text box

require './virtual-server-lib.pl';
&ReadParse();
$d = &get_domain($in{'dom'});
&can_edit_domain($d) || &error($text{'aliases_ecannot'});
&ui_print_header(&domain_in($d), $text{'aedit_title'}, "", "aedit");

print $text{'aedit_help'};
print "<br><tt>$text{'amass_format'}</tt><p>\n";
print &ui_form_start("mass_aedit.cgi", "form-data");

# Find aliases we can edit
@aliases = &list_domain_aliases($d, 1);
foreach my $alias (@aliases) {
	my $simple = &get_simple_alias($d, $alias);
	if ($simple && !$simple->{'auto'}) {
		push(@canaliases, [ $alias, $simple ]);
		print &ui_hidden("orig", $alias->{'from'});
		}
	}
if (scalar(@canaliases) != scalar(@aliases)) {
	print &text('aedit_missing',
		    scalar(@aliases)-scalar(@canaliases)),"<p>\n";
	}

# Make them into a string
$aliases = "";
foreach $can (@canaliases) {
	($alias, $simple) = @$can;

# Alias name
	$name = $alias->{'from'};
	$name =~ s/\@\S+$//;
	if ($name eq "") {
		$aliases .= "*";
		}
	else {
		$aliases .= $name;
		}

# Comment
	$aliases .= ":".$alias->{'cmt'};

# Forward, local and bounce destinations
	$dname = $d->{'dom'};
	foreach $f (@{$simple->{'forward'}}) {
		#$f =~ s/\@\Q$dname\E$//;	# Remove domain
		$aliases .= ":".$f;
		}
	if ($simple->{'local'}) {
		$aliases .= ":local ".$simple->{'local'};
		}
	if ($simple->{'bounce'}) {
		$aliases .= ":bounce";
		}

$aliases .= "\n";
	}

# Show them in a text box
print &ui_hidden("dom", $in{'dom'}),"\n";
print &ui_textarea("aliases", $aliases, 10, 80),"<br>\n";
print &ui_form_end([ [ undef, $text{'save'} ] ]);

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