[freeside] Importing domains.
Adam Rose
adamr at eaze.net
Mon Jun 11 16:21:27 PDT 2001
Never mind....it started working.?
--Adam
On Mon, 11 Jun 2001, Adam Rose wrote:
> Sorry, didn't mean to send this to the development list.
>
>
> --Adam
>
> ---------- Forwarded message ----------
> Date: Mon, 11 Jun 2001 17:09:04 -0500 (CDT)
> From: Adam Rose <adamr at eaze.net>
> Reply-To: ivan-freeside-devel at sisd.com
> To: ivan-freeside-devel at sisd.com
> Subject: [freeside-devel] Importing domains.
>
> The purpose of my last question was to see about importing domains into
> freeside.
>
> I am having difficulty importing domain names into svc_domain using
> FS::svc_domain. Here is the code that I am writing to import one domain
> for now.
>
> ------
> #!/usr/bin/perl -w
>
> use strict;
> use FS::UID qw(adminsuidsetup datasrc);
> use FS::Record qw(qsearch qsearchs
> use FS::svc_domain;
>
> my $user = shift or die "domain.pl user";
> adminsuidsetup $user;
>
>
> $FS::svc_domain::whois_hack=1;
> my $domain = 'test.com';
>
>
> my ($svc_domain) = new FS::svc_domain ({
> 'svcpart' => 5,
> 'svcnum' =>'',
> 'domain' =>$domain,
> 'action' =>'N',
> });
> my $error = $svc_domain->insert;
> if ($error){
> die $error;
> }
> -------------
> Every time I run this I am getting Domain in use (here). I have delete
> everything from svc_domain and domain_record and still get the same error.
>
>
> freeside 1.3.1
> Linux 2.2.18
> Perl 5.00503
>
>
> --Adam Rose
>
>
>
--
More information about the freeside-users
mailing list