View | Details | Raw Unified | Return to bug 57210
Collapse All | Expand All

(-)Client/Config.pm (+1 lines)
Lines 373-378 Link Here
373 
            next unless /=/;
 373 
            next unless /=/;
374 
            my ($attribute, $value) = split /\=/, $_, 2;
374 
            my ($attribute, $value) = split /\=/, $_, 2;
375 
            $attribute =~ s/^\s+//; $attribute =~ s/\s+$//;
 375 
            $attribute =~ s/^\s+//; $attribute =~ s/\s+$//;
376 
            $value = $1  if $value =~ /^(.*)$/;  # untaint!
376 
            $conf->{$attribute} = $self->parse_value($value);
 377 
            $conf->{$attribute} = $self->parse_value($value);
377 
        }
 378 
        }
378 
        $total++;
 379 
        $total++;
(-)Client/Core.pm (-2 / +4 lines)
Lines 216-223 Link Here
216 
        foreach $rr ($query->answer) {
216 
        foreach $rr ($query->answer) {
217 
            my $pushed = 0;
 217 
            my $pushed = 0;
218 
            if ($rr->type eq "A") {
218 
            if ($rr->type eq "A") {
219 
                push @list, $rr->address;
219 
                if ($rr->address =~ m/^(\d+\.\d+\.\d+\.\d+)$/) {
220 
                $pushed = 1;
 220 
                    push @list, $1;
221 
                    $pushed = 1;
222 
                }
221 
            } elsif ($rr->type eq "CNAME") {
223 
            } elsif ($rr->type eq "CNAME") {
222 
                if ($rr->cname eq 'list.terminator') {
224 
                if ($rr->cname eq 'list.terminator') {
223 
                    pop @list if $pushed;
 225 
                    pop @list if $pushed;

Return to bug 57210