Signed-off-by: Roger Pau Monné <[email protected]>
---
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
[email protected]
https://lists.xenproject.org/mailman/listinfo/xen-devel
