From brianc@sashimi.wwa.com Fri, 23 Jun 95 01:00:44
Received: from gagme.wwa.com by sashimi.wwa.com with smtp
	(Smail3.1.28.1 #8) id m0sOoTf-001W0Va; Thu, 22 Jun 95 10:47 CDT
Received: from stargate.warped.com by gagme.wwa.com with smtp
	(Smail3.1.28.1 #8) id m0sOoVV-000FOha; Thu, 22 Jun 95 10:49 CDT
Received: (from majord@localhost) by stargate.warped.com (8.6.11/8.6.11) id IAA09146 for grapevine-reg-outgoing; Thu, 22 Jun 1995 08:45:26 -0700
Received: from julian (ts8-13.slip.uwo.ca [129.100.99.100]) by stargate.warped.com (8.6.11/8.6.11) with SMTP id IAA09141 for <grapevine-reg@warped.com>; Thu, 22 Jun 1995 08:45:21 -0700
Received: by julian.slip.uwo.ca (Amiga SMTPpost 1.04 December 9, 1994)
        id AA01; Thu, 22 Jun 95 11:45:13 
Message-Id: <20dd18c6.u7t150e.bb2da-dfraser@ts10-3.slip.uwo.ca>
Subject: Re: Call for ARexx Scripts
In-Reply-To: <9506220947.ZM8191@eris-e>
	     (from "Brian J. Cerveny" <bcerveny@centaur-e.eurpd.csg.mot.com>)
	     (at Thu, 22 Jun 1995 09:47:09 -0500)
From: jyergaw@julian.uwo.ca (Dan J. Fraser)
MIME-Version: 1.0
Content-Type: text/plain
Content-Transfer-Encoding: quoted-printable
To: grapevine-reg@warped.com
Date: Thu, 22 Jun 95 11:45:13 
Sender: owner-grapevine-reg@warped.com
Precedence: bulk
Reply-To: grapevine-reg@warped.com
Content-Length: 1746

Hi Brian,
> Many of you have been passing around ARexx scripts of all sorts for G=
rapevine
> on IRC.  I'd like to extend an invitation for you to post all your sc=
ripts to
> this list so all registered users can enjoy them.

Here's one of mine:

/* High-speed Aminet search, requires a local Aminet index and 'ssearch=
=2E' */

maxout =3D 5

parse arg srch sendto=20
if srch~=3D"" then do
=09address command "ssearch >t:ircsrchtmp data:index "||srch||" nonum"
=09if open( fdate, "t:ircsrchtmp", 'R' ) then do
=09lineit=3D0
=09matches=3D-1
=09do while ~eof(fdate)
=09	matches=3Dmatches+1
=09	temp=3Dreadln(fdate)
=09end
=09if seek(fdate,0,'B') then nop
=09if sendto=3D"" then "say" "Results of Aminet search for '"srch"' -- =
"||matches||" matches found"
=09if sendto~=3D"" then "notice "||sendto||" Results of Aminet search f=
or '"srch"' -- "||matches||" matches found"

=09do while (~eof(fdate)) & (lineit < maxout )=20
=09	lineit=3Dlineit+1
=09	temp =3D readln( fdate )
=09	if temp~=3D"" then do
=09		if sendto=3D"" then "say" temp
=09		if sendto~=3D"" then "notice "||sendto||" "||temp
=09	end
=09end
=09if matches > maxout then do=20
=09	if sendto=3D"" then "say *** Search results truncated"
=09	if sendto~=3D"" then "notice "||sendto||" *** Search results trunca=
ted"
=09end

end

---------------------------------


---- /// -------------------------------------------------------------
__  /// Dan J. Fraser -- jyergaw@julian.uwo.ca | Monolith Autoplex:
\\\/// "Only Amiga Makes it Possible."         | "My God! Its full of=20
=20\XX/ LaRAU BBS: 519-645-1890  IRC Nick: Optic | cars!"
=20                                        Finger me for PGP Public Key


** From grapevine-reg@warped.com, a private list.  Do not redistribute. **