projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
export host selection per service, RT#17914
[freeside.git]
/
FS
/
FS
/
part_export
/
http_status.pm
diff --git
a/FS/FS/part_export/http_status.pm
b/FS/FS/part_export/http_status.pm
index
2d15231
..
6fbd3fb
100644
(file)
--- a/
FS/FS/part_export/http_status.pm
+++ b/
FS/FS/part_export/http_status.pm
@@
-17,6
+17,7
@@
tie my %options, 'Tie::IxHash',
'svc' => 'svc_dsl',
'desc' => 'Retrieve status information via HTTP or HTTPS',
'options' => \%options,
'svc' => 'svc_dsl',
'desc' => 'Retrieve status information via HTTP or HTTPS',
'options' => \%options,
+ 'no_machine' => 1,
'notes' => <<'END'
Fields from the service can be substituted in the URL as $field.
END
'notes' => <<'END'
Fields from the service can be substituted in the URL as $field.
END
@@
-27,12
+28,17
@@
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;
+ if ( $svc_x->table eq 'svc_dsl' ) {
+ ${$_} = $svc_x->$_() foreach (qw( gateway_access_or_phonenum ));
+ }
- $url = eval(qq(
$url
));
+ $url = eval(qq(
"$urlopt"
));
}
my $req = HTTP::Request::Common::GET( $url );
}
my $req = HTTP::Request::Common::GET( $url );