[Xen-devel] [PATCH 2/6] osstest: introduce a helper to create a weblink to a directory

[Roger Pau Monne <roger.pau@xxxxxxxxxx>]

Signed-off-by: Roger Pau Monné <roger.pau@xxxxxxxxxx>
---
 Osstest/TestSupport.pm | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/Osstest/TestSupport.pm b/Osstest/TestSupport.pm
index c6da5ee9..12427d11 100644
--- a/Osstest/TestSupport.pm
+++ b/Osstest/TestSupport.pm
@@ -125,6 +125,7 @@ BEGIN {
                       toolstack guest_create guest_create_paused
 
                       await_webspace_fetch_byleaf create_webfile
+                      create_weblink
                       file_link_contents get_timeout
                       setup_netboot_di setup_netboot_local host_netboot_file
                       subst_netboot_template setup_netboot_memdisk
@@ -2739,6 +2740,18 @@ sub create_webfile ($$$) {
     return $wf_url;
 }
 
+sub create_weblink ($$$) {
+    my ($ho, $tail, $target) = @_;
+    my $wf_rhs= hostnamepath($ho)."_".$tail;
+    my $wf_common= $c{WebspaceCommon}.$wf_rhs;
+    my $wf_url= $c{WebspaceUrl}.$wf_common;
+    my $wf_file= $c{WebspaceFile}.$wf_common;
+
+    unlink $wf_file;
+    symlink $target, $wf_file or die "$wf_file $!";
+    return $wf_url;
+}
+
 #---------- netboot handling ----------
 
 sub file_link_contents ($$$) {
-- 
2.17.2 (Apple Git-113)


_______________________________________________
Xen-devel mailing list
Xen-devel@xxxxxxxxxxxxxxxxxxxx
https://lists.xenproject.org/mailman/listinfo/xen-devel