Detta exempel visar hur man via Perl ansluter till vår XML-RPC-server och registrerar ett domännamn som betalas med Loopia PrePAID-krediter. Vidare läggs domänkonfiguration upp för att skicka all besökstrafik till 127.0.0.1 både för domänen i sig och eventuella subdomäner.
Notera att kodexemplet nedan inte innehåller någon felhantering för läsbarhetens skull.
Nedan följer koden för ovanstående exempel.
#!/usr/bin/perl use RPC::XML; use RPC::XML::Client; use Data::Dumper; use Encode; my $global_check_domain_server_url = 'https://api.loopia.se/RPCSERV'; my $global_username = "YOUR_USERNAME"; my $global_password = "YOUR_PASSWORD"; my $client = RPC::XML::Client->new($global_check_domain_server_url); $RPC::XML::ENCODING = "UTF-8"; my $response = $client->simple_request('orderDomain', $global_username, $global_password, $domain, RPC::XML::boolean->new(1)); print "Account created: " . Dumper($response) . "\n\n"; die unless defined($response); $response = $client->simple_request('getDomain', $global_username, $global_password, $domain); print "Domain object: " . Dumper($response) . "\n\n"; my $reference_no = $response->{"reference_no"}; my $amount = $response->{"unpaid_amount"}; $response = $client->simple_request('payInvoiceUsingCredits', $global_username, $global_password, RPC::XML::string->new($reference_no)); print "Invoice $reference_no paid ($amount SEK): " . Dumper($response) . "\n\n"; $response = $client->simple_request('addSubdomain', $global_username, $global_password, $domain, "\@"); print "Subdomain added: " . Dumper($response) . "\n\n"; $response = $client->simple_request('addZoneRecord', $global_username, $global_password, $domain, "\@", { "type" => "A", "priority" => undef, "ttl" => "300", "rdata" => "127.0.0.1" }); print "Record added: " . Dumper($response) . "\n\n"; $response = $client->simple_request('addSubdomain', $global_username, $global_password, $domain, "*"); print "Subdomain added: " . Dumper($response) . "\n\n"; $response = $client->simple_request('addZoneRecord', $global_username, $global_password, $domain, "*", { type => "A", "priority" => undef, "ttl" =>"300", "rdata" => "127.0.0.1" }); print "Record added: " . Dumper($response) . "\n\n";
Copyright Loopia AB 1999 - 2024
Loopia är en del av team.blue
Loopia AB, Kopparbergsvägen 8, 722 13 Västerås
Org.nr: 556633-9304
Loopias tjänster drivs av förnybar energi
Vardagar: 8-19 Helger: 11-15
Just nu ser vi en ökning av så kallade e-postbedrägerier/nätfiske-meddelanden där du bland annat ombeds förnya din domän, förnya webbhotell eller att en betalning inte gått igenom.
Vårt råd är att du inte klickar på några länkar och tar bort meddelandet direkt. Även om det kan se så ut vid en första anblick så är dessa e-postmeddelanden ej skickade från er egna e-postadress eller från oss på Loopia.
Du kan se eventuella fakturor från oss i din kundzon, där kan du också se när din domän löper ut.
//Loopia Support