From 42e07045660ae643a29cfc407d3ef5be023fae02 Mon Sep 17 00:00:00 2001
From: rettenbe <rettenbe@594d385d-05f5-0310-b6e9-bd551577e9d8>
Date: Mon, 27 Oct 2008 08:48:11 +0000
Subject: [PATCH] debug lines for opsi_get_netboot_product problem

git-svn-id: https://oss.gonicus.de/repositories/gosa/trunk@12777 594d385d-05f5-0310-b6e9-bd551577e9d8
---
 gosa-si/server/events/opsi_com.pm | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/gosa-si/server/events/opsi_com.pm b/gosa-si/server/events/opsi_com.pm
index 851a65e02..80a589947 100644
--- a/gosa-si/server/events/opsi_com.pm
+++ b/gosa-si/server/events/opsi_com.pm
@@ -405,6 +405,7 @@ sub opsi_get_netboot_products {
     my $hostId;
     my $xml_msg;
 
+&main::daemon_log("\n================================== 0", 1);
     # Build return message with twisted target and source
     my $out_hash = &main::create_xml_hash("answer_$header", $main::server_address, $source);
     if (defined $forward_to_gosa) {
@@ -418,8 +419,8 @@ sub opsi_get_netboot_products {
     }
 
     &add_content2xml_hash($out_hash, "xxx", "");
-    $xml_msg= &create_xml_string($out_hash);
-
+    $xml_msg = &create_xml_string($out_hash);
+&main::daemon_log("\n================================== 1", 1);
     # For hosts, only return the products that are or get installed
     my $callobj;
     $callobj = {
@@ -432,9 +433,12 @@ sub opsi_get_netboot_products {
     my %r = ();
     for (@{$res->result}) { $r{$_} = 1 }
 
+&main::daemon_log("\n================================== 2", 1);
     if (not &check_opsi_res($res)){
 
         if (defined $hostId){
+
+&main::daemon_log("\n================================== 3.1", 1);
             $callobj = {
                 method  => 'getProductStates_hash',
                 params  => [ $hostId ],
@@ -480,6 +484,7 @@ sub opsi_get_netboot_products {
             }
 
         } else {
+&main::daemon_log("\n================================== 3.2", 1);
             foreach my $r (@{$res->result}) {
                 $callobj = {
                     method  => 'getProduct_hash',
@@ -503,6 +508,7 @@ sub opsi_get_netboot_products {
     }
     $xml_msg=~ s/<xxx><\/xxx>//;
 
+&main::daemon_log("\n================================== 4", 1);
     # Return message
     return ( $xml_msg );
 }
-- 
2.30.2