From 338e39e1675eab3010e2bf6ed5de97d3967fd5e7 Mon Sep 17 00:00:00 2001
From: Chris Young <chris@unsatisfactorysoftware.co.uk>
Date: Thu, 28 Oct 2010 19:21:58 +0000
Subject: Add an error message if GetVideo is not installed.  Use v0.27's new
 "ask" function instead of assuming the user wants to save.

svn path=/trunk/netsurf/; revision=10914
---
 amiga/dist/Rexx/GetVideo.nsrx | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/amiga/dist/Rexx/GetVideo.nsrx b/amiga/dist/Rexx/GetVideo.nsrx
index e3708a199..d33cf1974 100755
--- a/amiga/dist/Rexx/GetVideo.nsrx
+++ b/amiga/dist/Rexx/GetVideo.nsrx
@@ -20,4 +20,10 @@
 
 options results
 geturl
-address REXX 'rexx:getvideo.rexx' result 'save "ram:"'
+
+if open('getvideo','rexx:agetvideo.rexx','R') then do
+  close('getvideo')
+  address REXX 'rexx:getvideo.rexx' result 'ask "ram:"'
+end
+else
+  address command 'requestchoice >NIL: "NetSurf" "GetVideo.rexx must be installed in REXX: for this script to function.*n*nIt can be downloaded from Aminet:comm/www/getvideo.lha" "OK"'
-- 
cgit v1.2.3