--- nfo/perl/libs/OEF/YAA/Jobs.pm	2003/03/28 03:07:41	1.2
+++ nfo/perl/libs/OEF/YAA/Jobs.pm	2003/04/04 17:29:49	1.3
@@ -1,7 +1,11 @@
 ## -------------------------------------------------------------------------
-##  $Id: Jobs.pm,v 1.2 2003/03/28 03:07:41 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
 ##
@@ -50,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",
@@ -63,6 +71,7 @@
         code => \&getTaskInfo,
         signature => [ 'struct string' ],
         help => "",
+        protected => 1,
       },
       {
         name => "runTask",
@@ -71,6 +80,7 @@
         code => \&runTask,
         signature => [ 'string string' ],
         help => "",
+        protected => 1,
       },
     ];
     $self->register($procs);