$self->label(@_);
}
+sub cust_main {
+ my $self = shift;
+ (($self->cust_svc || return)->cust_pkg || return)->cust_main || return
+}
+
+sub cust_linked {
+ my $self = shift;
+ defined($self->cust_main);
+}
+
=item check
Checks the validity of fields in this record.
}
- $self->nms_ip_insert;
+ my $nms_ip_error = $self->nms_ip_insert;
+ if ( $nms_ip_error ) {
+ $dbh->rollback if $oldAutoCommit;
+ return "error queuing IP insert: $nms_ip_error";
+ }
if ( exists $options{'jobnums'} ) {
push @{ $options{'jobnums'} }, @jobnums;
my %defaults = ();
my $error = $self->export('getsettings', \%settings, \%defaults);
if ( $error ) {
- #XXX bubble this up better
warn "error running export_getsetings: $error";
- return ( {}, {} );
+ return ( { 'error' => $error }, {} );
}
( \%settings, \%defaults );
}
my %hash = ();
my $error = $self->export('getstatus', \$html, \%hash);
if ( $error ) {
- #XXX bubble this up better
warn "error running export_getstatus: $error";
- return ( '', {} );
+ return ( '', { 'error' => $error } );
}
( $html, \%hash );
}
$conf->config('nms-auto_add-svc_ips');
my $ip_field = $self->table_info->{'ip_field'};
- #XXX perhaps i should be job-queued, i take awhile, right?
- my $nms = new FS::NetworkMonitoringSystem;
- $nms->add_router( $self->$ip_field(),
- $conf->config('nms-auto_add-community')
- );
+ my $queue = FS::queue->new( {
+ 'job' => 'FS::NetworkMonitoringSystem::queued_add_router',
+ 'svcnum' => $self->svcnum,
+ } );
+ $queue->insert( 'FS::NetworkMonitoringSystem',
+ $self->$ip_field(),
+ $conf->config('nms-auto_add-community')
+ );
}
=item nms_delip