[X2Go-Commits] x2goserver.git - master (branch) updated: 3.1.1.3-222-g05a7500
X2Go dev team
git-admin at x2go.org
Tue Nov 5 16:34:09 CET 2013
The branch, master has been updated
via 05a7500abbff09c469962b0518d29c400aed4756 (commit)
from 3213e219263cd50384e95330a35dda6b7cf9f861 (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 -----------------------------------------------------------------
commit 05a7500abbff09c469962b0518d29c400aed4756
Author: Mike Gabriel <mike.gabriel at das-netzwerkteam.de>
Date: Tue Nov 5 16:19:09 2013 +0100
Load config files from a Perl package (X2Go::Config).
-----------------------------------------------------------------------
Summary of changes:
X2Go/Log.pm | 6 ++----
X2Go/Server/DB.pm | 7 +++----
X2Go/Server/DB/PostgreSQL.pm | 7 +++----
X2Go/Server/DB/SQLite3.pm | 3 +--
debian/changelog | 1 +
x2goserver/bin/x2gomountdirs | 10 +++++-----
x2goserver/bin/x2gosessionlimit | 7 +++----
x2goserver/sbin/x2godbadmin | 7 +++----
8 files changed, 21 insertions(+), 27 deletions(-)
The diff of changes is:
diff --git a/X2Go/Log.pm b/X2Go/Log.pm
index 12ee7b2..e4b9281 100644
--- a/X2Go/Log.pm
+++ b/X2Go/Log.pm
@@ -33,15 +33,13 @@ X2Go::Log Perl package for X2Go components.
=cut
use strict;
-use Config::Simple;
use Sys::Syslog qw( :standard :macros );
+use X2Go::Config qw( get_config );
use base 'Exporter';
our @EXPORT = ( 'loglevel' );
-my $Config = new Config::Simple(syntax=>'ini');
-$Config->read('/etc/x2go/x2goserver.conf' );
-
+my $Config = get_config();
my $strloglevel = $Config->param("log.loglevel");
sub loglevel {
diff --git a/X2Go/Server/DB.pm b/X2Go/Server/DB.pm
index 3216317..0f638a2 100644
--- a/X2Go/Server/DB.pm
+++ b/X2Go/Server/DB.pm
@@ -31,22 +31,21 @@ X2Go::Server::DB Perl package for X2Go::Server.
=cut
use strict;
-use Config::Simple;
use DBI;
use POSIX;
use Sys::Syslog qw( :standard :macros );
-use X2Go::Log qw(loglevel);
+use X2Go::Config qw( get_sqlconfig );
+use X2Go::Log qw( loglevel );
use X2Go::Server::DB::PostgreSQL;
setlogmask( LOG_UPTO(loglevel()) );
my ($uname, $pass, $uid, $pgid, $quota, $comment, $gcos, $homedir, $shell, $expire) = getpwuid(getuid());
-my $Config = new Config::Simple(syntax=>'ini');
+my $Config = get_sqlconfig();
my $x2go_lib_path=`x2gopath libexec`;
-$Config->read('/etc/x2go/x2gosql/sql' ) or die "Can't read config file /etc/x2go/x2gosql/sql";
my $backend=$Config->param("backend");
my $host;
diff --git a/X2Go/Server/DB/PostgreSQL.pm b/X2Go/Server/DB/PostgreSQL.pm
index 313fd98..1bad04a 100644
--- a/X2Go/Server/DB/PostgreSQL.pm
+++ b/X2Go/Server/DB/PostgreSQL.pm
@@ -31,12 +31,12 @@ X2Go::Server::DB::PostgreSQL Perl package for X2Go::Server.
=cut
use strict;
-use Config::Simple;
use DBI;
use POSIX;
use Sys::Syslog qw( :standard :macros );
-use X2Go::Log qw(loglevel);
+use X2Go::Log qw( loglevel );
+use X2Go::Config qw( get_sqlconfig );
setlogmask( LOG_UPTO(loglevel()) );
@@ -60,10 +60,9 @@ sub init_db
{
if ( ! ( $dbuser and $dbpass ) )
{
- my $Config = new Config::Simple(syntax=>'ini');
+ my $Config = get_sqlconfig;
my $x2go_lib_path=`x2gopath libexec`;
- $Config->read('/etc/x2go/x2gosql/sql' ) or die "Can't read config file /etc/x2go/x2gosql/sql";
my $backend=$Config->param("backend");
if ( $backend ne "postgres" )
{
diff --git a/X2Go/Server/DB/SQLite3.pm b/X2Go/Server/DB/SQLite3.pm
index 38665f4..21741b8 100644
--- a/X2Go/Server/DB/SQLite3.pm
+++ b/X2Go/Server/DB/SQLite3.pm
@@ -40,9 +40,8 @@ use POSIX;
#### via a setgid <group> wrapper (where <group> is group ,,x2gouser'').
#### It is intended that the code in this package cannot do system() calls.
-use Config::Simple;
use Sys::Syslog qw( :standard :macros );
-use X2Go::Log qw(loglevel);
+use X2Go::Log qw( loglevel );
openlog($0,'cons,pid','user');
setlogmask( LOG_UPTO(loglevel()) );
diff --git a/debian/changelog b/debian/changelog
index c3bbc75..6401701 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -20,6 +20,7 @@ x2goserver (4.1.0.0-0~x2go1) UNRELEASED; urgency=low
SQLite3 DB wrapper script.
- Add X2Go Server feature X2GO_LIST_SHADOWSESSIONS.
- Fix build-arch target in x2goserver/Makefile. (Fixes: #121).
+ - Load config files from a Perl package (X2Go::Config).
* /debian/control:
+ Package X2Go::Log in separate package: libx2go-log-perl.
+ Package X2Go::Server::DB in separate package: libx2go-server-db-perl.
diff --git a/x2goserver/bin/x2gomountdirs b/x2goserver/bin/x2gomountdirs
index 0cb31c3..9e8d8f3 100755
--- a/x2goserver/bin/x2gomountdirs
+++ b/x2goserver/bin/x2gomountdirs
@@ -24,9 +24,10 @@ use strict;
use Sys::Syslog qw( :standard :macros );
use File::BaseDir qw(xdg_config_home);
-use X2Go::Server::DB qw(db_insertmount db_deletemount);
-use X2Go::Utils qw(source_environment);
-use X2Go::Log qw(loglevel);
+use X2Go::Config qw( get_config );
+use X2Go::Server::DB qw( db_insertmount db_deletemount );
+use X2Go::Utils qw( source_environment );
+use X2Go::Log qw( loglevel );
openlog($0,'cons,pid','user');
setlogmask( LOG_UPTO(loglevel()) );
@@ -247,8 +248,7 @@ for (my $i=0;$i<@dirs;$i++)
if (db_insertmount( $session, $mntpath, $host))
{
- my $Config = new Config::Simple(syntax=>'ini');
- $Config->read('/etc/x2go/x2goserver.conf' );
+ my $Config = get_config();
my $umask=$Config->param("security.umask");
my $umaskstr="";
diff --git a/x2goserver/bin/x2gosessionlimit b/x2goserver/bin/x2gosessionlimit
index 8eb1cae..5ef8222 100755
--- a/x2goserver/bin/x2gosessionlimit
+++ b/x2goserver/bin/x2gosessionlimit
@@ -21,10 +21,10 @@
# Copyright (C) 2007-2013 Heinz-Markus Graesing <heinz-m.graesing at obviously-nice.de>
use strict;
-use Config::Simple;
use Sys::Syslog qw( :standard :macros );
-use X2Go::Log qw(loglevel);
+use X2Go::Config qw( get_config);
+use X2Go::Log qw( loglevel );
openlog($0,'cons,pid','user');
setlogmask( LOG_UPTO(loglevel()) );
@@ -32,8 +32,7 @@ setlogmask( LOG_UPTO(loglevel()) );
syslog('info', "x2gosessionlimit has been called");
my $maxlimit=-1;
-my $Config = new Config::Simple(syntax=>'ini');
-$Config->read('/etc/x2go/x2goserver.conf' );
+my $Config = get_config();
sub getGroupLimit
{
diff --git a/x2goserver/sbin/x2godbadmin b/x2goserver/sbin/x2godbadmin
index e3fc6f5..80fee9a 100755
--- a/x2goserver/sbin/x2godbadmin
+++ b/x2goserver/sbin/x2godbadmin
@@ -24,10 +24,10 @@ use strict;
use Sys::Syslog qw( :standard :macros );
use File::Path qw( make_path );
use Getopt::Long;
-use Config::Simple;
use DBI;
-use X2Go::Log qw(loglevel);
+use X2Go::Config qw( get_sqlconfig );
+use X2Go::Log qw( loglevel );
openlog($0,'cons,pid','user');
setlogmask( LOG_UPTO(loglevel()) );
@@ -58,8 +58,7 @@ if ($help || ! ( $createdb || $adduser || $rmuser || $addgroup || $rmgroup || $
exit(0);
}
-my $Config = new Config::Simple(syntax=>'ini');
-$Config->read('/etc/x2go/x2gosql/sql' ) or die "Can't read config file /etc/x2go/x2gosql/sql";
+my $Config = get_sqlconfig();
if ($Config->param("backend") eq 'sqlite')
{
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