Unless I'm having some regex-fail, I don't think this will match domains/urls with '-' in them.  Should it be
```
validate_re($key_server,['\A((hkp|http|https):\/\/)?([a-z\d-]{0,62}\.)+[a-z\d]+(:\d{2,4})?$'])
```

instead?