michael/webmin
1
0
Fork 0
mirror of https://github.com/webmin/webmin.git synced 2026-09-22 05:20:38 +01:00
Code Issues Actions 3 Packages Projects Releases Wiki Activity

Respect modifiers when generating records https://sourceforge.net/p/webadmin/bugs/4566/

Browse Source
This commit is contained in:
Jamie Cameron
2015-02-28 16:13:11 -08:00
parent 975e7ad13f
commit ea838d0500
1 changed files with 13 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
bind8/save_gen.cgi
View File

@@ -42,7 +42,8 @@ if ($in{'show'}) {
$rhs = $gv[3];
$rhs =~ s/\$\$/\0/g;
$rhs =~ s/\$/$i/g;
#$rhs =~ s/\$/$i/g;
$rhs =~ s/(\$(\{[^\}]*\})?)/&expand_mods($i,$2)/ge;
$rhs =~ s/\0/\$/g;
$rhsfull = &check_ipaddress($rhs) ? $rhs :
$rhs =~ /\.$/ ? $rhs :
@@ -108,3 +109,14 @@ for($i=0; defined($in{"type_$i"}); $i++) {
&sign_dnssec_zone_if_key($zone, \@recs);
&redirect("edit_master.cgi?zone=$in{'zone'}&view=$in{'view'}");
sub expand_mods
{
my ($i, $m) = @_;
$m =~ s/^\{//;
$m =~ s/\}$//;
my ($o, $w, $b) = split(/,/, $m);
$b ||= "d";
$i += $o;
$i = sprintf("%".($w ? "0".$w : "").$b, $i);
return $i;
}