summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 8b9b5e5)
raw | patch | inline | side by side (parent: 8b9b5e5)
author | rettenbe <rettenbe@594d385d-05f5-0310-b6e9-bd551577e9d8> | |
Mon, 27 Oct 2008 08:48:11 +0000 (08:48 +0000) | ||
committer | rettenbe <rettenbe@594d385d-05f5-0310-b6e9-bd551577e9d8> | |
Mon, 27 Oct 2008 08:48:11 +0000 (08:48 +0000) |
git-svn-id: https://oss.gonicus.de/repositories/gosa/trunk@12777 594d385d-05f5-0310-b6e9-bd551577e9d8
gosa-si/server/events/opsi_com.pm | patch | blob | history |
index 851a65e02f0e38e2a6fec921bdaa6d77c8e4aa1f..80a5899470df314c82e2a93b52277dda7ffd8ce1 100644 (file)
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) {
}
&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 = {
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 ],
}
} else {
+&main::daemon_log("\n================================== 3.2", 1);
foreach my $r (@{$res->result}) {
$callobj = {
method => 'getProduct_hash',
}
$xml_msg=~ s/<xxx><\/xxx>//;
+&main::daemon_log("\n================================== 4", 1);
# Return message
return ( $xml_msg );
}