read symlink destination istead of content

diff --git a/lib/PXElator/client.pm b/lib/PXElator/client.pm
index 9000639..1c062f5 100644 (file)
--- a/lib/PXElator/client.pm
+++ b/lib/PXElator/client.pm
@@ -28,8 +28,13 @@ sub conf {
                write_file $path, $default;
                warn "default $path = $default";
                $value = $default;
-       } else {
-               $value = read_file $path if -e $path;
+       } elsif ( -e $path ) {
+               if ( -l $path ) {
+                       $value = readlink $path;
+                       $value =~ s{.*/([^/]+)$}{$1};
+               } else {
+                       $value = read_file $path;
+               }
        }
        return $value;
 }