From 02a588ff3ded426ae2653f8b6c8284eccfa56194 Mon Sep 17 00:00:00 2001 From: rettenbe Date: Wed, 5 Dec 2007 17:28:46 +0000 Subject: [PATCH] debugging the GosaPackage git-svn-id: https://oss.gonicus.de/repositories/gosa/trunk@8030 594d385d-05f5-0310-b6e9-bd551577e9d8 --- contrib/daemon/modules/GosaPackages.pm | 14 +++++++++++--- 1 file changed, 11 insertions(+), 3 deletions(-) diff --git a/contrib/daemon/modules/GosaPackages.pm b/contrib/daemon/modules/GosaPackages.pm index 3f03d455d..cb22a9c5c 100644 --- a/contrib/daemon/modules/GosaPackages.pm +++ b/contrib/daemon/modules/GosaPackages.pm @@ -45,10 +45,17 @@ sub process_incoming_msg { if(not defined $crypted_msg) { &main::daemon_log("function 'process_incoming_msg': got no msg", 7); } + &main::daemon_log("GosaPackages: crypted_msg:$crypted_msg", 7); + &main::daemon_log("GosaPackages: crypted_msg len:".length($crypted_msg), 7); + $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); - + + &main::daemon_log("GosaPackages: crypted_msg:$crypted_msg", 7); + &main::daemon_log("GosaPackages: crypted_msg len:".length($crypted_msg), 7); + + # collect addresses from possible incoming clients # only gosa is allowd as incoming client &main::daemon_log("GosaPackages: host_key: $host", 7); @@ -59,11 +66,12 @@ sub process_incoming_msg { my $msg_hash; eval{ $msg = &main::decrypt_msg($crypted_msg, $gosa_cipher); + + &main::daemon_log("GosaPackages: decrypted_msg: $msg", 7); $msg_hash = $main::xml->XMLin($msg, ForceArray=>1); }; if($@) { - &main::daemon_log("ERROR: GosaPackages do not understand the message:", 1); - &main::daemon_log("\t$msg", 7); + &main::daemon_log("ERROR: GosaPackages do not understand the message: $@", 1); return; } -- 2.30.2