--- nfo/perl/libs/OEF/YAA/Jobs.pm	2003/03/27 15:39:55	1.1
+++ nfo/perl/libs/OEF/YAA/Jobs.pm	2003/04/18 16:04:03	1.4
@@ -1,7 +1,17 @@
 ## -------------------------------------------------------------------------
-##  $Id: Jobs.pm,v 1.1 2003/03/27 15:39:55 joko Exp $
+##  $Id: Jobs.pm,v 1.4 2003/04/18 16:04:03 joko Exp $
 ## -------------------------------------------------------------------------
 ##  $Log: Jobs.pm,v $
+##  Revision 1.4  2003/04/18 16:04:03  joko
+##  new api method: getTaskGroups - returns job groups (just a hash) from some configuration slot
+##
+##  Revision 1.3  2003/04/04 17:29:49  joko
+##  updated signatures: session-based service
+##  enabled method protection
+##
+##  Revision 1.2  2003/03/28 03:07:41  joko
+##  minor fix: 'run_cmd' required here
+##
 ##  Revision 1.1  2003/03/27 15:39:55  joko
 ##  initial commit, jobs -core and -api
 ##
@@ -19,7 +29,7 @@
 
 #use Data::Dumper;
 #use Data::Mungle::Transform::Deep qw( merge_to expand );
-#use shortcuts qw( run_cmd );
+use shortcuts qw( run_cmd );
 
 # get logger instance
 my $logger = Log::Dispatch::Config->instance;
@@ -47,11 +57,15 @@
     my $procs = [
       {
         name => "getTaskList",
-        version => "0.02",
+        version => "0.03",
         hidden => 0,
         code => \&getTaskList,
-        signature => [ 'struct string' ],
+        signature => [
+          'struct string',             # w/o session
+          'struct string struct',    # session initialized (a struct containing a key 'RPCSESSID' will get propagated!)
+        ],
         help => "",
+        protected => 1,
       },
       {
         name => "getTaskInfo",
@@ -60,6 +74,7 @@
         code => \&getTaskInfo,
         signature => [ 'struct string' ],
         help => "",
+        protected => 1,
       },
       {
         name => "runTask",
@@ -68,6 +83,16 @@
         code => \&runTask,
         signature => [ 'string string' ],
         help => "",
+        protected => 1,
+      },
+      {
+        name => "getTaskGroups",
+        version => "0.02",
+        hidden => 0,
+        code => \&getTaskGroups,
+        signature => [ 'struct', 'struct struct' ],
+        help => "",
+        protected => 0,
       },
     ];
     $self->register($procs);
@@ -215,6 +240,17 @@
   }
 
 
+  sub getTaskGroups {
+    my $self = shift;
+
+    $logger->info( __PACKAGE__ . "->getTaskGroups()" );
+    
+    # emulate a row based result
+    my $jobgroups = $bizProcess->{app}->{config}->{jobs}->{groups};
+    
+    return $jobgroups;
+    
+  }
 
 
 1;