Author: tpryan

<cfcomponent>
<cffunction access=”public” name=”stripHTML” output=”false” returntype=”string” hint=”Removes HTML from input string.”>
<cfargument name=”str” type=”string” hint=”String to clean.” required=”yes”>
<cfreturn REReplaceNoCase(str,”<[^>]*>”,””,”ALL”)>
</cffunction>

<cffunction access=”public” name=”weigh” output=”true” returntype=”struct”>
<cfargument name=”search_term” type=”string” required=”yes” hint=”The search term. “>

<cfset search_url=”http://en.wikipedia.org/wiki/Special:Search”&gt;
<cfset return_struct.searchTerm=arguments.search_term>

<cfhttp url=”#search_url#” method=”post” delimiter=”,” resolveurl=”no”>
<cfhttpparam type=”formfield” name=”search” value=”#arguments.search_term#” />
</cfhttp>

<cfif findNoCase(“Search – Wikipedia, the free encyclopedia”, cfhttp.FileContent)>
<cfset return_struct.contents=”There are no records for that search term.”>
<cfset return_struct.length=0>
<cfset return_struct.url=””>
<cfreturn return_struct>
</cfif>

<cfset contents=cfhttp.FileContent>

<cfset contents_start=FindNoCase(“bodyContent”, contents)>
<cfset contents_end=FindNoCase(“catlinks”, contents)>
<cfset contents_len=(contents_end-contents_start)>

<cfset contents=Mid(contents,contents_start, contents_len)>
<cfset contents=stripHTML(contents)>
<cfset contents_crap=14+9>

<cfset contents=Mid(contents, 14, Len(contents) -contents_crap)>

<cfset return_struct.contents=contents>
<cfset return_struct.length=Len(contents)>

<cfset retrieved_location=FindNoCase(“Retrieved from”,contents)>
<cfset article_url=Mid(contents, retrieved_location, Len(contents) – retrieved_location)>

<cfset article_url=replace(article_url,”Retrieved from”, “”, “ALL”)>
<cfset article_url=replace(article_url,””””, “”, “ALL”)>
<cfset article_url=trim(article_url)>
<cfset return_struct.url=article_url>

<cfreturn return_struct>

</cffunction>

</cfcomponent>

<cfcomponent hint=”Handles displaying images.”>

<cfinvoke method=”init”>

<cffunction access=”private” name=”init” output=”false” returntype=”void” hint=”Sets the initial variables. “>
<cfset image_folder=”d:path_to_your_fileswwwrootimages”>
<cfset tn_folder= image_folder & “tn”>
<cfset image_url=”http://www.your_domain.com/images”&gt;
<cfset tn_url= image_url & “/tn”>
<cfobject component=”tmt_img” name=”imageObj”>
</cffunction>

<cffunction access=”public” name=”linkImage” output=”true” returntype=”void” hint=”Show a preview image and link of an image.”>
<cfargument name=”image” required=”yes” type=”string” hint=”The name of the image to preview and link to.”>

<cfset file_type=Right(arguments.image, 3)>
<cfset file_name=Left(arguments.image, Len(arguments.image)-4)>
<cfset tn=Replace(arguments.image, “.#file_type#”, “_tn.#file_type#”, “ALL”)>

<cfdirectory directory=”#tn_folder#” action=”list” name=”directoryList” recurse=”no”>

<cfquery name=”tnFile” dbtype=”query”>
select count(*) as tnExists
from directoryList
where name=’#tn#’
</cfquery>

<cfif Len(tnFile.tnExists) lt 1 or tnFile.tnExists eq 0>
<cfinvoke component=”#imageObj#” method=”resize” returnvariable=”imageProperties”>
<cfinvokeargument name=”source” value=”#image_folder##arguments.image#”>
<cfinvokeargument name=”destination” value=”#tn_folder##tn#”>
<cfinvokeargument name=”newWidth” value=”200″>
</cfinvoke>
</cfif>

<cfinvoke component=”#imageObj#” method=”getDimensions” returnvariable=”imageProperties”>
<cfinvokeargument name=”imgPath” value=”#tn_folder##tn#”>
</cfinvoke>

<cfoutput>
<a href=”#image_url#/#arguments.image#”>
<img src=”#tn_url#/#tn#” alt=”#file_name#” width=”#imageProperties.width#” height=”#imageProperties.height#”>
</a>
</cfoutput>

</cffunction>

</cfcomponent>

<cffunction access=”public” name=”display_opml” output=”true” returntype=”void” hint=”Takes an opml file and outputs a list of links. “>
<cfargument name=”opml_file” type=”string” required=”yes” default=”” hint=”The file location of the opml file to display.”>

<cftry>
<cffile action=”read” file=”#arguments.opml_file#” variable=”feeds”>
<cfset feedsXML=XMLParse(feeds)>

<cfoutput>
<cfloop index=”i” from=”1″ to=”#ArrayLen(feedsXML.opml.body.outline)#”>

<!— ############# —>
<!— https_socket —>
<!— ############# —>
<cffunction access=”package” name=”https_socket” output=”false” returntype=”string” hint=”Allows socket communication over https to occur. “>
<cfargument name=”host” type=”string” required=”yes” hint=”The host to send message to. “>
<cfargument name=”message” type=”string” required=”yes” hint=”The message to send to the host.”>
<cfargument name=”port” type=”numeric” required=”no” default=”443″ hint=”The port to connect to. ” >

<!— Use the sslfactory to create an object based on the Socket class —>
<cfset factory = CreateObject (“java”,”javax.net.ssl.SSLSocketFactory”).getDefault()>
<cfset sock = factory.createSocket(arguments.host,arguments.port)>
<cfset sock.startHandshake()>
<!— Connect to output stream —>
<cfset sout = sock.getOutputStream()>

<!— Connect to input stream —>
<cfset out = createObject( “java”, “java.io.PrintWriter” ).init(sout)>
<cfset sinput = sock.getInputStream()>

<!— I have no clue what is going here. I just know it has to be done this way. —>
<cfset inputStreamReader= createObject( “java”, “java.io.InputStreamReader”).init(sinput)>
<cfset input = createObject( “java”, “java.io.BufferedReader”).init(InputStreamReader)>

<!— Send message to server. —>
<cfset out.println(“#arguments.message#”)>
<cfset out.println()>
<cfset out.flush()>
<!— Get back response. —>
<!— I only need the response header, so I only get the first line —>
<cfset results=input.readLine()>

<cfset sock.close()>

<cfreturn results>
</cffunction>