--- nfo/perl/libs/OEF/YAA/Jobs.pm	2003/03/27 15:39:55	1.1
+++ nfo/perl/libs/OEF/YAA/Jobs.pm	2003/04/04 17:29:49	1.3
@@ -1,7 +1,14 @@
 ## -------------------------------------------------------------------------
-##  $Id: Jobs.pm,v 1.1 2003/03/27 15:39:55 joko Exp $
+##  $Id: Jobs.pm,v 1.3 2003/04/04 17:29:49 joko Exp $
 ## -------------------------------------------------------------------------
 ##  $Log: Jobs.pm,v $
+##  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 +26,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 +54,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 +71,7 @@
         code => \&getTaskInfo,
         signature => [ 'struct string' ],
         help => "",
+        protected => 1,
       },
       {
         name => "runTask",
@@ -68,6 +80,7 @@
         code => \&runTask,
         signature => [ 'string string' ],
         help => "",
+        protected => 1,
       },
     ];
     $self->register($procs);