summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 9d85688)
raw | patch | inline | side by side (parent: 9d85688)
author | rettenbe <rettenbe@594d385d-05f5-0310-b6e9-bd551577e9d8> | |
Tue, 19 Feb 2008 14:26:21 +0000 (14:26 +0000) | ||
committer | rettenbe <rettenbe@594d385d-05f5-0310-b6e9-bd551577e9d8> | |
Tue, 19 Feb 2008 14:26:21 +0000 (14:26 +0000) |
git-svn-id: https://oss.gonicus.de/repositories/gosa/trunk@8958 594d385d-05f5-0310-b6e9-bd551577e9d8
index be099ffcf77ced5c1d6082be538905fd60d08238..bae080a08c60884246b38ffa740e1c07d576485f 100644 (file)
usr/lib/gosa-si/modules
usr/lib/gosa-si/server/events
etc/gosa-si
+/var/log/fai
index d53227ef60c4467badc27f69601791d618b304ab..bcf8839490353ff2e2c228dbbd0b1d4087565d31 100644 (file)
# Forward messages to all known servers as "trigger_wake"
my $in_hash= &transform_msg2hash($msg);
my %data = ( 'macAddress' => \@{$in_hash->{macAddress}} );
- $out_msg = &send_msg("trigger_wake", $server_address, "KNOWN_SERVER", \%data);
+ $out_msg = &build_msg("trigger_wake", $server_address, "KNOWN_SERVER", \%data);
} else {
# msg could not be assigned to core function
# maybe it is an eventa
index ccdcea1517ec4f27a3cbe1f20292858873d0e0a8..ffe43332fca652adab860c7bc484e8c52180e23b 100644 (file)
use Exporter;
@ISA = qw(Exporter);
-@EXPORT = qw(create_xml_hash get_content_from_xml_hash add_content2xml_hash create_xml_string encrypt_msg decrypt_msg create_ciphering transform_msg2hash get_time send_msg get_where_statement get_select_statement get_update_statement get_limit_statement get_orderby_statement);
-
+my @functions = (
+ "create_xml_hash",
+ "get_content_from_xml_hash",
+ "add_content2xml_hash",
+ "create_xml_string",
+ "encrypt_msg",
+ "decrypt_msg",
+ "create_ciphering",
+ "transform_msg2hash",
+ "get_time",
+ "build_msg",
+ "get_where_statement",
+ "get_select_statement",
+ "get_update_statement",
+ "get_limit_statement",
+ "get_orderby_statement",
+ );
+@EXPORT = @functions;
use strict;
use warnings;
use IO::Socket::INET;
#=== FUNCTION ================================================================
-# NAME: send_msg
+# NAME: build_msg
# DESCRIPTION: Send a message to a destination
# PARAMETERS: [header] Name of the header
# [from] sender ip
# package
# RETURNS: nothing
#===============================================================================
-sub send_msg ($$$$) {
+sub build_msg ($$$$) {
my ($header, $from, $to, $data) = @_;
my $out_hash = &create_xml_hash($header, $from, $to);
index a5e2d06b565d7050370c6c8755e9a8522459e7f3..672ad4d627b18a0b5aa3e17a3bea4de010b52607 100644 (file)
$mesg = $ldap->unbind;
# Send information
- return send_msg("new_ldap_config", $server_address, $address, \%data);
+ return &build_msg("new_ldap_config", $server_address, $address, \%data);
}
sub process_detected_hardware {
&main::daemon_log("Send detect_hardware message to $address", 4);
# Send information
- return send_msg("detect_hardware", $server_address, $address, \%data);
+ return &build_msg("detect_hardware", $server_address, $address, \%data);
}
sub server_matches {