|
|
[Perlfect-search] ColdFusion Wrapper for Perlfect Search
Daniel Naber perlfect-search@perlfect.com
Wed, 28 May 2003 18:50:58 +0200
--Boundary-00=_yjO1+zhMSqijsCu
Content-Type: text/plain;
charset="us-ascii"
Content-Transfer-Encoding: 7bit
Content-Disposition: inline
Peter Fairhurst has written a cold fusion wrapper for Perlfect Search,
similar to the PHP wrapper. I'm posting it here so people can use it (and
later find it in the archives). Thanks Peter!
Regards
Daniel
--
http://www.danielnaber.de
--Boundary-00=_yjO1+zhMSqijsCu
Content-Type: text/plain;
charset="us-ascii";
name="perlfect_wrapper.cfm"
Content-Transfer-Encoding: 7bit
Content-Disposition: attachment; filename="perlfect_wrapper.cfm"
<!---
= = = = = = = = = = = = = = = = = = = = = =
= =
= Perlfect Search Simple =
= ColdFusion Wrapper =
= =
= by Pete Fairhurst =
= (general@markedup.co.uk) =
= =
= = = = = = = = = = = = = = = = = = = = = =
PLEASE NOTE:
This wrapper is offered 'as is' - you use it at your own risk.
Responsibility for its use rests entirely with the persons who
choose to use it.
GENERAL:
This simple wrapper is based on the PHP one released by
Daniel Naber. It would be better facilitated by parsing the
results using ColdFusion, so that the output can be customised
dynamically. You could achieve this by altering the way in
which 'search.pl' creates its results sets (in HTML), and then
passing that information into a ColdFusion array, ready for
output.
--->
<cfparam name="searchString" default="">
<cfif isDefined("url.q") and url.q is not "">
<cfset searchString = Trim(url.q)>
</cfif>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1;">
<cfif searchString is not ""><title>Search results for '<cfoutput>#searchString#</cfoutput>'</title><cfelse><title>Search</title></cfif>
</head>
<body>
<!--- This form must target the page where it appears (itself effectively) --->
<form name="perlfect_search" method="get" action="perlfect_wrapper.cfm">
<!--- Usual Perlfect inputs --->
<input type="Hidden" name="p" value="1">
<input type="Hidden" name="lang" value="en">
<input type="Hidden" name="mode" value="all">
<cfoutput><input type="Text" name="q" value="#searchString#"></cfoutput>
<input type="Submit" value="Search">
</form>
<!--- Check for submission of non-empty query/term --->
<cfif searchString is not "">
<!--- Target the Perlfect Search script in your local CGI directory --->
<cfhttp name="search_url" url="http://#cgi.http_host#/cgi-bin/search/search.pl" method="post" timeout="10">
<!--- Pass the variables to the script --->
<cfhttpparam name="p" type="FORMFIELD" value="#url.p#">
<cfhttpparam name="lang" type="FORMFIELD" value="#url.lang#">
<cfhttpparam name="mode" type="FORMFIELD" value="#url.mode#">
<cfhttpparam name="q" type="FORMFIELD" value="#url.q#">
</cfhttp>
<!--- Display the content returned from the Perlfect HTML file --->
<cfoutput>#cfhttp.fileContent#</cfoutput>
</cfif>
</body>
</html>
--Boundary-00=_yjO1+zhMSqijsCu--
|
|