Group :: System/Servers
RPM: x2goserver
Main Changelog Spec Patches Sources Download Gear Bugs and FR Repocop
Patch: x2golistsessions.diff
Download
Download
--- 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')