diff options
Diffstat (limited to 'lib')
-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; |