File manager - Edit - /usr/share/webmin/bind8/whois.cgi
Back
#!/usr/bin/perl # whois.cgi # Call whois to get zone info use strict; use warnings; no warnings 'redefine'; no warnings 'uninitialized'; our (%access, %text, %in, %config); require './bind8-lib.pl'; &ReadParse(); $access{'whois'} || &error($text{'whois_ecannot'}); my $zone = &get_zone_name_or_error($in{'zone'}, $in{'view'}); my $dom = $zone->{'name'}; &can_edit_zone($zone) || &error($text{'master_ecannot'}); my $tv = $zone->{'type'}; $dom =~ s/\.$//; &ui_print_header(&zone_subhead($zone), $text{'whois_title'}, "", undef, undef, undef, undef, &restart_links($zone)); my $qdom = quotemeta($dom); my $cmd = "$config{'whois_cmd'} $qdom"; my $pcmd = "$config{'whois_cmd'} $dom"; my $out = `$cmd 2>&1`; if ($out =~ /whois\s+server:\s+(\S+)/i) { $cmd = "$config{'whois_cmd'} -h ".quotemeta($1)." $qdom"; $pcmd = "$config{'whois_cmd'} -h $1 $dom"; $out = `$cmd 2>&1`; } print &ui_table_start(&text('whois_header', "<tt>".&html_escape($pcmd)."</tt>"), "width=100%", 2); print &ui_table_row(undef, "<pre>".&html_escape($out)."</pre>", 2); print &ui_table_end(); &ui_print_footer(&redirect_url($tv, $in{'zone'}, $in{'view'}), $text{'master_return'});
| ver. 1.4 |
Github
|
.
| PHP 7.4.33 | Generation time: 0.5 |
proxy
|
phpinfo
|
Settings