[freeside] svc_domain errors

[ivan]

well, since bind export is batch, not real-time, just need something
empty... i checked in some export updates which might help

On Wed, Jun 26, 2002 at 01:07:50PM -0400, Stephen D. Bechard wrote:
> I just tried to add a new domain after the new part_export
> features have been enabled. It worked fine before, but now
> I am getting an error related to a FS/part_export/bind.pm
> that doesn't exists. I didn't find it anywhere on my system
> and I didn't see it on the CVS tree, is this something that
> still needs to be created?
> 
> Thanks,
> Steve
> 
> Below is that Error that I am receiving:
> 
> Errors Output
>   1.. Can't locate FS/part_export/bind.pm in @INC (@INC contains:
> /usr/local/lib/site_perl/5.00503/i386-freebsd /usr/libdata/perl/5.00503/mach
> /usr/libdata/perl/5.00503 /usr/local/lib/perl5/site_perl/5.005/i386-freebsd
> /usr/local/lib/perl5/site_perl/5.005 . /usr/local/ /usr/local/lib/perl) at
> (eval 81) line 1. BEGIN failed--compilation aborted at (eval 81) line 1. ,
> /usr/local/lib/perl5/site_perl/5.005/Apache/ASP.pm line 1545
> Debug Output
>   1.. Can't locate FS/part_export/bind.pm in @INC (@INC contains:
> /usr/local/lib/site_perl/5.00503/i386-freebsd /usr/libdata/perl/5.00503/mach
> /usr/libdata/perl/5.00503 /usr/local/lib/perl5/site_perl/5.005/i386-freebsd
> /usr/local/lib/perl5/site_perl/5.005 . /usr/local/ /usr/local/lib/perl) at
> (eval 81) line 1. BEGIN failed--compilation aborted at (eval 81) line 1. ,
> /usr/local/lib/perl5/site_perl/5.005/Apache/ASP.pm line 1545
> ASP to Perl Script
> 
>   -: package
> Apache::ASP::Compiles::_usr_local_etc_freeside_asp_global_global_asa; ;; sub
> Apache::ASP::Compiles::_usr_local_etc_freeside_asp_global_global_asa::__ASP_
> _usr_local_www_data_aspdocs_edit_process_svc_domain_cgixINL {  ;; package
> Apache::ASP::Compiles::_usr_local_etc_freeside_asp_global_global_asa; ;; no
> strict;;use vars qw($Application $Session $Response $Server $Request);;use
> lib qw(/usr/local/etc/freeside/asp-global/);;;
>   -: #line 1 svc_domain.cgi
>   1: ;
>   2:
>   3: #remove this to actually test the domains!
>   4: $FS::svc_domain::whois_hack = 1;
>   5:
>   6: $cgi->param('svcnum') =~ /^(\d*)$/ or die "Illegal svcnum!";
>   7: my $svcnum = $1;
>   8:
>   9: my $new = new FS::svc_domain ( {
>  10:   map {
>  11:     $_, scalar($cgi->param($_));
>  12:   #} qw(svcnum pkgnum svcpart domain action purpose)
>  13:   } ( fields('svc_domain'), qw( pkgnum svcpart action purpose ) )
>  14: } );
>  15:
>  16: my $error = '';
>  17: if ($cgi->param('svcnum')) {
>  18:   $error="Can't modify a domain!";
>  19: } else {
>  20:   $error=$new->insert;
>  21:   $svcnum=$new->svcnum;
>  22: }
>  23:
>  24: if ($error) {
>  25:   $cgi->param('error', $error);
>  26:   print $cgi->redirect(popurl(2). "svc_domain.cgi?".
> $cgi->query_string );
>  27: } else {
>  28:   print $cgi->redirect(popurl(3). "view/svc_domain.cgi?$svcnum");
>  29: }
>  30:
>  31: ; ;;no lib qw(/usr/local/etc/freeside/asp-global/); ;; }
> 
> 
> 

-- 
_ivan