get_name: add function to get vserver name based on context id1.2

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;