File x2golistsessions_root of Package x2go

#!/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";
     }
}