###############################################################################
use strict;
+use experimental 'smartmatch';
# enable only the following on debugging purpose
#use warnings;
my $use_token = 0;
- # Handle token based auth for various providers.
- if ($provider ~~ ["dns.lightningwirelabs.com", "entrydns.net", "regfish.com",
- "spdns.de", "zzzz.io"] && $username eq "token") {
+ # Check if token based auth is configured.
+ if ($username eq "token") {
$use_token = 1;
+ }
# Handle token auth for freedns.afraid.org and regfish.com.
- } elsif ($provider ~~ ["freedns.afraid.org", "regfish.com"] && $password eq "") {
+ if ($provider ~~ ["freedns.afraid.org", "regfish.com"] && $password eq "") {
$use_token = 1;
$password = $username;