From 91160234c49b725a1a107419f66d1b4629597284 Mon Sep 17 00:00:00 2001
From: Alexander Sulfrian <alexander@sulfrian.net>
Date: Wed, 12 Feb 2014 02:22:05 +0100
Subject: get_name: add function to get vserver name based on context id

---
 lib/VServer.pm | 17 ++++++++++++++++-
 1 file changed, 16 insertions(+), 1 deletion(-)

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;
-- 
cgit v1.2.3-1-g7c22