diff options
| author | jeff <jeff> | 2010-09-16 04:18:13 +0000 |
|---|---|---|
| committer | jeff <jeff> | 2010-09-16 04:18:13 +0000 |
| commit | 51f243befb6df099e3faee8aaac3a9ce39741652 (patch) | |
| tree | a9f8c9ecb5d5fc2a6fb857a2869b466ab2b7dfd4 | |
| parent | cbf90a1489e0982e624b1349c948fccf38a82d92 (diff) | |
default registrations to 1 year
| -rw-r--r-- | FS/FS/part_export/domreg_opensrs.pm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/FS/FS/part_export/domreg_opensrs.pm b/FS/FS/part_export/domreg_opensrs.pm index 40049cd54..4dad93909 100644 --- a/FS/FS/part_export/domreg_opensrs.pm +++ b/FS/FS/part_export/domreg_opensrs.pm @@ -379,6 +379,8 @@ Like most export functions, returns an error message on failure or undef on succ sub register { my ( $self, $svc_domain, $years ) = @_; + $years = 1 unless $years; #default to 1 year since we don't seem to pass it + return "Net::OpenSRS does not support period other than 1 year" if $years != 1; eval "use Net::OpenSRS;"; |