update for MailTools v2.00
[freeside.git] / FS / FS / ClientAPI.pm
1 package FS::ClientAPI;
2
3 use strict;
4 use vars qw(%handler $domain $DEBUG);
5
6 $DEBUG = 0;
7
8 %handler = ();
9
10 #find modules
11 foreach my $INC ( @INC ) {
12   my $glob = "$INC/FS/ClientAPI/*.pm";
13   warn "FS::ClientAPI: searching $glob" if $DEBUG;
14   foreach my $file ( glob($glob) ) {
15     $file =~ /\/(\w+)\.pm$/ or do {
16       warn "unrecognized ClientAPI file: $file";
17       next
18     };
19     my $mod = $1;
20     warn "using FS::ClientAPI::$mod" if $DEBUG;
21     eval "use FS::ClientAPI::$mod;";
22     die "error using FS::ClientAPI::$mod: $@" if $@;
23   }
24 }
25
26 #---
27
28 sub dispatch {
29   my ( $self, $name ) = ( shift, shift );
30   $name =~ s(/)(::)g;
31   my $sub = "FS::ClientAPI::$name";
32   no strict 'refs';
33   &{$sub}(@_);
34 }
35
36 1;
37