Attachment 35447 Details for Bug 57210 – razor.patch

[patch] razor.patch

razor.patch (text/plain), 1.03 KB, created by Matthew Seaman on 2003-09-25 14:40:20 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Matthew Seaman

Created: 2003-09-25 14:40:20 UTC

Size: 1.03 KB

patch

obsolete

>--- Client/Config.pm~	2002-11-25 19:13:59.000000000 +0100
>+++ Client/Config.pm	2002-11-11 19:29:17.000000000 +0100
>@@ -373,6 +373,7 @@
>             next unless /=/;
>             my ($attribute, $value) = split /\=/, $_, 2; 
>             $attribute =~ s/^\s+//; $attribute =~ s/\s+$//;
>+            $value = $1  if $value =~ /^(.*)$/;  # untaint!
>             $conf->{$attribute} = $self->parse_value($value);
>         }
>         $total++;
>--- Client/Core.pm~	2002-11-25 19:07:38.000000000 +0100
>+++ Client/Core.pm	2002-11-25 18:55:35.000000000 +0100
>@@ -216,8 +216,10 @@
>         foreach $rr ($query->answer) { 
>             my $pushed = 0;
>             if ($rr->type eq "A") { 
>-                push @list, $rr->address; 
>-                $pushed = 1;
>+                if ($rr->address =~ m/^(\d+\.\d+\.\d+\.\d+)$/) {
>+                    push @list, $1; 
>+                    $pushed = 1;
>+                }
>             } elsif ($rr->type eq "CNAME") { 
>                 if ($rr->cname eq 'list.terminator') { 
>                     pop @list if $pushed;

Actions: View | Diff

Attachments on bug 57210: 35447