X-Git-Url: https://git.tokkee.org/?a=blobdiff_plain;f=gosa-si%2Fmodules%2FGosaPackages.pm;h=18879d691480d3e77f58dab54e3a148c4750b14b;hb=7310e0e4833b082128261c277424fdb73a7e31f1;hp=04a1f29c575d0a5ea1c1b22047aa147afb104617;hpb=6e7c37f8affa32f73e01a162f6426b32aefa14e7;p=gosa.git

diff --git a/gosa-si/modules/GosaPackages.pm b/gosa-si/modules/GosaPackages.pm
index 04a1f29c5..18879d691 100644
--- a/gosa-si/modules/GosaPackages.pm
+++ b/gosa-si/modules/GosaPackages.pm
@@ -7,54 +7,39 @@ use strict;
 use warnings;
 use GOSA::GosaSupportDaemon;
 use IO::Socket::INET;
+use Socket;
 use XML::Simple;
 use File::Spec;
 use Data::Dumper;
 use GOSA::DBsqlite;
 use MIME::Base64;
+use utf8;
 
-my $op_hash = {
-    'eq' => '=',
-    'ne' => '!=',
-    'ge' => '>=',
-    'gt' => '>',
-    'le' => '<=',
-    'lt' => '<',
-};
+my $event_dir = "/usr/lib/gosa-si/server/events";
+use lib "/usr/lib/gosa-si/server/events";
 
 BEGIN{}
 END{}
 
-my ($server_activ, $server_ip, $server_mac_address, $server_port, $server_passwd, $max_clients, $server_event_dir);
-my ($bus_activ, $bus_passwd, $bus_ip, $bus_port);
-my ($gosa_activ, $gosa_ip, $gosa_mac_address, $gosa_port, $gosa_passwd, $network_interface);
+my ($server_ip, $server_mac_address, $server_port, $server_passwd, $max_clients);
+my ($gosa_ip, $gosa_mac_address, $gosa_port, $gosa_passwd, $network_interface);
 my ($job_queue_timeout, $job_queue_file_name);
 
 my $gosa_server;
