--- x2goserver-2.0.1.orig/x2golistsessions
+++ x2goserver-2.0.1/x2golistsessions
@@ -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
 {
@@ -32,8 +14,11 @@
    return 1;
 }
 
-
-my $serv=$ENV{'HOSTNAME'};
+my $serv=shift;
+if( ! $serv)
+{
+   $serv=$ENV{'HOSTNAME'};
+}
 my $uname=$ENV{'USER'};
 my $outp=`sudo x2gopgwrapper listsessions $serv`;
 my @outp=split("\n","$outp");
@@ -46,12 +31,6 @@
      {
            print "@outp[$i]\n";
      }       
-     elsif(! check_pid (@sinfo[0],@sinfo[1],@sinfo[12]) )
-     {
-
-         system("sudo x2gopgwrapper changestatus 'F' @sinfo[1] > /dev/null");
-         system( "x2goumount_session @sinfo[1]");
-     }
      else
      { 
        if(@sinfo[4]eq 'R')