diff options
author | Alexander Sulfrian <alexander@sulfrian.net> | 2014-02-12 02:21:40 +0100 |
---|---|---|
committer | Alexander Sulfrian <alexander@sulfrian.net> | 2014-02-12 03:01:20 +0100 |
commit | 9fcc3dba8a299d9f6c2a2dc6d3d3fe63011d0f70 (patch) | |
tree | 96d58df64a5b46a4e71462cfed41d55d16ce1104 | |
parent | 41f36a2a7ca5bccddba4401dcfd49cc403b45364 (diff) | |
download | vserver-perl-9fcc3dba8a299d9f6c2a2dc6d3d3fe63011d0f70.tar.gz vserver-perl-9fcc3dba8a299d9f6c2a2dc6d3d3fe63011d0f70.tar.bz2 vserver-perl-9fcc3dba8a299d9f6c2a2dc6d3d3fe63011d0f70.zip |
get_config_dir: add function to get config dir based on context id1.1
-rw-r--r-- | lib/VServer.pm | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/lib/VServer.pm b/lib/VServer.pm index 8c70bde..cb2e351 100644 --- a/lib/VServer.pm +++ b/lib/VServer.pm @@ -1,7 +1,7 @@ #!/usr/bin/perl -T package VServer; -our $VERSION = '1.0'; +our $VERSION = '1.1'; use strict; use warnings; @@ -37,4 +37,14 @@ sub get_proc_dir($) { return undef; } +sub get_config_dir($) { + my $context = shift; + + my $dir = qx(/usr/sbin/vuname --xid $context --get context 2> /dev/null); + return undef unless ($? eq 0); + + chomp($dir); + return $dir; +} + 1; |