-
-my %cfg_defaults = 
-("general" =>
-    {"job_queue_file_name" => [\$job_queue_file_name, '/var/lib/gosa-si/jobs.db'],
-    },
-"server" =>
-    {"server_activ" => [\$server_activ, "on"],
-    "server_ip" => [\$server_ip, "0.0.0.0"],
-    "server_port" => [\$server_port, "20081"],
-    "server_passwd" => [\$server_passwd, ""],
-    "max_clients" => [\$max_clients, 100],
-    "server_event_dir" => [\$server_event_dir, '/usr/lib/gosa-si/server/events'],
+my $event_hash;
+
+my %cfg_defaults = (
+"server" => {
+    "ip" => [\$server_ip, "0.0.0.0"],
+    "port" => [\$server_port, "20081"],
+    "key" => [\$server_passwd, ""],
+    "max-clients" => [\$max_clients, 100],
     },
-"bus" =>
-    {"bus_activ" => [\$bus_activ, "on"],
-    "bus_passwd" => [\$bus_passwd, ""],
-    "bus_ip" => [\$bus_ip, "0.0.0.0"],
-    "bus_port" => [\$bus_port, "20080"],
-    },
-"gosa" =>
-    {"gosa_activ" => [\$gosa_activ, "on"],
-    "gosa_ip" => [\$gosa_ip, "0.0.0.0"],
-    "gosa_port" => [\$gosa_port, "20082"],
-    "gosa_passwd" => [\$gosa_passwd, "none"],
+"GOsaPackages" => {
+    "ip" => [\$gosa_ip, "0.0.0.0"],
+    "port" => [\$gosa_port, "20082"],
+    "key" => [\$gosa_passwd, "none"],
+    "job-queue" => [\$job_queue_file_name, '/var/lib/gosa-si/jobs.db'],
     },
 );
  
@@ -67,23 +52,24 @@ $network_interface= &get_interface_for_ip($server_ip);
 $gosa_mac_address= &get_mac($network_interface);
 
 # complete addresses
-my $server_address = "$server_ip:$server_port";
-my $bus_address = "$bus_ip:$bus_port";
+if( inet_aton($server_ip) ){ $server_ip = inet_ntoa(inet_aton($server_ip)); } 
+our $server_address = "$server_ip:$server_port";
+if( inet_aton($gosa_ip) ){ $gosa_ip = inet_ntoa(inet_aton($gosa_ip)); }
 my $gosa_address = "$gosa_ip:$gosa_port";
 
 # create general settings for this module
-my $gosa_cipher = &create_ciphering($gosa_passwd);
+#y $gosa_cipher = &create_ciphering($gosa_passwd);
 my $xml = new XML::Simple();
 
 
+# import events
+&import_events();
+
 ## FUNCTIONS #################################################################
 
 sub get_module_info {
     my @info = ($gosa_address,
                 $gosa_passwd,
-                $gosa_server,
-                $gosa_activ,
-                "socket",
                 );
     return \@info;
 }
@@ -235,29 +221,34 @@ sub get_ip {
         return $result;
 }
 
-#===  FUNCTION  ================================================================
-#         NAME:  open_socket
-#   PARAMETERS:  PeerAddr string something like 192.168.1.1 or 192.168.1.1:10000
-#                [PeerPort] string necessary if port not appended by PeerAddr
-#      RETURNS:  socket IO::Socket::INET
-#  DESCRIPTION:  open a socket to PeerAddr
-#===============================================================================
-sub open_socket {
-    my ($PeerAddr, $PeerPort) = @_ ;
-    if(defined($PeerPort)){
-        $PeerAddr = $PeerAddr.":".$PeerPort;
+
+sub import_events {
+    if (not -e $event_dir) {
+        &main::daemon_log("ERROR: cannot find directory or directory is not readable: $event_dir", 1);   
     }
-    my $socket;
-    $socket = new IO::Socket::INET(PeerAddr => $PeerAddr ,
-            Porto => "tcp" ,
-            Type => SOCK_STREAM,
-            Timeout => 5,
-            );
-    if(not defined $socket) {
-        return;
+    opendir (DIR, $event_dir) or die "ERROR while loading gosa-si-events from directory $event_dir : $!\n";
+
+    while (defined (my $event = readdir (DIR))) {
+        if( $event eq "." || $event eq ".." ) { next; }   
+        if( $event eq "siTriggered.pm" ) { next; }      # SI specific events not needed in GosaPackages.pm
+        if( $event eq "clMessages.pm" ) { next; }                    # SI specific events not needed in GosaPackages.pm
+
+        eval{ require $event; };
+        if( $@ ) {
+            &main::daemon_log("ERROR: import of event module '$event' failed", 1);
+            &main::daemon_log("$@", 1);
+            next;
+        }
+
+        $event =~ /(\S*?).pm$/;
+        my $event_module = $1;
+        my $events_l = eval( $1."::get_events()") ;
+        foreach my $event_name (@{$events_l}) {
+            $event_hash->{$event_name} = $event_module;
+        }
+        my $events_string = join( ", ", @{$events_l});
+        &main::daemon_log("INFO: GosaPackages imported events $events_string", 5);
     }
-    &main::daemon_log("open_socket to: $PeerAddr", 7);
-    return $socket;
 }
 
 
@@ -268,308 +259,171 @@ sub open_socket {
 #  DESCRIPTION:  handels the proceeded distribution to the appropriated functions
 #===============================================================================
 sub process_incoming_msg {
-    my ($crypted_msg) = @_ ;
-	&main::daemon_log("Got message $crypted_msg", 8);
-	if( (not(defined($crypted_msg))) || (length($crypted_msg) <= 0)) {
-        &main::daemon_log("function 'process_incoming_msg': got no msg", 7);
-        return;
-    }
-
-    $crypted_msg =~ /^([\s\S]*?)\.(\d{1,3}?)\.(\d{1,3}?)\.(\d{1,3}?)\.(\d{1,3}?)$/;
-    $crypted_msg = $1;
-	my $host = sprintf("%s.%s.%s.%s", $2, $3, $4, $5);
- 
-    # collect addresses from possible incoming clients
-    # only gosa is allowd as incoming client
-    &main::daemon_log("GosaPackages: host_key: $host", 7);
-    &main::daemon_log("GosaPackages: key_passwd: $gosa_passwd", 7);
-
-    $gosa_cipher = &create_ciphering($gosa_passwd);
-
-    # determine the correct passwd for deciphering of the incoming msgs
-    my $msg = "";
-    my $msg_hash;
-    eval{
-        $msg = &decrypt_msg($crypted_msg, $gosa_cipher);
-        &main::daemon_log("GosaPackages: decrypted_msg: \n$msg", 8);
-
-        $msg_hash = $xml->XMLin($msg, ForceArray=>1);
-    };
-    if($@) {
-        &main::daemon_log("WARNING: GosaPackages do not understand the message:", 5);
-        &main::daemon_log("$@", 7);
-        return;
-    }
-
+    my ($msg, $msg_hash, $session_id) = @_ ;
     my $header = @{$msg_hash->{header}}[0];
+    my @msg_l;
+    my @out_msg_l;
+
+    &main::daemon_log("DEBUG: GosaPackages: receive '$header'", 8);
     
-    &main::daemon_log("GosaPackages: receive '$header' from $host", 1);
-    
-    my $out_msg;
     if ($header =~ /^job_/) {
-        $out_msg = &process_job_msg($msg, $msg_hash);
-    } elsif ($header =~ /^gosa_/) {
-        $out_msg = &process_gosa_msg($msg, $header);
-    } else {
-        &main::daemon_log("ERROR: $header is not a valid GosaPackage-header, need a 'job_' or a 'gosa_' prefix");
-    }
-        
-    if (not defined $out_msg) {
-        return;
+        @msg_l = &process_job_msg($msg, $msg_hash, $session_id);
+    } 
+    elsif ($header =~ /^gosa_/) {
+        @msg_l = &process_gosa_msg($msg, $msg_hash, $session_id);
+    } 
+    else {
+        &main::daemon_log("ERROR: $header is not a valid GosaPackage-header, need a 'job_' or a 'gosa_' prefix", 1);
     }
 
-    if ($out_msg =~ /<jobdb_id>(\d*?)<\/jobdb_id>/) {
-        my $job_id = $1;
-        my $sql = "UPDATE '".$main::job_queue_table_name.
-            "' SET status='done', result='".$out_msg.
-            "' WHERE id='$job_id'";
-        my $res = $main::job_db->exec_statement($sql);
-        return;
+    foreach my $out_msg ( @msg_l ) {
 
-    } else {
+        # keep job queue up-to-date and save result and status
+        if (defined ($out_msg) && $out_msg =~ /<jobdb_id>(\d+)<\/jobdb_id>/) {
+            my $job_id = $1;
+            my $sql = "UPDATE '".$main::job_queue_table_name."'".
+                " SET status='processing'".
+                " WHERE id='$job_id'";
+            my $res = $main::job_db->exec_statement($sql);
+        } 
+
+        # substitute in all outgoing msg <source>GOSA</source> of <source>$server_address</source>
+        $out_msg =~ s/<source>GOSA<\/source>/<source>$server_address<\/source>/g;
 
-        my $out_cipher = &create_ciphering($gosa_passwd);
-        $out_msg = &encrypt_msg($out_msg, $out_cipher);
+        if (defined $out_msg){
+            push(@out_msg_l, $out_msg);
+        }
 
-        return $out_msg;
-	}
+    }
 
+    return \@out_msg_l;
 }
 
+
 sub process_gosa_msg {
-    my ($msg, $header) = @_ ;
+    my ($msg, $msg_hash, $session_id) = @_ ;
     my $out_msg;
+    my @out_msg_l;
+    
+    my $header = @{$msg_hash->{'header'}}[0];
     $header =~ s/gosa_//;
 
     # decide wether msg is a core function or a event handler
-    if ( $header eq 'query_jobdb') { $out_msg = &query_jobdb }
-    elsif ($header eq 'delete_jobdb_entry') { $out_msg = &delete_jobdb_entry }
-    elsif ($header eq 'clear_jobdb') { $out_msg = &clear_jobdb }
-    elsif ($header eq 'update_status_jobdb_entry' ) { $out_msg = &update_status_jobdb_entry }
-    elsif ($header eq 'count_jobdb' ) { $out_msg = &count_jobdb }
-    else {
+    if ( $header eq 'query_jobdb') {
+        @out_msg_l = &query_jobdb
+    } elsif ($header eq 'delete_jobdb_entry') {
+        @out_msg_l = &delete_jobdb_entry
+    } elsif ($header eq 'clear_jobdb') {
+        @out_msg_l = &clear_jobdb
+    } elsif ($header eq 'update_status_jobdb_entry' ) {
+        @out_msg_l = &update_status_jobdb_entry
+    } elsif ($header eq 'count_jobdb' ) {
+        @out_msg_l = &count_jobdb
+    } else {
         # msg could not be assigned to core function
-        # fetch all available eventhandler under $server_event_dir
-        opendir (DIR, $server_event_dir) or &main::daemon_log("ERROR cannot open $server_event_dir: $!\n", 1) and return;
-        while (defined (my $file = readdir (DIR))) {
-            if (not $file eq $header) {
-                next;
-            }
-            # try to deliver incoming msg to eventhandler
-            my $cmd = File::Spec->join($server_event_dir, $header)." '$msg'";
-            &main::daemon_log("GosaPackages: execute event_handler $header", 3);
-            &main::daemon_log("GosaPackages: cmd: $cmd", 7);
-
-            $out_msg = "";
-            open(PIPE, "$cmd 2>&1 |");
-            while(<PIPE>) {
-                $out_msg.=$_;
-            }
-            close(PIPE);
-            &main::daemon_log("GosaPackages: answer of cmd: $out_msg", 5);
-            last;
-        }
+        # maybe it is an eventa
+        if( exists $event_hash->{$header} ) {
+            # a event exists with the header as name
+            &main::daemon_log("found event '$header' at event-module '".$event_hash->{$header}."'", 5);
+            no strict 'refs';
+            @out_msg_l = &{$event_hash->{$header}."::$header"}($msg, $msg_hash, $session_id);
+         }
     }
 
     # if delivery not possible raise error and return 
-    if (not defined $out_msg) {
+    if( not @out_msg_l ) {
         &main::daemon_log("ERROR: GosaPackages: no event handler or core function defined for $header", 1);
-    } elsif ($out_msg eq "") {
+    } elsif( 0 == @out_msg_l) {
         &main::daemon_log("ERROR: GosaPackages got not answer from event_handler $header", 1);
-    }
-    return $out_msg;
-    
+    } 
+
+    return @out_msg_l;
 }
 
 
 sub process_job_msg {
-    my ($msg, $msg_hash)= @_ ;    
+    my ($msg, $msg_hash, $session_id)= @_ ;    
+    my $out_msg;
+    my $error = 0;
 
-    my $header = @{$msg_hash->{header}}[0];
+    my $header = @{$msg_hash->{'header'}}[0];
     $header =~ s/job_//;
     
-    # check wether mac address is already known in known_daemons or known_clients
-    my $target = 'none';
-
-    # add job to job queue
-    my $func_dic = {table=>$main::job_queue_table_name, 
-                    primkey=>'id',
-                    timestamp=>@{$msg_hash->{timestamp}}[0],
-                    status=>'waiting', 
-                    result=>'none',
-                    headertag=>$header, 
-                    targettag=>$target,
-                    xmlmessage=>$msg,
-                    macaddress=>@{$msg_hash->{mac}}[0],
-                    };
-    my $res = $main::job_db->add_dbentry($func_dic);
-    if (not $res == 0) {
-        &main::daemon_log("ERROR: GosaPackages: process_job_msg: $res", 1);
+    # if no timestamp is specified, use 19700101000000
+    my $timestamp = "19700101000000";
+    if( exists $msg_hash->{'timestamp'} ) {
+        $timestamp = @{$msg_hash->{'timestamp'}}[0];
     }
-    
-    &main::daemon_log("GosaPackages: $header job successfully added to job queue", 3);
-    return "<xml><answer1>$res</answer1></xml>";
-
-}
-
-
-sub db_res_2_xml {
-    my ($db_res) = @_ ;
 
-    my $xml = "<xml>";
-
-    while ( my ($hit, $hash) = each %{ $db_res } ) {
-        $xml .= "\n<answer$hit>";
-
-        while ( my ($column_name, $column_value) = each %{$hash} ) {
-            $xml .= "<$column_name>";
-            my $xml_content;
-            if( $column_name eq "xmlmessage" ) {
-                $xml_content = &encode_base64($column_value);
-            } else {
-                $xml_content = $column_value;
-            }
-            $xml .= $xml_content;
-            $xml .= "</$column_name>"; 
-        }
-
-        $xml .= "</answer$hit>";
+    #if no macaddress is specified, raise error 
+    my $macaddress;
+    if( exists $msg_hash->{'macaddress'} ) {
+        $macaddress = @{$msg_hash->{'macaddress'}}[0];
+    } else {
+        $error ++;
+        $out_msg = "<xml>".
+            "<header>answer</header>".
+            "<source>$server_address</source>".
+            "<target>GOSA</target>".
+            "<answer1>1</answer1>".
+            "<error_string>no mac address specified</error_string>".
+            "</xml>";
     }
-
-    $xml .= "</xml>";
-    return $xml;
-}
-
-
-## CORE FUNCTIONS ############################################################
-
-sub get_where_statement {
-    my ($msg, $msg_hash)= @_;
-    my $error= 0;
     
-    my $clause_str= "";
-    if( not exists @{$msg_hash->{'where'}}[0]->{'clause'} ) { $error++; };
-    if( $error == 0 ) {
-        my @clause_l;
-        my @where = @{@{$msg_hash->{'where'}}[0]->{'clause'}};
-        foreach my $clause (@where) {
-            my $connector = $clause->{'connector'}[0];
-            if( not defined $connector ) { $connector = "AND"; }
-            $connector = uc($connector);
-            delete($clause->{'connector'});
-
-            my @phrase_l ;
-            foreach my $phrase (@{$clause->{'phrase'}}) {
-                my $operator = "=";
-                if( exists $phrase->{'operator'} ) {
-                    my $op = $op_hash->{$phrase->{'operator'}[0]};
-                    if( not defined $op ) {
-                        &main::daemon_log("Can not translate operator '$operator' in where ".
-                                "statement to sql valid syntax. Please use 'eq', ".
-                                "'ne', 'ge', 'gt', 'le', 'lt' in xml message\n", 1);
-                        &main::daemon_log($msg, 8);
-                        $op = "=";
-                    }
-                    $operator = $op;
-                    delete($phrase->{'operator'});
-                }
-
-                my @xml_tags = keys %{$phrase};
-                my $tag = $xml_tags[0];
-                my $val = $phrase->{$tag}[0];
-                push(@phrase_l, "$tag$operator'$val'");
-            }
-            my $clause_str .= join(" $connector ", @phrase_l);
-            push(@clause_l, $clause_str);
-        }
-
-        if( not 0 == @clause_l ) {
-            $clause_str = join(" AND ", @clause_l);
-            $clause_str = "WHERE $clause_str ";
-        }
-    }
-
-    return $clause_str;
-}
-
-sub get_select_statement {
-    my ($msg, $msg_hash)= @_;
-    my $select = "*";
-    if( exists $msg_hash->{'select'} ) {
-        my $select_l = \@{$msg_hash->{'select'}};
-        $select = join(' AND ', @{$select_l});
-    }
-    return $select;
-}
-
-
-sub get_update_statement {
-    my ($msg, $msg_hash) = @_;
-    my $error= 0;
-    my $update_str= "";
-    my @update_l; 
-
-    if( not exists $msg_hash->{'update'} ) { $error++; };
+    # check wether mac address is already known in known_daemons or known_clients
+    my $target = 'none';
 
     if( $error == 0 ) {
-        my $update= @{$msg_hash->{'update'}}[0];
-        while( my ($tag, $val) = each %{$update} ) {
-            my $val= @{$update->{$tag}}[0];
-            push(@update_l, "$tag='$val'");
-        }
-        if( 0 == @update_l ) { $error++; };   
-    }
+        # add job to job queue
+        my $func_dic = {table=>$main::job_queue_table_name, 
+            primkey=>'id',
+            timestamp=>$timestamp,
+            status=>'waiting', 
+            result=>'none',
+            progress=>'none',
+            headertag=>$header, 
+            targettag=>$target,
+            xmlmessage=>$msg,
+            macaddress=>$macaddress,
+        };
 
-    if( $error == 0 ) { 
-        $update_str= join(', ', @update_l);
-        $update_str= "SET $update_str ";
+        my $res = $main::job_db->add_dbentry($func_dic);
+        if (not $res == 0) {
+            &main::daemon_log("ERROR: GosaPackages: process_job_msg: $res", 1);
+        } else {
+            &main::daemon_log("INFO: GosaPackages: $header job successfully added to job queue", 5);
+        }
+        $out_msg = "<xml><header>answer</header><source>$server_address</source><target>GOSA</target><answer1>$res</answer1></xml>";
     }
-
-    return $update_str;
+    
+    my @out_msg_l = ( $out_msg );
+    return @out_msg_l;
 }
 
-sub get_limit_statement {
-    my ($msg, $msg_hash)= @_; 
-    my $error= 0;
-    my $limit_str = "";
-    my ($from, $to);
 
-    if( not exists $msg_hash->{'limit'} ) { $error++; };
 
-    if( $error == 0 ) {
-        eval {
-            my $limit= @{$msg_hash->{'limit'}}[0];
-            $from= @{$limit->{'from'}}[0];
-            $to= @{$limit->{'to'}}[0];
-        };
-        if( $@ ) {
-            $error++;
-        }
-    }
-
-    if( $error == 0 ) {
-        $limit_str= "LIMIT $from, $to";
-    }   
-    
-    return $limit_str;
-}
+## CORE FUNCTIONS ############################################################
 
 sub query_jobdb {
     my ($msg) = @_;
     my $msg_hash = &transform_msg2hash($msg);
+    my $target = @{$msg_hash->{'target'}}[0];
+    my $source = @{$msg_hash->{'source'}}[0];
 
     # prepare query sql statement
     my $select= &get_select_statement($msg, $msg_hash);
-    my $table= $main::job_queue_table_name;
+    my $table= $main::job_queue_tn;
     my $where= &get_where_statement($msg, $msg_hash);
     my $limit= &get_limit_statement($msg, $msg_hash);
-    my $sql_statement= "SELECT $select FROM $table $where $limit";
+    my $orderby= &get_orderby_statement($msg, $msg_hash);
+    my $sql_statement= "SELECT $select FROM $table $where $orderby $limit";
 
     # execute db query   
     my $res_hash = $main::job_db->select_dbentry($sql_statement);
-    my $out_xml = &db_res_2_xml($res_hash);
+    my $out_xml = &db_res2si_msg($res_hash, "query_jobdb", $target, $source);
 
-    return $out_xml;
+    my @out_msg_l = ( $out_xml );
+    return @out_msg_l;
 }
 
 
@@ -585,9 +439,9 @@ sub count_jobdb {
     my $res_hash = $main::job_db->select_dbentry($sql_statement);
 
     my $count = keys(%{$res_hash});
-    $out_xml= "<xml><count>$count</count></xml>";
-
-    return $out_xml;
+    $out_xml= "<xml><header>answer</header><source>$server_address</source><target>GOSA</target><count>$count</count></xml>";
+    my @out_msg_l = ( $out_xml );
+    return @out_msg_l;
 }
 
 
@@ -611,8 +465,9 @@ sub delete_jobdb_entry {
     }
 
     # prepare xml answer
-    my $out_xml = "<xml><answer1>$res</answer1></xml>";
-    return $out_xml;
+    my $out_xml = "<xml><header>answer</header><source>$server_address</source><target>GOSA</target><answer1>$res</answer1></xml>";
+    my @out_msg_l = ( $out_xml );
+    return @out_msg_l;
 
 }
 
@@ -630,10 +485,10 @@ sub clear_jobdb {
     if( not $db_res > 0 ) { $error++; };
     
     if( $error == 0 ) {
-        $out_xml = "<xml><answer1>0</answer1></xml>";
+        $out_xml = "<xml><header>answer</header><source>$server_address</source><target>GOSA</target><answer1>0</answer1></xml>";
     }
-   
-    return $out_xml;
+    my @out_msg_l = ( $out_xml );
+    return @out_msg_l;
 }
 
 
@@ -641,7 +496,7 @@ sub update_status_jobdb_entry {
     my ($msg) = @_ ;
     my $msg_hash = &transform_msg2hash($msg);
     my $error= 0;
-    my $out_xml= "<xml><answer1>1</answer1></xml>";
+    my $out_xml= "<xml><header>answer</header><source>$server_address</source><target>GOSA</target><answer1>1</answer1></xml>";
 
     my @len_hash = keys %{$msg_hash};
     if( 0 == @len_hash) {  $error++; };
@@ -652,57 +507,34 @@ sub update_status_jobdb_entry {
         my $where= &get_where_statement($msg, $msg_hash);
         my $update= &get_update_statement($msg, $msg_hash);
 
-        my $sql_statement = "UPDATE $table $update $where";
+        # conditions
+        # no timestamp update if status eq waiting
+        my $res_hash = $main::job_db->select_dbentry("SELECT * FROM $table $where AND status='processing' ");
+        if( (0 != keys(%$res_hash)) && ($update =~ /timestamp/i) ) {
+            $error ++;
+            $out_xml = "<answer1>1</answer1><error_string>there is no timestamp update allowed while status is 'processing'</error_string>";
+        }
+
+        if( $error == 0 ) {
+            my $sql_statement = "UPDATE $table $update $where";
+            # execute db query
+            my $db_res = $main::job_db->update_dbentry($sql_statement);
 
-        # execute db query
-        my $db_res = $main::job_db->update_dbentry($sql_statement);
+            # check success of db update
+            if( not $db_res > 0 ) { $error++; };
 
-        # check success of db update
-        if( not $db_res > 0 ) { $error++; };
+        }
     }
 
     if( $error == 0) {
-        $out_xml = "<xml><answer1>0</answer1></xml>";
+        $out_xml = "<answer1>0</answer1>";
     }
-
-    return $out_xml;
+    
+    my $out_msg = sprintf("<xml><header>answer</header><source>%s</source><target>GOSA</target>%s</xml>", $server_address, $out_xml);
+    my @out_msg_l = ( $out_msg );
+    return @out_msg_l;
 }
 
-#sub update_timestamp_jobdb_entry {
-#    my ($msg) = @_ ;
-#    my $msg_hash = &transform_msg2hash($msg);
-#    
-#    # prepare query sql statement
-#    my $update_hash = {table=>$main::job_queue_table_name };
-#    if( exists $msg_hash->{where} ) {
-#        $update_hash->{where} = $msg_hash->{where};
-#    } else {
-#        $update_hash->{where} = [];
-#    }
-#
-#    if( not exists $msg_hash->{update}[0]->{timestamp} ) {
-#        return "<xml><answer1>1</answer1></xml>";
-#    }
-#
-#    $update_hash->{update} = [ { timestamp=>$msg_hash->{update}[0]->{timestamp} } ];
-#
-#    # execute db query
-#    my $db_res = $main::job_db->update_dbentry($update_hash);
-#
-#    # transform db answer to error returnment
-#    my $res;
-#    if( $db_res > 0 ) { 
-#        $res = 0 ;
-#    } else {
-#        $res = 1;
-#    }
-#
-#    # prepare xml answer
-#    my $out_xml = "<xml><answer1>$res</answer1></xml>";
-#    return $out_xml;
-#
-#}
-
 
 1;