[freeside] svc_domain errors

[Stephen D. Bechard]

I see that quite a few files were updated.
I will check them out and see where I end up.
Thanks,
Steve

> 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
>