osstest: introduce a helper to create a weblink to a directory

Signed-off-by: Roger Pau Monné <roger.pau@citrix.com>

diff --git a/Osstest/TestSupport.pm b/Osstest/TestSupport.pm
index c6da5ee9fca0ceece553a47ad753f5ae0a8a2df5..12427d11687a012a1fe3a8aafed866e3f04a6a0d 100644 (file)
--- 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 ($$$) {