/[cvs]/nfo/perl/libs/OEF/YAA/Jobs.pm
ViewVC logotype

Diff of /nfo/perl/libs/OEF/YAA/Jobs.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by joko, Thu Mar 27 15:39:55 2003 UTC revision 1.3 by joko, Fri Apr 4 17:29:49 2003 UTC
# Line 2  Line 2 
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
10    ##  minor fix: 'run_cmd' required here
11    ##
12  ##  Revision 1.1  2003/03/27 15:39:55  joko  ##  Revision 1.1  2003/03/27 15:39:55  joko
13  ##  initial commit, jobs -core and -api  ##  initial commit, jobs -core and -api
14  ##  ##
# Line 19  use base qw( OEF::API::Abstract ); Line 26  use base qw( OEF::API::Abstract );
26    
27  #use Data::Dumper;  #use Data::Dumper;
28  #use Data::Mungle::Transform::Deep qw( merge_to expand );  #use Data::Mungle::Transform::Deep qw( merge_to expand );
29  #use shortcuts qw( run_cmd );  use shortcuts qw( run_cmd );
30    
31  # get logger instance  # get logger instance
32  my $logger = Log::Dispatch::Config->instance;  my $logger = Log::Dispatch::Config->instance;
# Line 47  my $bizProcess = $main::bizProcess; Line 54  my $bizProcess = $main::bizProcess;
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",
# Line 60  my $bizProcess = $main::bizProcess; Line 71  my $bizProcess = $main::bizProcess;
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",
# Line 68  my $bizProcess = $main::bizProcess; Line 80  my $bizProcess = $main::bizProcess;
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);

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3

MailToCvsAdmin">MailToCvsAdmin
ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed