|
|
|
|
@ -46,54 +46,52 @@ $ua->ssl_opts(
|
|
|
|
|
|
|
|
|
|
my @links = $res->header('Link');
|
|
|
|
|
my $rels = { applyrewrites => 1,
|
|
|
|
|
subscriberpreferences => 1,
|
|
|
|
|
subscriberpreferencedefs => 1,
|
|
|
|
|
domainpreferencedefs => 1,
|
|
|
|
|
billingzones => 1,
|
|
|
|
|
systemcontacts => 1,
|
|
|
|
|
domains => 1,
|
|
|
|
|
autoattendants => 1,
|
|
|
|
|
billingfees => 1,
|
|
|
|
|
rewriterules => 1,
|
|
|
|
|
resellers => 1,
|
|
|
|
|
rewriterules => 1,
|
|
|
|
|
resellers => 1,
|
|
|
|
|
rewriterulesets => 1,
|
|
|
|
|
customercontacts => 1,
|
|
|
|
|
billingprofiles => 1,
|
|
|
|
|
billingzones => 1,
|
|
|
|
|
callcontrols => 1,
|
|
|
|
|
customers => 1,
|
|
|
|
|
customerpreferences => 1,
|
|
|
|
|
customerpreferencedefs => 1,
|
|
|
|
|
domainpreferences => 1,
|
|
|
|
|
subscribers => 1,
|
|
|
|
|
callforwards => 1,
|
|
|
|
|
calls => 1,
|
|
|
|
|
cfdestinationsets => 1,
|
|
|
|
|
cftimesets => 1,
|
|
|
|
|
cfmappings => 1,
|
|
|
|
|
pbxdevices => 1,
|
|
|
|
|
pbxdeviceprofiles => 1,
|
|
|
|
|
cftimesets => 1,
|
|
|
|
|
customercontacts => 1,
|
|
|
|
|
customerpreferencedefs => 1,
|
|
|
|
|
customerpreferences => 1,
|
|
|
|
|
customers => 1,
|
|
|
|
|
customerzonecosts => 1,
|
|
|
|
|
domainpreferencedefs => 1,
|
|
|
|
|
domainpreferences => 1,
|
|
|
|
|
domains => 1,
|
|
|
|
|
emailtemplates => 1,
|
|
|
|
|
faxserversettings => 1,
|
|
|
|
|
ncoslevels => 1,
|
|
|
|
|
ncospatterns => 1,
|
|
|
|
|
pbxdeviceconfigs => 1,
|
|
|
|
|
pbxdevicemodels => 1,
|
|
|
|
|
pbxdeviceprofiles => 1,
|
|
|
|
|
pbxdevices => 1,
|
|
|
|
|
reminders => 1,
|
|
|
|
|
resellers => 1,
|
|
|
|
|
rewriterules => 1,
|
|
|
|
|
rewriterulesets => 1,
|
|
|
|
|
soundfilerecordings => 1,
|
|
|
|
|
soundfiles => 1,
|
|
|
|
|
soundhandles => 1,
|
|
|
|
|
soundsets => 1,
|
|
|
|
|
speeddials => 1,
|
|
|
|
|
emailtemplates => 1,
|
|
|
|
|
subscriberpreferencedefs => 1,
|
|
|
|
|
subscriberpreferences => 1,
|
|
|
|
|
subscriberprofiles => 1,
|
|
|
|
|
subscriberprofilesets => 1,
|
|
|
|
|
voicemails => 1,
|
|
|
|
|
voicemailrecordings => 1,
|
|
|
|
|
soundsets => 1,
|
|
|
|
|
soundfiles => 1,
|
|
|
|
|
soundfilerecordings => 1,
|
|
|
|
|
reminders => 1,
|
|
|
|
|
subscriberregistrations => 1,
|
|
|
|
|
subscribers => 1,
|
|
|
|
|
systemcontacts => 1,
|
|
|
|
|
trustedsources => 1,
|
|
|
|
|
voicemailrecordings => 1,
|
|
|
|
|
voicemails => 1,
|
|
|
|
|
voicemailsettings => 1,
|
|
|
|
|
subscriberregistrations => 1,
|
|
|
|
|
calls => 1,
|
|
|
|
|
customerzonecosts => 1,
|
|
|
|
|
autoattendants => 1,
|
|
|
|
|
faxserversettings => 1,
|
|
|
|
|
ncoslevels => 1,
|
|
|
|
|
ncospatterns => 1,
|
|
|
|
|
soundhandles => 1,
|
|
|
|
|
};
|
|
|
|
|
foreach my $link(@links) {
|
|
|
|
|
my $rex = qr!^</api/[a-z]+/>; rel="collection http://purl\.org/sipwise/ngcp-api/#rel-([a-z]+s)"$!;
|
|
|
|
|
|