projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
80511cb
)
DSL status pulling, RT#13656
author
ivan
<ivan>
Fri, 11 Nov 2011 23:20:48 +0000
(23:20 +0000)
committer
ivan
<ivan>
Fri, 11 Nov 2011 23:20:48 +0000
(23:20 +0000)
FS/FS/part_export/http_status.pm
patch
|
blob
|
history
diff --git
a/FS/FS/part_export/http_status.pm
b/FS/FS/part_export/http_status.pm
index
679e2f1
..
a676840
100644
(file)
--- 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 ) = @_;
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;
{
no strict 'refs';
${$_} = $svc_x->getfield($_) foreach $svc_x->fields;
- $url = eval(qq("$url"));
+ $url = eval(qq("$url
opt
"));
}
my $req = HTTP::Request::Common::GET( $url );
}
my $req = HTTP::Request::Common::GET( $url );