diff options
author | Alexander Sulfrian <alexander@sulfrian.net> | 2014-02-12 02:22:05 +0100 |
---|---|---|
committer | Alexander Sulfrian <alexander@sulfrian.net> | 2014-02-12 03:01:21 +0100 |
commit | 91160234c49b725a1a107419f66d1b4629597284 (patch) | |
tree | 9ed2d45e00c210f0a447a10d238049aef8c123f8 | |
parent | 9fcc3dba8a299d9f6c2a2dc6d3d3fe63011d0f70 (diff) | |
download | vserver-perl-91160234c49b725a1a107419f66d1b4629597284.tar.gz vserver-perl-91160234c49b725a1a107419f66d1b4629597284.tar.bz2 vserver-perl-91160234c49b725a1a107419f66d1b4629597284.zip |
get_name: add function to get vserver name based on context id1.2
-rw-r--r-- | lib/VServer.pm | 17 |
1 files changed, 16 insertions, 1 deletions
diff --git a/lib/VServer.pm b/lib/VServer.pm index cb2e351..8a5aa54 100644 --- a/lib/VServer.pm +++ b/lib/VServer.pm @@ -1,7 +1,7 @@ #!/usr/bin/perl -T package VServer; -our $VERSION = '1.1'; +our $VERSION = '1.2'; use strict; use warnings; @@ -47,4 +47,19 @@ sub get_config_dir($) { return $dir; } +sub get_name($) { + my $context = shift; + my $dir = get_config_dir($context) || return undef; + my $name = undef; + + open(my $file, "<", "$dir/name") || return undef; + while (<$file>) { + chomp($name = $_); + last; + } + close($file); + + return $name; +} + 1; |