index 7ce04da8678258e27b2826f53a3f8e3d3c491d48..d50cdea1600645fa4ed259ffee29409123523ab4 100644 (file)
use GOSA::GosaSupportDaemon;
use Data::Dumper;
-#use IO::Socket::INET;
-#use XML::Simple;
-#use Data::Dumper;
-#use NetAddr::IP;
-#use Net::LDAP;
-#use Socket;
-#use Net::hostent;
-
my $event_dir = "/usr/lib/gosa-si/server/ServerPackages";
use lib "/usr/lib/gosa-si/server/ServerPackages";
# import local events
my ($error, $result, $event_hash) = &import_events($event_dir);
-if ($error == 0) {
- foreach my $log_line (@$result) {
+foreach my $log_line (@$result) {
+ if ($log_line =~ / succeed: /) {
&main::daemon_log("0 DEBUG: ServerPackages - $log_line", 7);
- }
-} else {
- foreach my $log_line (@$result) {
+ } else {
&main::daemon_log("0 ERROR: ServerPackages - $log_line", 1);
}
}
sub get_module_info {
my @info = ($main::server_address,
- $main::foreign_server_key,
+ $main::ServerPackages_key,
);
return \@info;
}
my @msg_l;
my @out_msg_l = ( 'nohandler' );
+
+ # if message is being forwarded from another server, strip of header prefixes
+ $header =~ s/^gosa_|^job_//;
+ $msg =~ s/<header>gosa_(\w+)<\/header>|<header>job_(\w+)<\/header>/<header>$1<\/header>/;
+
+
&main::daemon_log("$session_id DEBUG: ServerPackages: msg to process '$header'", 7);
if( exists $event_hash->{$header} ) {
# a event exists with the header as name