netsurf/amiga/dist/Rexx/GetVideo.nsrx

/*
 * Copyright 2008 Chris Young <chris@unsatisfactorysoftware.co.uk>
 *
 * This file is part of NetSurf, http://www.netsurf-browser.org/
 *
 * NetSurf is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; version 2 of the License.
 *
 * NetSurf is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program.  If not, see <http://www.gnu.org/licenses/>.
 */

/* This script launches getvideo.rexx (Aminet:comm/www/getvideo.lha) */

options results
geturl
address REXX 'rexx:getvideo.rexx' result 'save "ram:"'
Track the current/last used browser window (at the moment, just for ARexx). Extended ARexx port. First two are primarily for openurl.library: * OPEN now takes a parameter NEW=NEWWINDOW/S to open the URL in a new window (default is to open in the current browser window) * TOFRONT will bring NetSurf's screen to the front (this may be extended in the future to bring the current browser window to the front - which might be better for when it is running on the WB screen) Next is to make it easy to support getvideo.rexx: * GETURL returns the URL of the current browser window in RESULT GetVideo.nsrx script will get the current URL and pass it to rexx:getvideo.rexx Currently there is no way to call ARexx scripts directly from NetSurf, or any way to specify whether to save, play or saveplay the video without editing the script. [clipboard.c/clipboard.h were missing from previous commit] svn path=/trunk/netsurf/; revision=5631 2008-10-26 02:22:34 +03:00			`/*`
			`* Copyright 2008 Chris Young <chris@unsatisfactorysoftware.co.uk>`
			`*`
			`* This file is part of NetSurf, http://www.netsurf-browser.org/`
			`*`
			`* NetSurf is free software; you can redistribute it and/or modify`
			`* it under the terms of the GNU General Public License as published by`
			`* the Free Software Foundation; version 2 of the License.`
			`*`
			`* NetSurf is distributed in the hope that it will be useful,`
			`* but WITHOUT ANY WARRANTY; without even the implied warranty of`
			`* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the`
			`* GNU General Public License for more details.`
			`*`
			`* You should have received a copy of the GNU General Public License`
			`* along with this program. If not, see <http://www.gnu.org/licenses/>.`
			`*/`

			`/* This script launches getvideo.rexx (Aminet:comm/www/getvideo.lha) */`

			`options results`
			`geturl`
			`address REXX 'rexx:getvideo.rexx' result 'save "ram:"'`