[freeside-commits] freeside/FS/FS NetworkMonitoringSystem.pm, NONE, 1.1

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory wavetail.420.am:/tmp/cvs-serv777

Added Files:
	NetworkMonitoringSystem.pm 
Log Message:
torrus, 10574

--- NEW FILE: NetworkMonitoringSystem.pm ---
package FS::NetworkMonitoringSystem;

use strict;
use vars qw( $conf $system $AUTOLOAD );
use FS::Conf;
use FS::UID;

FS::UID->install_callback( sub { 
  $conf = new FS::Conf;
  $system = $conf->config('network_monitoring_system');
} );

sub AUTOLOAD {
  my $self = shift;

  my($sub)=$AUTOLOAD;
  $sub =~ s/.*://;

  my $conf = new FS::Conf;
  die "FS::NetworkMonitoringSystem::$AUTOLOAD called, but none configured\n"
    unless $system;

  eval "use FS::NetworkMonitoringSystem::$system;";
  die $@ if $@;

  $self .= "::$system";
  $self->$sub(@_);
}