diff options
| author | rsiddall <rsiddall> | 2009-05-15 19:41:34 +0000 |
|---|---|---|
| committer | rsiddall <rsiddall> | 2009-05-15 19:41:34 +0000 |
| commit | ad84bf7cfdb56aa1fe268ea315b7a2f7dd768db2 (patch) | |
| tree | 22715493769195be6ba6672162ac6283801fb08a /httemplate/edit/process/part_export.cgi | |
| parent | 5f675c352a10f555de5831bb76ab00b35b6b9bd1 (diff) | |
Simple domain registration at Tucows OpenSRS using an export based on Net::OpenSRS.
When a domain is added and the export runs, it will register the domain or
initiate a transfer. You can also choose no action.
There's currently no provision for revoking domains or renewing
registrations.
Depending on the settings at OpenSRS, orders may look like they've succeeded
in Freeside but actually be queued pending input by the reseller at OpenSRS.
The part_export CGIs were modified to allow a multi-valued select to be used
to control which TLDs are enabled for registration.
Diffstat (limited to 'httemplate/edit/process/part_export.cgi')
| -rw-r--r-- | httemplate/edit/process/part_export.cgi | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/httemplate/edit/process/part_export.cgi b/httemplate/edit/process/part_export.cgi index b5f82e892..209419f0b 100644 --- a/httemplate/edit/process/part_export.cgi +++ b/httemplate/edit/process/part_export.cgi @@ -16,7 +16,8 @@ my $old = qsearchs('part_export', { 'exportnum'=>$exportnum } ) if $exportnum; #fixup options #warn join('-', split(',',$cgi->param('options'))); my %options = map { - my $value = $cgi->param($_); + my @values = $cgi->param($_); + my $value = scalar(@values) > 1 ? join (' ', @values) : $values[0]; $value =~ s/\r\n/\n/g; #browsers? (textarea) $_ => $value; } split(',', $cgi->param('options')); |