JSApi Perl

 > ln -s /usr/lib/perl5/5.12.3/i586-linux-thread-multi/CORE/libperl.so libperl.so
 > ln -s libsosperlscript.5.12.0.so libsosperlscript.so

<job>
	<script language="perlScript">
	<![CDATA[
		sub spooler_init \{
    			my $rc = 1;
    
    			$spooler_log->info("spooler_init");  
    
    			return $rc;
  		\}
  			
  			
  		sub spooler_process \{
    			my $rc = 1;
    
    			$spooler_log->info("spooler_process");
    			$spooler_log->info($spooler_job->name . " is running"); 

    			return signal_return($rc);
  		\}
  			
  			
  		sub spooler_exit \{
     
     			$spooler_log->info("spooler_exit"); 

  		\}
  			
  			
  		###################################################
  		# This method provides that the method   
  		# spooler_process is called only for one time.
  		#
  		# Standalone Jobs: 
  		# JobScheduler continues calling the spooler_process 
  		# method until it returns 0.
  		#  
  		# Order Jobs in a Job Chain: 
  		# The Order acquires the next node in the Job Chain 
  		# if spooler_process returns 1
  		# and the error node if spooler_process returns 0
  		#
  		# see http://www.sos-berlin.com/doc/en/scheduler.doc/api/Job_impl-perl.xml#method__spooler_process
  		###################################################
  		sub signal_return \{
    			my ($rc) = @_;
    			if(defined($spooler_task->order)) \{ #is an Order Job
    	 			return $rc;
    			\}
    			return 0;
  		\}
  			
        ]]>
	</script>
	<run_time/>
</job>