[X2Go-Commits] x2goserver.git - build-main (branch) updated: 3.0.99-2-226-ge42a541
X2Go dev team
git-admin at x2go.org
Wed Dec 4 06:17:45 CET 2013
The branch, build-main has been updated
via e42a541cbeddb30c86ed5b00ab131a9a380d23da (commit)
from 4d021c4d43919869c73cc5894ed6d1ca95b75225 (commit)
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.
- Log -----------------------------------------------------------------
-----------------------------------------------------------------------
Summary of changes:
x2goserver/lib/x2gosessionlimit | 105 ---------------------------------------
1 file changed, 105 deletions(-)
delete mode 100755 x2goserver/lib/x2gosessionlimit
The diff of changes is:
diff --git a/x2goserver/lib/x2gosessionlimit b/x2goserver/lib/x2gosessionlimit
deleted file mode 100755
index f2fc78c..0000000
--- a/x2goserver/lib/x2gosessionlimit
+++ /dev/null
@@ -1,105 +0,0 @@
-#!/usr/bin/perl
-
-# Copyright (C) 2007-2011 X2go Project - http://wiki.x2go.org
-#
-# This program is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2 of the License, or
-# (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-# GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License
-# along with this program; if not, write to the
-# Free Software Foundation, Inc.,
-# 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
-#
-# Copyright (C) 2007-2011 Oleksandr Shneyder <oleksandr.shneyder at obviously-nice.de>
-# Copyright (C) 2007-2011 Heinz-Markus Graesing <heinz-m.graesing at obviously-nice.de>
-
-use strict;
-use Config::Simple;
-use Sys::Syslog qw( :DEFAULT );
-
-use lib `echo -n \$(x2gobasepath)/lib/x2go`;
-use x2gologlevel;
-
-openlog($0,'cons,pid','user');
-setlogmask( LOG_UPTO(x2gologlevel()) );
-
-
-my $maxlimit=0;
-my $Config = new Config::Simple(syntax=>'ini');
-$Config->read('/etc/x2go/x2goserver.conf' );
-
-sub getGroupLimit
-{
- my $group=shift;
- my $strlimit=$Config->param("limit groups.$group");
- if ($strlimit ne "")
- {
- if ($strlimit == 0)
- {
- print "0\n";
- exit 0;
- }
- if ($strlimit > $maxlimit)
- {
- $maxlimit=$strlimit;
- }
- }
-}
-
-my $uname;
-$uname=getpwuid($<);
-
-my $runningsessions=`x2golistsessions --all-servers`;
-my @sessions=split("\n",$runningsessions);
-my $scount=@sessions;
-
-my $strlimit=$Config->param("limit users.$uname");
-
-if($strlimit ne "")
-{
- if ($strlimit == 0)
- {
- print "0\n";
- exit 0;
- }
- if ($strlimit <= $scount)
- {
- print "$strlimit\n";
- exit 0;
- }
- print "$strlimit\n";
- exit 0;
-}
-
-
-my ($name, $pass, $uid, $pgid, $quota, $comment, $gcos, $dir, $shell, $expire) = getpwnam($uname);
-
-while (my ($name, $passwd, $gid, $members) = getgrent())
-{
- if ( $pgid eq $gid)
- {
- getGroupLimit $name;
- }
- my @memebers=split(" ",$members);
- foreach my $member (@memebers)
- {
- if ($uname eq $member )
- {
- getGroupLimit $name;
- }
- }
-}
-
-if ($maxlimit <= $scount)
-{
- print "$maxlimit\n";
- exit 0;
-}
-print "$maxlimit\n";
hooks/post-receive
--
x2goserver.git (X2Go Server)
This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "x2goserver.git" (X2Go Server).
More information about the x2go-commits
mailing list