Project

General

Profile

Bug #7206 » r53-dyndns-clean.php

testkit for r53.class - Jason McCormick, 03/02/2017 07:54 PM

 
1
<?php
2

    
3
include_once("r53.class");
4

    
5
function log_error($l){
6
	printf("LOG: %s\n", $l);
7
	return true;
8
}
9

    
10

    
11
main:
12

    
13
# Pass this your public and private keys
14
$r53 = new Route53("PUBKEY","PRIVKEY");
15
$apiurl = $r53->getApiUrl("ZONEID");
16
$xmlreq = $r53->getRequestBody("domain.example.com", "8.8.8.8", "3600","A");
17
log_error(sprintf("XMLHASH:%s",  hash("sha256",$xmlreq)));
18
$httphead = $r53->getHttpPostHeaders("ZONEID", "us-east-1", hash("sha256",$xmlreq));
19

    
20
if(true){
21
	log_error(sprintf("Sending reuquest to: %s", $apiurl));
22
	foreach($httphead as $hv){
23
		log_error(sprintf("Header: %s", $hv));
24
	}
25
	log_error(sprintf("XMLPOST: %s", $xmlreq));
26
}
27

    
28

    
29
$ch = curl_init();
30
curl_setopt($ch, CURLOPT_URL, $apiurl);
31
curl_setopt($ch, CURLOPT_HTTPHEADER, $httphead);
32
curl_setopt($ch, CURLOPT_POSTFIELDS, $xmlreq);
33

    
34
print curl_exec($ch);
35
print "\n";
36
curl_close($ch);
37

    
38
?>
(1-1/2)