Commit 01bdae47 authored by Gavin Brown's avatar Gavin Brown
Browse files

allow more chars in authInfo, make it longer. fix case

parent 3b4f5334
...@@ -859,10 +859,10 @@ sub handle_domain_clone { ...@@ -859,10 +859,10 @@ sub handle_domain_clone {
} }
sub generate_authinfo { sub generate_authinfo {
my $length = shift || 12; my $length = shift || 16;
my $authinfo; my $authinfo;
my @chars = ('a'..'z'), ('A'..'Z'), (0-9); my @chars = ('a'..'z'), ('A'..'Z'), (0-9), ('!', '#', '$', '%', '&', '(', ')', '*', '+', ',', '-', '.', '/', ':', ';', '<', '=', '>', '?', '[', ']', '^', '_', '{', '|', '}', '~');
$authinfo .= $chars[int(rand(scalar(@chars)))-1] while (length($authinfo) < $length); $authinfo .= $chars[int(rand(scalar(@chars)))-1] while (length($authinfo) < $length);
return $authinfo; return $authinfo;
...@@ -1020,7 +1020,7 @@ sub create_contact { ...@@ -1020,7 +1020,7 @@ sub create_contact {
} elsif ($name =~ /^(city|sp|pc|cc)$/) { } elsif ($name =~ /^(city|sp|pc|cc)$/) {
$postalInfo->{'addr'}->{$name} = $value; $postalInfo->{'addr'}->{$name} = $value;
} elsif ($name eq 'authinfo') { } elsif (lc($name) eq 'authinfo') {
$contact->{'authInfo'} = $value; $contact->{'authInfo'} = $value;
} elsif ($name =~ /^(id|voice|fax|email)$/) { } elsif ($name =~ /^(id|voice|fax|email)$/) {
...@@ -1034,7 +1034,7 @@ sub create_contact { ...@@ -1034,7 +1034,7 @@ sub create_contact {
$contact->{'postalInfo'}->{$type} = $postalInfo; $contact->{'postalInfo'}->{$type} = $postalInfo;
$contact->{'id'} = generate_contact_id() if (length($contact->{'id'}) < 1); $contact->{'id'} = generate_contact_id() if (length($contact->{'id'}) < 1);
$contact->{'authInfo'} = generate_authinfo() if (length($contact->{'authinfo'}) < 1); $contact->{'authInfo'} = generate_authinfo() if (length($contact->{'authInfo'}) < 1);
return $epp->create_contact($contact); return $epp->create_contact($contact);
} }
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment