index 279ca6e9fca15dd70641d3851e94aafee7553016..aafe9cfd3a9a7c6008a5a417e31b411453b2dff4 100644 (file)
"count_packages_list",
"query_fai_server",
"count_fai_server",
+ "query_fai_release",
+ "count_fai_release",
);
@EXPORT = @events;
use warnings;
use GOSA::GosaSupportDaemon;
use Data::Dumper;
-use utf8;
BEGIN {}
return \@events;
}
-
+sub query_fai_release{ return &query_db( @_ ); }
sub query_fai_server{ return &query_db( @_ ) ; }
sub query_packages_list { return &query_db( @_ ) ; }
sub query_jobdb { return &query_db( @_ ) ; }
} elsif( $header =~ /query_packages_list/ ) {
$table = $main::packages_list_tn;
$db = $main::packages_list_db;
- }± elsif( $header =~ /query_fai_server/ ) {
+ } elsif( $header =~ /query_fai_server/ ) {
$table = $main::fai_server_tn;
- $db = $main::fai_server_db
+ $db = $main::fai_server_db;
+ } elsif( $header =~ /query_fai_release/ ) {
+ $table = $main::fai_release_tn;
+ $db = $main::fai_server_db;
}
+
# prepare sql statement and execute query
my $select= &get_select_statement($msg, $msg_hash);
my $res_hash = $db->select_dbentry($sql_statement);
my $out_xml = &db_res2si_msg($res_hash, $header, $target, $source);
+ $out_xml =~ s/<\/xml>/<session_id>$session_id<\/session_id><\/xml>/;
my @out_msg_l = ( $out_xml );
return @out_msg_l;
}
+sub count_fai_releas{ return &count_db( @_ ); }
sub count_fai_server{ return &count_db( @_ ); }
sub count_packages_list{ return &count_db( @_ ); }
sub count_jobdb{ return &count_db( @_ ); }
my $table;
my $db;
-
-
if( $header =~ /count_jobdb/ ) {
$table = $main::job_queue_tn;
$db = $main::job_db;
$db = $main::packages_list_db;
} elsif( $header =~ /count_fai_server/ ) {
$table = $main::fai_server_tn;
- $db = $main::fai_server_db
+ $db = $main::fai_server_db;
+ } elsif( $header =~ /count_fai_release/ ) {
+ $table = $main::fai_release_tn;
+ $db = $main::fai_server_db;
}
+
# prepare sql statement and execute query
my $res_hash = $db->select_dbentry("SELECT * FROM $table");
my $count = keys(%{$res_hash});
- my $out_xml= "<xml><header>answer</header><source>$target</source><target>$source</target><count>$count</count></xml>";
+ my $out_xml= "<xml><header>answer</header><source>$target</source><target>$source</target><count>$count</count><session_id>$session_id</session_id></xml>";
my @out_msg_l = ( $out_xml );
return @out_msg_l;
}
}
# prepare xml answer
- my $out_xml = "<xml><header>answer</header><source>$target</source><target>$source</target><answer1>$res</answer1></xml>";
+ my $out_xml = "<xml><header>answer</header><source>$target</source><target>$source</target><answer1>$res</answer1><session_id>$session_id</session_id></xml>";
my @out_msg_l = ( $out_xml );
return @out_msg_l;
if( not $db_res > 0 ) { $error++; };
if( $error == 0 ) {
- $out_xml = "<xml><header>answer</header><source>$target</source><target>$source</target><answer1>0</answer1></xml>";
+ $out_xml = "<xml><header>answer</header><source>$target</source><target>$source</target><answer1>0</answer1><session_id>$session_id</session_id></xml>";
}
my @out_msg_l = ( $out_xml );
return @out_msg_l;
my $source = @{$msg_hash->{'source'}}[0];
my $error= 0;
- my $out_xml= "<xml><header>answer</header><source>$target</source><target>$source</target><answer1>1</answer1></xml>";
+ my $out_xml= "<xml><header>answer</header><source>$target</source><target>$source</target><answer1>1</answer1><session_id>$session_id</session_id></xml>";
my @len_hash = keys %{$msg_hash};
if( 0 == @len_hash) { $error++; };
$out_xml = "<answer1>0</answer1>";
}
- my $out_msg = sprintf("<xml><header>answer</header><source>%s</source><target>%s</target>%s</xml>", $target, $source, $out_xml);
+ my $out_msg = sprintf("<xml><header>answer</header><source>%s</source><target>%s</target>%s<session_id>$session_id</session_id></xml>", $target, $source, $out_xml);
my @out_msg_l = ( $out_msg );
return @out_msg_l;
}