VladPolskiy/webmin
1
0
Fork 0
mirror of https://github.com/webmin/webmin.git synced 2025-07-25 15:09:18 +00:00
Code Issues Packages Projects Releases Wiki Activity

strict/warn

Browse Source
This commit is contained in:
Joe Cooper
2016-06-01 23:44:22 -07:00
parent c51d78c804
commit f846fbd43b
1 changed files with 7 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
bind8/mass_rcreate_form.cgi
View File

@ -1,16 +1,20 @@
#!/usr/local/bin/perl #!/usr/local/bin/perl
# Show a form for adding a record to multiple domains at once # Show a form for adding a record to multiple domains at once
use strict;
use warnings;
our (%text, %in, %config);
require './bind8-lib.pl'; require './bind8-lib.pl';
&ReadParse(); &ReadParse();
&error_setup($text{'rmass_err'}); &error_setup($text{'rmass_err'});
@d = split(/\0/, $in{'d'}); my @d = split(/\0/, $in{'d'});
@d || &error($text{'rmass_enone'}); @d || &error($text{'rmass_enone'});
&ui_print_header(undef, $text{'rmass_title'}, ""); &ui_print_header(undef, $text{'rmass_title'}, "");
print &ui_form_start("mass_rcreate.cgi", "post"); print &ui_form_start("mass_rcreate.cgi", "post");
foreach $d (@d) { my $dc;
foreach my $d (@d) {
print &ui_hidden("d", $d),"\n"; print &ui_hidden("d", $d),"\n";
$dc++; $dc++;
} }
@ -20,7 +24,7 @@ print &ui_table_start($text{'rmass_header'}, undef, 2);
print &ui_table_row($text{'umass_sel'}, $dc); print &ui_table_row($text{'umass_sel'}, $dc);
# Type to add # Type to add
@rtypes = ( 'A', 'CNAME', 'NS', 'MX', 'PTR', 'TXT', 'SPF', my @rtypes = ( 'A', 'CNAME', 'NS', 'MX', 'PTR', 'TXT', 'SPF',
$config{'support_aaaa'} ? ( "AAAA" ) : ( ) ); $config{'support_aaaa'} ? ( "AAAA" ) : ( ) );
print &ui_table_row($text{'rmass_type'}, print &ui_table_row($text{'rmass_type'},
&ui_select("type", "A", &ui_select("type", "A",