1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
#!/usr/bin/perl
use strict;
sub check_stat
{
my $sess=shift;
my $user=shift;
my $log="~$user/.x2go/C-$sess/session.log";
my $text=`tail -1 $log`;
if($text =~ m/Session suspended/)
{
return 0;
}
return 1;
}
my $uname;
my $serv=shift;
if( ! $serv)
{
$serv=$ENV{'HOSTNAME'};
}
my $outp=`x2golistsessions_sql $serv 2>/dev/null`;
my @outp=split("\n","$outp");
for(my $i=0;$i<@outp;$i++)
{
my @sinfo=split('\\|',"@outp[$i]");
if(@sinfo[4]eq 'F')
{
print "@outp[$i]\n";
}
else
{
if(@sinfo[4]eq 'R')
{
if(!check_stat(@sinfo[1],@sinfo[11]))
{
system("su - @sinfo[11] -c \"sudo x2gopgwrapper changestatus 'S' @sinfo[1]\" > /dev/null");
@outp[$i] =~ s/\|R\|/\|S\|/;
}
}
print "@outp[$i]\n";
}
}
|