/*
** Altavista search with amirc
** $VER: AltaSearch.amirx 1.1 (14.01.2000) by Olivier 'StAn' Fabre
**
** reqz OpenURL.library v3 by Troels Walsted Hansen
**
** Type "/alias alta /rx AltaSearch.amirx %p" to install in AmIRC.
*/

PARSE ARG recherche

IF ~SHOW( 'L', "openurl.library" ) THEN
	CALL ADDLIB( "openurl.library", 3, -66 )

IF ~SHOW( 'L', "openurl.library" ) THEN DO
	SAY "Error opening openurl.library v3"
	EXIT 20
END

recherche = STRIP( recherche )
alta = ""
DO i=1 TO LENGTH( recherche )
	c = SUBSTR( recherche, i, 1 )
	SELECT
		WHEN c=' ' THEN c2="+"
		WHEN c='"' THEN c2="%22"
		WHEN c='?' THEN c2="%3F"
		WHEN c='+' THEN c2="%2B"
		OTHERWISE c2=c
	END
	alta = alta || c2
END

OpenURL( "http://www.altavista.com/cgi-bin/query?q="alta )

/*success = 0penURL(url, SH0W, T0FR0NT, NEWWIN, LAUNCH)*/