Code

bufix gosa-is-server: moved new_ping to ping
authorrettenbe <rettenbe@594d385d-05f5-0310-b6e9-bd551577e9d8>
Mon, 2 Jun 2008 08:56:45 +0000 (08:56 +0000)
committerrettenbe <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
gosa-si/server/events/gosaTriggered.pm

index 93087f014398fd4e63534c572cf54463c613d1fd..223d486b15d0d248078303146fa000158a24fdb0 100644 (file)
@@ -475,24 +475,24 @@ sub detect_hardware {
 }
 
 
-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)
@@ -8,7 +8,6 @@ my @events = (
     "gen_smb_hash",
     "trigger_reload_ldap_config",
     "ping",
-    "new_ping",
     "network_completition",
     "set_activated_for_installation",
     "new_key_for_client",
@@ -341,22 +340,22 @@ sub get_client_for_login_usr {
 }
 
 
+#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;