1 |
joko |
1.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__ |