2 |
## $Id$ |
## $Id$ |
3 |
## ------------------------------------------------------------------------- |
## ------------------------------------------------------------------------- |
4 |
## $Log$ |
## $Log$ |
5 |
|
## Revision 1.3 2003/04/04 17:29:49 joko |
6 |
|
## updated signatures: session-based service |
7 |
|
## enabled method protection |
8 |
|
## |
9 |
## Revision 1.2 2003/03/28 03:07:41 joko |
## Revision 1.2 2003/03/28 03:07:41 joko |
10 |
## minor fix: 'run_cmd' required here |
## minor fix: 'run_cmd' required here |
11 |
## |
## |
54 |
my $procs = [ |
my $procs = [ |
55 |
{ |
{ |
56 |
name => "getTaskList", |
name => "getTaskList", |
57 |
version => "0.02", |
version => "0.03", |
58 |
hidden => 0, |
hidden => 0, |
59 |
code => \&getTaskList, |
code => \&getTaskList, |
60 |
signature => [ 'struct string' ], |
signature => [ |
61 |
|
'struct string', # w/o session |
62 |
|
'struct string struct', # session initialized (a struct containing a key 'RPCSESSID' will get propagated!) |
63 |
|
], |
64 |
help => "", |
help => "", |
65 |
|
protected => 1, |
66 |
}, |
}, |
67 |
{ |
{ |
68 |
name => "getTaskInfo", |
name => "getTaskInfo", |
71 |
code => \&getTaskInfo, |
code => \&getTaskInfo, |
72 |
signature => [ 'struct string' ], |
signature => [ 'struct string' ], |
73 |
help => "", |
help => "", |
74 |
|
protected => 1, |
75 |
}, |
}, |
76 |
{ |
{ |
77 |
name => "runTask", |
name => "runTask", |
80 |
code => \&runTask, |
code => \&runTask, |
81 |
signature => [ 'string string' ], |
signature => [ 'string string' ], |
82 |
help => "", |
help => "", |
83 |
|
protected => 1, |
84 |
}, |
}, |
85 |
]; |
]; |
86 |
$self->register($procs); |
$self->register($procs); |