1 |
## ------------------------------------------------------------------------- |
2 |
## $Id: Jobs.pm,v 1.2 2003/03/28 03:07:41 joko Exp $ |
3 |
## ------------------------------------------------------------------------- |
4 |
## $Log: Jobs.pm,v $ |
5 |
## ------------------------------------------------------------------------- |
6 |
|
7 |
|
8 |
package OEF::API::Core; |
9 |
|
10 |
use strict; |
11 |
use warnings; |
12 |
|
13 |
use base qw( DesignPattern::Object ); |
14 |
use base qw( OEF::API::Abstract ); |
15 |
|
16 |
|
17 |
use Data::Dumper; |
18 |
|
19 |
# get logger instance |
20 |
my $logger = Log::Dispatch::Config->instance; |
21 |
|
22 |
|
23 |
#my $bizWorks = $main::bizWorks; |
24 |
my $bizProcess = $main::bizProcess; |
25 |
#my $process = $main::bizProcess; |
26 |
|
27 |
#print Dumper($bizProcess); |
28 |
#push @{$process->{app}->{use_databases}}, 'control'; |
29 |
#my $boot = $main::boot; |
30 |
#$boot->_bootDatabases(); |
31 |
|
32 |
|
33 |
sub _api_init { |
34 |
my $self = shift; |
35 |
#return; |
36 |
my $procs = [ |
37 |
{ |
38 |
name => "ping", |
39 |
version => "0.03", |
40 |
hidden => 0, |
41 |
code => \&ping, |
42 |
#signature => [ 'string string' ], |
43 |
#signature => [ 'string array' ], |
44 |
signature => [ |
45 |
'string', |
46 |
'string struct', |
47 |
], |
48 |
help => "", |
49 |
}, |
50 |
]; |
51 |
$self->register($procs); |
52 |
} |
53 |
|
54 |
|
55 |
|
56 |
|
57 |
sub ping { |
58 |
$logger->info( __PACKAGE__ . "->ping... pong........." ); |
59 |
return 'pong'; |
60 |
} |
61 |
|
62 |
|
63 |
|
64 |
1; |
65 |
__END__ |