--- x2goserver-2.0.1.orig/x2golistsessions_root

+++ x2goserver-2.0.1/x2golistsessions_root

@@ -1,24 +1,6 @@

 #!/usr/bin/perl

 use strict;

-sub check_pid

-{

-   my $pid=shift;

-   my $sess=shift;

-   my $sec=shift;

-   if($sec < 30)

-   {

-      return 1;

-   }

-   open (F,"</proc/$pid/cmdline") or return 0;

-   my $text=<F>;

-   close (F);

-   if($text =~ m/$sess/)

-   {

-      return 1;

-   }

-   return 0;

-}

 sub check_stat

 {

@@ -35,10 +17,15 @@

 my $uname;

-my $serv=$ENV{'HOSTNAME'};

+

+my $serv=shift;

+if( ! $serv)

+{

+   $serv=$ENV{'HOSTNAME'};

+}

+

 my $outp=`x2golistsessions_sql $serv 2>/dev/null`;

-print $serv;

 my @outp=split("\n","$outp");

@@ -49,12 +36,6 @@

      {

            print "@outp[$i]\n";

      }       

-     elsif(! check_pid (@sinfo[0],@sinfo[1],@sinfo[12]))

-     {

-         system("su - @sinfo[11] -c \"sudo x2gopgwrapper changestatus 'F' @sinfo[1] \" > /dev/null");

-         @outp[$i] =~ s/\|R\|/\|F\|/;

-         @outp[$i] =~ s/\|S\|/\|F\|/;

-     }

      else

      { 

        if(@sinfo[4]eq 'R')