summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 50379ca)
raw | patch | inline | side by side (parent: 50379ca)
author | rettenbe <rettenbe@594d385d-05f5-0310-b6e9-bd551577e9d8> | |
Mon, 2 Jun 2008 08:56:45 +0000 (08:56 +0000) | ||
committer | rettenbe <rettenbe@594d385d-05f5-0310-b6e9-bd551577e9d8> | |
Mon, 2 Jun 2008 08:56:45 +0000 (08:56 +0000) |
git-svn-id: https://oss.gonicus.de/repositories/gosa/trunk@11134 594d385d-05f5-0310-b6e9-bd551577e9d8
gosa-si/client/events/corefunctions.pm | patch | blob | history | |
gosa-si/server/events/gosaTriggered.pm | patch | blob | history |
index 93087f014398fd4e63534c572cf54463c613d1fd..223d486b15d0d248078303146fa000158a24fdb0 100644 (file)
}
-sub ping {
- my ($msg, $msg_hash) = @_ ;
- my $header = @{$msg_hash->{'header'}}[0];
- my $source = @{$msg_hash->{'source'}}[0];
- my $target = @{$msg_hash->{'target'}}[0];
- my $session_id = @{$msg_hash->{'session_id'}}[0];
-
-
- # switch target and source and send msg back
- my $out_hash = &main::create_xml_hash("got_ping", $target, $source);
- &add_content2xml_hash($out_hash, "session_id", $session_id);
- my $out_msg = &main::create_xml_string($out_hash);
- return $out_msg;
-
-}
+#sub ping {
+# my ($msg, $msg_hash) = @_ ;
+# my $header = @{$msg_hash->{'header'}}[0];
+# my $source = @{$msg_hash->{'source'}}[0];
+# my $target = @{$msg_hash->{'target'}}[0];
+# my $session_id = @{$msg_hash->{'session_id'}}[0];
+#
+#
+# # switch target and source and send msg back
+# my $out_hash = &main::create_xml_hash("got_ping", $target, $source);
+# &add_content2xml_hash($out_hash, "session_id", $session_id);
+# my $out_msg = &main::create_xml_string($out_hash);
+# return $out_msg;
+#
+#}
-sub new_ping {
+sub ping {
my ($msg, $msg_hash) = @_ ;
my $header = @{$msg_hash->{'header'}}[0];
my $source = @{$msg_hash->{'source'}}[0];
index 14916f64287b95a8390d2f8fe408f250ce0e1c75..1d9ccf6f495e2f74994e4445e3fb77e6588ade5b 100644 (file)
"gen_smb_hash",
"trigger_reload_ldap_config",
"ping",
- "new_ping",
"network_completition",
"set_activated_for_installation",
"new_key_for_client",
}
+#sub ping {
+# my ($msg, $msg_hash, $session_id) = @_ ;
+# my $out_msg = $msg;
+# my $jobdb_id = @{$msg_hash->{'jobdb_id'}}[0];
+# if( defined $jobdb_id) {
+# my $sql_statement = "UPDATE $main::job_queue_tn SET status='processed' WHERE id=jobdb_id";
+# &main::daemon_log("$session_id DEBUG: $sql_statement", 7);
+# my $res = $main::job_db->exec_statement($sql_statement);
+# }
+#
+# $out_msg =~ s/<header>gosa_/<header>/;
+#
+# my @out_msg_l = ( $out_msg );
+# return @out_msg_l;
+#}
sub ping {
- my ($msg, $msg_hash, $session_id) = @_ ;
- my $out_msg = $msg;
- my $jobdb_id = @{$msg_hash->{'jobdb_id'}}[0];
- if( defined $jobdb_id) {
- my $sql_statement = "UPDATE $main::job_queue_tn SET status='processed' WHERE id=jobdb_id";
- &main::daemon_log("$session_id DEBUG: $sql_statement", 7);
- my $res = $main::job_db->exec_statement($sql_statement);
- }
-
- $out_msg =~ s/<header>gosa_/<header>/;
-
- my @out_msg_l = ( $out_msg );
- return @out_msg_l;
-}
-sub new_ping {
my ($msg, $msg_hash, $session_id) = @_ ;
my ($sql, $res);
my $out_msg = $msg;