Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
home:mooners
x2go
x2golistsessions_root
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
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"; } }
Locations
Projects
Search
Status Monitor
Help
OpenBuildService.org
Documentation
API Documentation
Code of Conduct
Contact
Support
@OBShq
Terms
openSUSE Build Service is sponsored by
The Open Build Service is an
openSUSE project
.
Sign Up
Log In
Places
Places
All Projects
Status Monitor