Code

new event for gosa-si-server
authorrettenbe <rettenbe@594d385d-05f5-0310-b6e9-bd551577e9d8>
Fri, 1 Feb 2008 14:31:12 +0000 (14:31 +0000)
committerrettenbe <rettenbe@594d385d-05f5-0310-b6e9-bd551577e9d8>
Fri, 1 Feb 2008 14:31:12 +0000 (14:31 +0000)
git-svn-id: https://oss.gonicus.de/repositories/gosa/trunk@8729 594d385d-05f5-0310-b6e9-bd551577e9d8

gosa-si/server/events/set_activated_for_installation [new file with mode: 0755]

diff --git a/gosa-si/server/events/set_activated_for_installation b/gosa-si/server/events/set_activated_for_installation
new file mode 100755 (executable)
index 0000000..4f402d5
--- /dev/null
@@ -0,0 +1,39 @@
+#!/usr/bin/perl 
+#===============================================================================
+#
+#         FILE:  set_activated_for_installation.pl
+#
+#        USAGE:  ./set_activated_for_installation.pl 
+#
+#  DESCRIPTION:  
+#
+#      OPTIONS:  ---
+# REQUIREMENTS:  ---
+#         BUGS:  ---
+#        NOTES:  ---
+#       AUTHOR:   (), <>
+#      COMPANY:  
+#      VERSION:  1.0
+#      CREATED:  28.01.2008 17:31:37 CET
+#     REVISION:  ---
+#===============================================================================
+
+use strict;
+use warnings;
+
+use GOSA::GosaSupportDaemon;
+
+
+# transform msg to hash
+my $hash = &transform_msg2hash($ARGV[0]);
+
+# extract from hash all what you need
+my $header = @{$hash->{header}}[0];
+my $source = @{$hash->{source}}[0];
+my $target = @{$hash->{target}}[0];
+
+#my $out_hash = &create_xml_hash("set_activated_for_installation", $source, $target);
+my $out_hash = &create_xml_hash("set_activated_for_installation", $source, "*");
+&add_content2xml_hash($out_hash, 'target', "GOSA");
+my $out_msg = &create_xml_string($out_hash);
+print $out_msg;