| Server IP : 127.0.0.1 / Your IP : 216.73.216.109 Web Server : Apache/2.4.54 (Win64) OpenSSL/1.1.1q PHP/8.1.10 System : Windows NT DESKTOP-E5T4RUN 10.0 build 19045 (Windows 10) AMD64 User : SERVERWEB ( 0) PHP Version : 8.1.10 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : OFF | Perl : OFF | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : C:/cygwin64/home/SERVERWEB/webmin-2.105/zones/ |
Upload File : |
#!/usr/bin/perl
# Show a form for editing a resource control or adding one
require './zones-lib.pl';
do 'forms-lib.pl';
&ReadParse();
$zinfo = &get_zone($in{'zone'});
$zinfo || &error($text{'edit_egone'});
if (!$in{'new'}) {
# Find the rctl object
($rctl) = grep { $_->{'name'} eq $in{'old'} } @{$zinfo->{'rctl'}};
$rctl || &error($text{'rctl_egone'});
}
$p = new WebminUI::Page(&zone_title($in{'zone'}),
$in{'new'} ? $text{'rctl_title1'} : $text{'rctl_title2'},
"rctl");
$p->add_form(&get_rctl_form(\%in, $zinfo, $rctl));
$p->add_footer("edit_zone.cgi?zone=$in{'zone'}", $text{'edit_return'});
$p->print();