index 3e6551f12f9317b9ce483a0e1a6b46f3e514d7b0..bd929597b7acecbb7ce65041bd66f59bb840d389 100644 (file)
"get_limit_statement",
"get_orderby_statement",
"get_dns_domains",
+ "get_logged_in_users",
);
@EXPORT = @functions;
use strict;
use Digest::MD5 qw(md5 md5_hex md5_base64);
use MIME::Base64;
use XML::Simple;
+use Data::Dumper;
my $op_hash = {
'eq' => '=',
'gt' => '>',
'le' => '<=',
'lt' => '<',
+ 'like' => ' LIKE ',
};
if( exists $phrase->{'operator'} ) {
my $op = $op_hash->{$phrase->{'operator'}[0]};
if( not defined $op ) {
- &main::daemon_log("Can not translate operator '$operator' in where ".
+ &main::daemon_log("ERROR: Can not translate operator '$operator' in where-".
"statement to sql valid syntax. Please use 'eq', ".
"'ne', 'ge', 'gt', 'le', 'lt' in xml message\n", 1);
&main::daemon_log($msg, 8);
my $select = "*";
if( exists $msg_hash->{'select'} ) {
my $select_l = \@{$msg_hash->{'select'}};
- $select = join(' AND ', @{$select_l});
+ $select = join(', ', @{$select_l});
}
return $select;
}
return @searches;
}
+
+sub get_logged_in_users {
+ my $result = qx(/usr/bin/w -hs);
+ my @res_lines;
+
+ if( defined $result ) {
+ chomp($result);
+ @res_lines = split("\n", $result);
+ }
+
+ my @logged_in_user_list;
+ foreach my $line (@res_lines) {
+ chomp($line);
+ my @line_parts = split(/\s+/, $line);
+ push(@logged_in_user_list, $line_parts[0]);
+ }
+
+ return @logged_in_user_list;
+
+}
+
1;