diff options
| author | ivan <ivan> | 2011-11-11 23:20:48 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2011-11-11 23:20:48 +0000 |
| commit | a4202b8b4dd50b19d4cb112603be005b66b260c1 (patch) | |
| tree | 0064cd2068221af817e636e10063862802caefa1 /FS | |
| parent | 80511cb4158b98db01deec317e5408675487bc6e (diff) | |
DSL status pulling, RT#13656
Diffstat (limited to 'FS')
| -rw-r--r-- | FS/FS/part_export/http_status.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/FS/FS/part_export/http_status.pm b/FS/FS/part_export/http_status.pm index 679e2f1bf..a67684092 100644 --- a/FS/FS/part_export/http_status.pm +++ b/FS/FS/part_export/http_status.pm @@ -27,12 +27,14 @@ sub rebless { shift; } sub export_getstatus { my( $self, $svc_x, $htmlref, $hashref ) = @_; - my $url = $self->option('url'); + my $url; + my $urlopt = $self->option('url'); + no strict 'vars'; { no strict 'refs'; ${$_} = $svc_x->getfield($_) foreach $svc_x->fields; - $url = eval(qq("$url")); + $url = eval(qq("$urlopt")); } my $req = HTTP::Request::Common::GET( $url ); |