├── .gitignore
├── base.cfc
├── collection.cfc
├── content.cfc
├── cookie.cfc
├── execute.cfc
├── flush.cfc
├── header.cfc
├── htmlhead.cfc
├── index.cfc
├── invoke.cfc
├── loginuser.cfc
├── logout.cfc
├── objectcache.cfc
├── query.cfc
├── queryofqueries.cfc
├── readme.md
├── registry.cfc
├── schedule.cfc
├── search.cfc
├── setting.cfc
├── spreadsheet.cfc
├── tests
    ├── ExecuteTest.cfc
    ├── LoginFrameworkTest.cfc
    ├── SpreadsheetTest.cfc
    └── queryofqueriesTest.cfc
├── wddx.cfc
└── zip.cfc


/.gitignore:
--------------------------------------------------------------------------------
1 | 
2 | .project
3 | 
4 | .settings/org.eclipse.core.resources.prefs
5 | 
6 | settings.xml
7 | 


--------------------------------------------------------------------------------
/base.cfc:
--------------------------------------------------------------------------------
  1 | <!--- 
  2 | ***********************************************************************************************************
  3 | *
  4 | * ADOBE CONFIDENTIAL
  5 | * ___________________
  6 | *
  7 | *  Copyright 2008 Adobe Systems Incorporated
  8 | *  All Rights Reserved.
  9 | *
 10 | *  NOTICE:  Adobe permits you to use, modify, and distribute this file in accordance with the 
 11 | *  terms of the Adobe license agreement accompanying it.  If you have received this file from a 
 12 | *  source other than Adobe, then your use, modification, or distribution of it requires the prior 
 13 | *  written permission of Adobe.
 14 | *************************************************************************************************************/
 15 | --->
 16 | 
 17 | <cfcomponent name="base" displayname="base" output="false" hint="component with generic methods used by all services">
 18 | 
 19 |     <cfscript>
 20 | 		
 21 | 		variables.tagAttributes = '';
 22 | 		variables.parameters = [];
 23 | 
 24 | 		/**
 25 | 		 * Set the name of the service tag to be invoked
 26 | 		 * @output false
 27 | 		 */
 28 | 		private void function setTagName(string tagName)
 29 | 		{
 30 | 			variables.tagName = tagName;
 31 | 		}
 32 | 
 33 | 
 34 | 		/**
 35 | 		 * Get the name of the service tag
 36 | 		 * @output false
 37 | 		 */
 38 | 		private string function getTagName()
 39 | 		{
 40 | 			return variables.tagName;
 41 | 		}
 42 | 
 43 | 
 44 | 		/**
 45 | 		 * Set cfc properties. Wrapper for setAttributes()
 46 | 		 * @output false
 47 | 		 */
 48 | 		public void function setProperties()
 49 | 		{
 50 | 			if(structkeyexists(arguments,"1") and isstruct(arguments["1"]))
 51 | 				setAttributes(arguments["1"]);
 52 | 			else
 53 | 				setAttributes(arguments);
 54 | 		}
 55 | 
 56 | 
 57 | 		/**
 58 | 		 * Set service tag attributes. 
 59 | 		 * @output false
 60 | 		 */
 61 | 		public void function setAttributes()
 62 | 		{
 63 | 			if(!structisempty(arguments))
 64 | 			{
 65 | 				var temp = {};
 66 | 				if(structkeyexists(arguments,"1") and isstruct(arguments["1"]))
 67 | 				{
 68 | 						//include only relevant properties
 69 | 						for(var p in arguments["1"])
 70 | 						{
 71 | 							if(listcontainsnocase(variables.tagAttributes,p)){
 72 | 								temp[p] = arguments["1"][p];
 73 | 							}
 74 | 						}
 75 | 						structappend(variables,temp,"yes");
 76 | 					}	
 77 | 				else
 78 | 					structappend(variables,arguments,"yes");
 79 | 			}
 80 | 		}
 81 | 
 82 | 
 83 | 		/**
 84 | 		 * Get cfc properties. Wrapper for getAttributes()
 85 | 		 * @output false
 86 | 		 */
 87 | 		public struct function getProperties(string attribs="") 
 88 | 		{
 89 | 			return getAttributes(attribs);
 90 | 		}
 91 | 
 92 | 
 93 | 		/**
 94 | 		 * Returns a struct with all/some of the service tag attribute values. If no attributes are specified, it returns a coldfusion with all service tag attribute values
 95 | 		 * @output false
 96 | 		 */
 97 | 		public struct function getAttributes(string attribs="") 
 98 | 		{
 99 | 			var attributesstruct = {};
100 | 			var i = 0;
101 | 			arguments.attribs = trim(arguments.attribs) neq "" ? trim(arguments.attribs) : variables.tagAttributes;
102 | 
103 | 			for(i=1; i lte listlen(attribs); i++)
104 | 			{
105 | 				var attrib = trim(listgetat(attribs,i));
106 | 				if(structkeyexists(variables,attrib))
107 | 				{	
108 | 					attributesstruct[attrib] = variables[attrib];
109 | 				}
110 | 			}
111 | 			return attributesstruct;
112 | 		}
113 | 
114 | 
115 | 		/**
116 | 		 * Clear cfc properties. Wrapper for clearAttributes()
117 | 		 * @output false
118 | 		 */
119 | 		public void function clearProperties(string attribs="") 
120 | 		{
121 | 			return clearAttributes(attribs);
122 | 		}
123 | 
124 | 
125 | 		/**
126 | 		 * Removes a specific service tag attribute from CFC variables scope. Invoked by clearAttributes() 
127 | 		 * @output false
128 | 		 */
129 | 		private void function clearAttribute(struct tagAttributesStruct,string tagAttribute)
130 | 		{
131 | 			if(structkeyexists(tagAttributesStruct,tagAttribute))
132 | 			{ 
133 | 				structdelete(tagAttributesStruct,tagAttribute);
134 | 			}
135 | 		}
136 | 	
137 | 	
138 | 		/**
139 | 		 * Removes all|some of the service tag attributes from CFC variables scope. Accepts a list of service tag attributes to remove. If no attributes are specified, all attributes are
140 | 		 * removed from CFC variables scope
141 | 		 * @output false
142 | 		 */
143 | 		public void function clearAttributes(string tagAttributesToClear="")
144 | 		{
145 | 			var attributeslist = isdefined("arguments.tagAttributesToClear") and trim(arguments.tagAttributesToClear) neq "" ? arguments.tagAttributesToClear : variables.tagAttributes;
146 | 			var i = 0;
147 | 
148 | 			for(i=1;i lte listlen(attributeslist); i++)
149 | 			{
150 | 				var attrib = trim(listgetat(attributeslist,i));
151 | 				clearAttribute(variables,attrib);
152 | 			}
153 | 		}
154 | 	
155 | 
156 | 		/**
157 | 		 * Removes service tag attributes
158 | 		 * @output false
159 | 		 */
160 | 		public void function clear()
161 | 		{
162 | 			 clearAttributes();
163 | 			 clearParams();
164 | 		}
165 | 
166 | 	
167 | 		/**
168 | 		 * Resets child tags by resetting the parameters array
169 | 		 * @output false
170 | 		 */    
171 | 		public void function clearParams()
172 | 		{
173 | 			if(isdefined("variables.parameters"))
174 | 			{
175 | 			 	variables.parameters = [];
176 | 			}
177 | 		}
178 | 
179 | 	
180 | 		/**
181 | 		 * Returns a struct with attributes set either using implicit setters | init() | setAttributes()
182 | 		 * @output false
183 | 		 */
184 | 		private struct function getTagAttributes()
185 | 		{
186 | 			var tagAttributes = structnew();
187 | 			var i = 0;
188 | 			
189 | 			for(i=1; i lte listlen(variables.tagAttributes); i++)
190 | 			{
191 | 				var attrib = trim(listgetat(variables.tagAttributes,i));
192 | 				if(structkeyexists(variables,attrib))
193 | 				{
194 | 					tagAttributes[attrib] = variables[attrib];
195 | 				}
196 | 			}
197 | 			return tagAttributes;
198 | 		}
199 | 		
200 | 		/**
201 | 		 * Trim tag attributes
202 | 		 * @output false
203 | 		 */
204 | 		private struct function trimAttributes(struct attribs={})
205 | 		{
206 | 			var tagAttributes = {};
207 | 			if(!structisempty(attribs))
208 | 			{
209 | 				for(var attrib in attribs)
210 | 				{
211 | 					tagAttributes[attrib] = isSimpleValue(attribs[attrib]) ? trim(attribs[attrib]) : attribs[attrib];
212 | 				}
213 | 			}
214 | 			return tagAttributes;
215 | 		}		
216 | 
217 | 
218 | 		/** 
219 | 		 * Accepts a service tag name and returns the allowed tag attributes. Uses double-checked locking
220 | 		 * @output false
221 | 		 */
222 | 		private string function getSupportedTagAttributes(string tagName)
223 | 		{
224 | 			//store all service tag attributes in Server scope for faster access. 
225 | 			if(not isdefined("server.coldfusion.serviceTagAttributes.#tagName#"))
226 | 			{	
227 | 				lock scope="server" timeout="30" throwontimeout="yes" type="exclusive"
228 | 				{
229 | 					if(not isdefined("server.coldfusion.serviceTagAttributes.#tagName#"))
230 | 					{	
231 | 						var webinf = getPageContext().getServletContext().getRealPath("/WEB-INF");
232 | 						var sep = server.os.name contains "windows"? "\" : "/";
233 | 						var cftldpath = webinf & sep & "cftags" & sep & "META-INF" & sep & "taglib.cftld";
234 | 						var xpath = "/taglib/tag[name='#lcase(Right(tagName,len(tagName)-2))#']/attribute/name";
235 | 						var cftagsXml = XmlParse(FileRead(cftldpath));
236 | 						var tagAttributes = xmlsearch(cftagsXml,xpath);
237 | 						var attributeslist = "";
238 | 						var i = 0;
239 | 						for(i=1;i lte arraylen(tagAttributes); i++)
240 | 						{
241 | 							attributeslist = listappend(attributeslist,trim(tagAttributes[i].xmltext));
242 | 						}
243 | 						server.coldfusion.serviceTagAttributes[tagName] = listsort(attributeslist,"textnocase","ASC");
244 | 					}
245 | 				}
246 | 			}
247 | 
248 | 			//use a local variable for faster access
249 | 			lock scope="server" timeout="30" throwontimeout="yes" type="readonly"
250 | 			{
251 | 				var attributeslist = server.coldfusion.serviceTagAttributes[tagName];
252 | 			}
253 | 			
254 | 			return attributeslist;
255 | 		}
256 | 
257 | 
258 | 		/**
259 | 		 * Add child tags like cfmailparam, cfmailpart etc
260 | 		 * @output false
261 | 		 */
262 | 		public void function addParam()
263 | 		{
264 | 			if(!structisempty(arguments))
265 | 			{
266 | 				if(isdefined("variables.parameters"))
267 | 				{
268 | 					arrayappend(variables.parameters, arguments);
269 | 				}
270 | 			}
271 | 		}
272 | 
273 | 
274 | 		/**
275 | 		 * Get array of parameters added using addParam()
276 | 		 * @output false
277 | 		 */
278 | 		public array function getParameters()
279 | 		{
280 | 			return variables.parameters;
281 | 		}
282 | 
283 | 
284 | 		/**
285 | 		 * Validate against any incorrect attributes passed to the child tags. This is done by passing allowExtraAttributes=false
286 | 		 * @output false
287 | 		 */
288 | 		private array function appendAllowExtraAttributes(array params)
289 | 		{
290 | 			var temp = [];
291 | 			var nbrOfParams = arraylen(arguments.params);
292 | 			var i = 0;
293 | 
294 | 			for(i=1; i lte nbrOfParams; i++)
295 | 			{
296 | 				var param = arguments.params[i];
297 | 				if(isstruct(param))
298 | 				{
299 | 					structappend(param,{allowExtraAttributes=false});
300 | 					arrayappend(temp,param);
301 | 				}
302 | 			}
303 | 			return temp;
304 | 		}
305 | 
306 | 	</cfscript>
307 |     
308 |     
309 | 
310 |     <!---
311 | 	The corresponding service tag to invoke. 
312 | 
313 | 	Supported service tags are 
314 | 		cfhttp
315 | 		cfftp
316 | 		cfpdf
317 | 		cfmail
318 | 		cfquery
319 | 		cfstoredproc
320 | 	--->
321 | 
322 |     <cffunction name="invokeTag" access="private" output="true" returntype="any" hint="invokes the service tag">
323 |         <cfargument name="tagName" type="string" hint="Name of the service tag to invoke">
324 |         <cfargument name="tagAttributes" type="struct" hint="Attributes of the service tag that were set using either init() | implicit setters | setAttributes()">
325 |         <cfargument name="tagParams" type="struct" required="no" default="#{}#" hint="Struct containing child params/tags">
326 |         
327 | 		<cfset var params = structkeyexists(arguments.tagParams,"params") ? appendAllowExtraAttributes(arguments.tagParams["params"]) : []>
328 | 		<cfset var tagresult = new result()>
329 | 		<cfset arguments.tagAttributes = appendAllowExtraAttributes([arguments.tagAttributes])[1]>
330 | 
331 |         <cfswitch expression="#tagName#">
332 | 
333 |             <!--- http service  --->
334 |             <cfcase value="CFHTTP">
335 |                 <cfset var httpparam = "">
336 |                 <cfhttp attributeCollection="#tagAttributes#">
337 |                     <cfloop array="#params#" index="httpparam">
338 |                         <cfhttpparam attributeCollection="#httpparam#">
339 |                     </cfloop>
340 |                 </cfhttp>
341 | 	        	<!--- set query object and http prefix--->
342 | 				<cfif structkeyexists(tagAttributes,"name") and tagAttributes["name"] neq "">
343 |                     <cfset tagresult.setResult(StructFind(variables,tagAttributes["name"]))>
344 | 				</cfif>   
345 | 				<cfset tagresult.setPrefix(cfhttp)>
346 |                 <cfreturn tagResult>
347 | 			</cfcase>
348 | 		
349 |         	<!--- ftp service --->
350 |             <cfcase value="CFFTP">
351 |                 <cfftp attributeCollection="#tagAttributes#">
352 | 	        	<!--- set query object (for listdir action) and cfftp prefix --->
353 | 				<cfif structkeyexists(tagAttributes,"name") and trim(tagAttributes["name"]) neq "">
354 |                     <cfset tagResult.setResult(StructFind(variables,tagAttributes["name"]))>
355 | 				</cfif>
356 | 				<cfset tagResult.setPrefix(cfftp)>
357 |                 <cfreturn tagResult>
358 |             </cfcase>
359 |         
360 |         	<!--- pdf service --->
361 |             <cfcase value="CFPDF">
362 | 				<!--- If the "source" attribute contains any cfdocument or cfpdf variables, we need to pass a variable with that value instead of the value --->
363 |                 <cfset var sourceVar = "">
364 |                 <cfset var pdfparam = ""> 
365 |                 <cfset var nameAttributeRequiredList = "read,getinfo,processddx">
366 |                 <cfset var nameAttributeOptionalList = "extracttext">
367 |                 <cfset var nameAttributeNotRequiredList = "extractimage,thumbnail">
368 | 
369 |                 <cfif structkeyexists(tagAttributes,"source") and not isSimpleValue(tagAttributes["source"])>
370 |                      <cfset sourceVar = tagAttributes["source"]>
371 |                      <cfset structappend(tagAttributes,{source="sourceVar"})>
372 |                 </cfif>
373 | 				
374 | 				<!--- 
375 | 				name attribute is optional in the script version but since the underlying tag would still require it, we insert one. 
376 | 				Exceptions:
377 | 				addwatermark, addheader, addfooter, deletepages, merge, optimize, protect, removeheaderfooter, removeWatermark, setinfo, transform, write
378 | 				(since these actions operate on the source pdf if name or destination attribute is not provided)
379 | 				--->
380 | 				<cfif not structkeyexists(tagAttributes,"name")>
381 | 					<cfif listcontainsnocase(nameAttributeRequiredList,tagAttributes["action"]) or listcontainsnocase(nameAttributeOptionalList,tagAttributes["action"])>
382 | 						<!--- destination and name are mutually exclusive --->
383 | 						<cfif not structkeyexists(tagAttributes,"destination")>
384 | 							<cfset tagAttributes["name"] = "_cf_pdf_#randrange(1,100000)#">
385 | 						</cfif>
386 | 					</cfif>
387 | 				</cfif>
388 | 				
389 | 				<cfpdf attributeCollection="#tagAttributes#">
390 |                     <cfif comparenocase(tagAttributes["action"],"merge") eq 0>
391 |                         <cfif arraylen(params) gt 0>
392 |                             <cfloop array="#params#" index="pdfparam">
393 |                                 <cfpdfparam attributeCollection="#pdfparam#">
394 |                             </cfloop>
395 |                     	</cfif>
396 | 					</cfif>
397 |                 </cfpdf>  
398 | 
399 | 				<!--- process name attribute for actions other than action="thumbnail | extractimage" --->
400 | 				<cfif not listcontainsnocase(nameAttributeNotRequiredList,tagAttributes["action"])>
401 |                 	<cfif structkeyexists(tagAttributes,"name") and tagAttributes["name"] neq "">
402 | 						<cfset tagResult.setResult(StructFind(variables,tagAttributes["name"]))>
403 |                 	</cfif>
404 | 				<cfelse>
405 |                 	<cfset tagResult.setResult("")>
406 | 				</cfif>
407 | 				
408 |                 <cfreturn tagResult>
409 |             </cfcase>
410 | 			
411 |             <!--- mail service --->
412 |         	<cfcase value="CFMAIL">
413 |             	<cfset var mailbody = "">
414 | 				<cfset var mailpartbody = "">
415 | 				<cfset var mailparam = "">
416 | 				<cfset var mailpart = "">
417 | 				<cfset var parts = structkeyexists(tagParams,"parts") ? appendAllowExtraAttributes(tagParams["parts"]) : []>
418 |                 <!--- if query attribute exists, pass a variable with query object instead of the query object --->
419 | 				<cfif structkeyexists(tagAttributes,"query") and isquery(tagAttributes["query"])>
420 |                      <cfset var queryVar = tagAttributes['query']>
421 |                      <cfset structappend(tagAttributes,{query="queryVar"},"yes")>
422 |             	</cfif>
423 |                 <!--- Capture mail content into a local variable and delete body attribute --->
424 |                 <cfif structkeyexists(tagAttributes,"body")>
425 |                      <cfset var mailbody = tagAttributes["body"]>
426 |                      <cfset structdelete(tagAttributes,"body")>
427 |                 </cfif>
428 | 				<!--- invoke the cfmail/cfmailparams/cfmailpart tags --->
429 |                 <cfmail attributeCollection="#tagAttributes#">
430 |                     #mailbody#
431 |                     <cfloop array="#params#" index="mailparam">
432 |                         <cfmailparam attributeCollection="#mailparam#">
433 |                     </cfloop>
434 |                     <cfloop array="#parts#" index="mailpart">
435 |                         <!--- Capture mailpart content into a local variable and delete body attribute ---> 
436 |                         <cfif structkeyexists(mailpart,"body")>
437 |                              <cfset var mailpartbody = mailpart["body"]>
438 |                              <cfset structdelete(mailpart,"body")>
439 |                         </cfif>
440 |                         <cfmailpart attributeCollection="#mailpart#">
441 |                             #trim(mailpartbody)#
442 |                         </cfmailpart>
443 |                     </cfloop>
444 |                 </cfmail>
445 |                 <cfreturn tagResult>
446 | 			</cfcase>
447 | 
448 | 			<!--- query service --->
449 |             <cfcase value="CFQUERY">
450 | 				<cfset var sqlparams = structkeyexists(tagParams,"params") ? tagParams["params"] : []>
451 | 				<cfset var sqlArray = structkeyexists(tagParams,"sqlArray") ? tagParams["sqlArray"] : []>
452 | 				<cfset var sqlQuery = structkeyexists(tagParams,"sql") ? tagParams["sql"] : "">
453 | 				<cfset var sqlType = structkeyexists(tagParams,"sqlType") ? tagParams["sqlType"] : "">
454 | 				<cfset var i = 0>
455 |                 <cfquery attributeCollection="#tagAttributes#">
456 |                     <!--- if no queryparams exist, use query directly --->
457 |                     <cfif arraylen(sqlParams) eq 0>
458 |                         #PreserveSingleQuotes(sqlQuery)#
459 |                     <cfelse>    
460 |                         #getPreserveSingleQuotes(sqlArray[1])#
461 |                         <cfif sqlType neq "" and arraylen(sqlParams) gt 0>
462 |                             <cfloop index="i" from="2" to="#ArrayLen(sqlArray)#">
463 |                                 <cfif (i-1) lte arraylen(sqlParams)>
464 |                                     <cfqueryparam attributeCollection="#sqlParams[i-1]#"/>
465 |                                  </cfif>   
466 |                                 #getPreserveSingleQuotes(sqlArray[i])#
467 |                             </cfloop>          
468 |                         </cfif>
469 |                     </cfif>
470 |                 </cfquery>  
471 | 				<!--- set resultset and query meta info --->
472 |                 <cftry>
473 | 					<cfset tagResult.setResult(StructFind(variables,tagAttributes['name']))>
474 | 					<cfcatch type="any">
475 |                     </cfcatch>
476 |                 </cftry>                    
477 |                 <cfset tagResult.setPrefix(StructFind(variables,tagAttributes['result']))>
478 | 				<cfreturn tagResult>
479 |             </cfcase>
480 | 
481 | 
482 | 			<!--- storedproc service --->
483 |             <cfcase value="CFSTOREDPROC">
484 | 				<cfset var procresults = structkeyexists(tagParams,"procresults") ? appendAllowExtraAttributes(tagParams["procresults"]) : []>
485 |                 <cfset var spResult = new storedprocResult()>
486 |                 <cfset var procparam = "">
487 |                 <cfset var procresult = "">
488 |                 <cfstoredproc attributeCollection="#tagAttributes#">
489 |                     <cfloop array="#params#" index="procparam">
490 |                         <cfprocparam attributeCollection="#procparam#"/>
491 |                     </cfloop>          
492 |                     <cfloop array="#procresults#" index="procresult">
493 |                         <cfprocresult attributeCollection="#procresult#"/>
494 |                     </cfloop>          
495 |                 </cfstoredproc>
496 |                 <!--- process proc vars --->
497 | 				<cfset var procvars = {}>
498 |         		<cfloop array="#params#" index="procparam">
499 |         			<cfif structkeyexists(procparam,"type") and listcontainsnocase("OUT,INOUT",procparam["type"])>
500 |                 		<cfif structkeyexists(procparam,"variable") and procparam["variable"] neq "">
501 |                             <cfset procvars[procparam.variable] = StructFind(variables,procparam["variable"])>
502 |                 		</cfif>
503 |                 	</cfif>
504 |             	</cfloop>
505 |                 <!--- process proc resultsets --->
506 |                 <cfset var procresultset = {}>
507 |         		<cfloop array="#procresults#" index="procresult">
508 |         			<cfset procresultset[procresult.name] = StructFind(variables,procresult["name"])>
509 |             	</cfloop>
510 |                 <!--- set inout and out variables, proc resultsets and the cfstoredproc prefix --->
511 | 				<cfset spResult.setProcOutVariables(procvars)>
512 | 				<cfset spResult.setProcResultSets(procresultset)>
513 |                 <cfif structkeyexists(tagAttributes,"result") and tagAttributes["result"] neq "">
514 | 			 		<cfset spResult.setPrefix(StructFind(variables,tagAttributes["result"]))>
515 |  				<cfelse>
516 | 			 		<cfset spResult.setPrefix(cfstoredproc)>
517 | 				</cfif>
518 |                 <cfreturn spResult>
519 |             </cfcase>
520 | 
521 |         	<!--- cffeed service --->
522 |             <cfcase value="CFFEED">
523 |                 <cfset var feedResult = {}>
524 |                 <!--- invoke the cffeed tag to perform the cffeed services read and create --->
525 |                 <cffeed attributeCollection="#tagAttributes#">
526 | 	        	<cfif tagAttributes["action"] eq "read">
527 | 		        	<!--- update feedResult with items and metadata --->
528 | 					<cfif structkeyexists(tagAttributes,"name") and trim(tagAttributes["name"]) neq "">
529 | 	                    <cfset structappend(feedResult,{name=StructFind(variables,tagAttributes["name"])})> 
530 | 					</cfif>
531 | 					<!--- update feedResult with metadata  ---> 	
532 | 					<cfif structkeyexists(tagAttributes,"properties") and trim(tagAttributes["properties"]) neq "">
533 | 	                    <cfset structappend(feedResult,{properties=StructFind(variables,tagAttributes["properties"])})> 
534 | 					</cfif>
535 | 					<!--- update feedResult with items ---> 	
536 | 					<cfif structkeyexists(tagAttributes,"query") and trim(tagAttributes["query"]) neq "">
537 | 	                    <cfset structappend(feedResult,{query=StructFind(variables,tagAttributes["query"])})> 
538 | 					</cfif>
539 | 				</cfif>
540 | 				<!--- update feedResult with xmlvar. Applicable for read and create ---> 	
541 | 				<cfif structkeyexists(tagAttributes,"xmlvar") and trim(tagAttributes["xmlvar"]) neq "">
542 |                     <cfset structappend(feedResult,{xmlvar=StructFind(variables,tagAttributes["xmlvar"])})> 
543 | 				</cfif>
544 | 				<!--- set result property to feedResult --->
545 | 				<cfset tagResult.setResult(feedResult)>
546 |                 <cfreturn tagResult>
547 |             </cfcase>
548 |             
549 |             <!--- cfexecute service --->
550 | 			<cfcase value="CFEXECUTE">
551 | 				<cfset var stdout = "" />
552 | 				<cfset var stderr = "" />
553 | 				<cfset tagAttributes.variable = "stdout" />
554 | 				<cfset tagAttributes.errorVariable = "stderr" />  
555 | 				
556 | 				<cfset var resultSet = {} />
557 | 			
558 |                 <cfexecute attributeCollection="#tagAttributes#" />
559 | 				<cfset resultSet.result = Trim(stdout) />
560 | 				<cfset resultSet.error = Trim(stderr) />
561 | 				
562 | 				
563 | 				<cfset tagResult.setResult(resultSet) />
564 | 				
565 | 				<cfreturn tagResult>
566 | 			</cfcase>
567 | 			
568 |         	<!--- cfldap service --->
569 | 			<cfcase value="CFLDAP">
570 |                 <cfldap attributeCollection="#tagAttributes#" />
571 | 				<cfif tagAttributes["action"] eq "query">
572 | 					<!--- set query object --->
573 | 					<cfif structkeyexists(tagAttributes,"name") and tagAttributes["name"] neq "">
574 | 						<cfset tagResult.setResult(StructFind(variables,tagAttributes["name"]))>
575 |                 	</cfif>  
576 | 				</cfif>
577 | 				<cfreturn tagResult>
578 | 			</cfcase>		
579 | 
580 |         	<!--- cfdbinfo service --->
581 |             <cfcase value="CFDBINFO">
582 |                 <cfdbinfo attributeCollection="#tagAttributes#" />
583 | 	        	<!--- set query object --->
584 | 				<cfif structkeyexists(tagAttributes,"name") and tagAttributes["name"] neq "">
585 |                     <cfset tagresult.setResult(StructFind(variables,tagAttributes["name"]))>
586 | 				</cfif>  
587 |                 <cfreturn tagResult>
588 | 			</cfcase>
589 | 
590 |             <!--- cfpop service --->
591 | 			<cfcase value="CFPOP">
592 |                 <cfpop attributeCollection="#tagAttributes#" />
593 | 	        	<!--- set query object --->
594 | 				<cfif structkeyexists(tagAttributes,"name") and tagAttributes["name"] neq "">
595 |                     <cfset tagresult.setResult(StructFind(variables,tagAttributes["name"]))>
596 | 				</cfif>  
597 |                 <cfreturn tagResult>
598 | 			</cfcase>
599 | 
600 |             <!--- cfimap service --->
601 |  			<cfcase value="CFIMAP">
602 |                 <cfimap attributeCollection="#tagAttributes#" />
603 | 	        	<!--- set query object --->
604 | 				<cfif structkeyexists(tagAttributes,"name") and tagAttributes["name"] neq "">
605 |                     <cfset tagresult.setResult(StructFind(variables,tagAttributes["name"]))>
606 | 				</cfif>  
607 |                 <cfreturn tagResult>
608 | 			</cfcase>		
609 | 
610 |         	<!--- cfsearch service --->
611 |             <cfcase value="CFSEARCH">
612 |                 <cfset var searchResult = {}>
613 | 				<cfset var localname = "cfsearch_" & replace(createUUID(), "-","_","all")>
614 | 				<cfif structKeyExists(tagAttributes, "status") and trim(tagAttributes["status"]) neq "">
615 | 					<cfset var statusname = "cfsearchstatus_" & replace(createUUID(), "-","_","all")>
616 | 					<cfset tagAttributes.status = "local.#statusname#">
617 | 				</cfif>
618 |                 <cfsearch attributeCollection="#tagAttributes#" name="local.#localname#">
619 | 				<cfset searchResult.name = local[localname]>
620 | 				<cfif structKeyExists(tagAttributes, "status") and trim(tagAttributes["status"]) neq "">
621 | 					<cfset searchResult.status = local[statusname]>
622 | 				</cfif>
623 | 
624 | 				<cfset tagResult.setResult(searchResult)>
625 |                 <cfreturn tagResult>
626 |             </cfcase>
627 | 
628 |         	<!--- cfindex service --->
629 |             <cfcase value="CFINDEX">
630 |                 <cfset var indexResult = {}>
631 | 				<cfif structKeyExists(tagAttributes, "status") and trim(tagAttributes["status"]) neq "">
632 | 					<cfset var statusname = "cfsearchstatus_" & replace(createUUID(), "-","_","all")>
633 | 					<cfset tagAttributes.status = "local.#statusname#">
634 | 				</cfif>
635 | 				<cfif structKeyExists(tagAttributes,"query")>
636 | 					<cfset local.query = tagAttributes.query>
637 | 					<cfset tagAttributes.query = "local.query">
638 | 				</cfif>
639 |                 <cfindex attributeCollection="#tagAttributes#">
640 | 				<cfif structKeyExists(tagAttributes, "status") and trim(tagAttributes["status"]) neq "">
641 | 					<cfset indexResult.status = local[statusname]>
642 | 				</cfif>
643 | 
644 | 				<cfset tagResult.setResult(indexResult)>
645 |                 <cfreturn tagResult>
646 |             </cfcase>
647 | 
648 |         	<!--- cfcollection service --->
649 |             <cfcase value="CFCOLLECTION">
650 |                 <cfset var colResult = {}>
651 | 				<cfset var localname = "cfcollection_" & replace(createUUID(), "-","_","all")>
652 | 				<cfif listFindNoCase("list,categoryList",tagAttributes.action)>
653 | 					<cfset tagAttributes.name = "local.#localname#">
654 | 				</cfif>
655 |                 <cfcollection attributeCollection="#tagAttributes#">
656 | 				<cfif structKeyExists(tagAttributes, "name")>
657 | 					<cfset colResult.name = local[localname]>
658 | 				</cfif>
659 | 				<cfset tagResult.setResult(colResult)>
660 |                 <cfreturn tagResult>
661 |             </cfcase>
662 | 
663 | 		</cfswitch>
664 | 	</cffunction>
665 | </cfcomponent>


--------------------------------------------------------------------------------
/collection.cfc:
--------------------------------------------------------------------------------
  1 | /***********************************************************************************************************
  2 | *
  3 | * Made by Raymond Camden, Jedi Master
  4 | *
  5 | * MIT License
  6 | * 
  7 | * Copyright (c) 2011 The ColdFusion Community
  8 | * 
  9 | * Permission is hereby granted, free of charge, to any person obtaining a copy of this software and 
 10 | * associated documentation files (the "Software"), to deal in the Software without restriction, including 
 11 | * without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell 
 12 | * copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the 
 13 | * following conditions:
 14 | * 
 15 | * The above copyright notice and this permission notice shall be included in all copies or substantial 
 16 | * portions of the Software.
 17 | * 
 18 | * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT 
 19 | * LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN 
 20 | * NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, 
 21 | * WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE 
 22 | * SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 23 | * 
 24 | * See also: http://www.opensource.org/licenses/mit-license.html
 25 | *
 26 | *************************************************************************************************************/
 27 | 
 28 | /**
 29 |  * Collection Service to perform solr collection operations in cfscript
 30 |  * @name collection
 31 |  * @displayname ColdFusion Collection Service 
 32 |  * @output false
 33 |  * @accessors true
 34 |  */
 35 | component extends="base" {
 36 | 
 37 | 	property string action;
 38 | 	property string categories;
 39 | 	property string collection;
 40 | 	property string engine;
 41 | 	property string language;
 42 | 	property string name;
 43 | 	property string path;
 44 | 
 45 | 	property name="properties" type="any" getter="false" setter="false";
 46 | 
 47 | 	//service tag to invoke
 48 | 	variables.tagName = "CFCOLLECTION";
 49 | 	
 50 |     //cfcollection tag attributes
 51 |     variables.tagAttributes = getSupportedTagAttributes(getTagName());
 52 | 
 53 | 	/**
 54 | 	 * Default constructor invoked when search objects are created. 
 55 | 	 * @return search object
 56 | 	 * @output false
 57 | 	 */
 58 |     public collection function init() 
 59 | 	{
 60 | 		if(!structisempty(arguments)) structappend(variables,arguments);
 61 |         return this;
 62 |     }
 63 | 
 64 | 
 65 |     /**
 66 | 	 * Invoke the cfcollection service tag to get categories for a collection
 67 |      * Usage :: new collection().categoryList(collection="fivetag");
 68 | 	 * @output false      
 69 | 	 */
 70 |     public struct function categoryList()
 71 |     {
 72 |         //store tag attributes to be passed to the service tag in a local variable
 73 |         var tagAttributes = duplicate(getTagAttributes());
 74 | 
 75 |         //attributes passed to service tag action like send() override existing attributes and are discarded after the action
 76 | 		if (!structisempty(arguments))
 77 |         {
 78 |     		 structappend(tagAttributes,arguments);
 79 |         }
 80 | 
 81 | 		tagAttributes.action="categorylist";
 82 | 
 83 | 		//trim attribute values
 84 | 		tagAttributes = trimAttributes(tagAttributes);
 85 | 
 86 | 		return super.invokeTag(getTagName(),tagAttributes);
 87 |     }
 88 | 
 89 |     /**
 90 | 	 * Invoke the cfcollection service tag to create collections
 91 |      * Usage :: new collection().create(collection="fivetag",path="c...");
 92 | 	 * @output false      
 93 | 	 */
 94 |     public struct function create()
 95 |     {
 96 |         //store tag attributes to be passed to the service tag in a local variable
 97 |         var tagAttributes = duplicate(getTagAttributes());
 98 | 
 99 |         //attributes passed to service tag action like send() override existing attributes and are discarded after the action
100 | 		if (!structisempty(arguments))
101 |         {
102 |     		 structappend(tagAttributes,arguments);
103 |         }
104 | 
105 | 		tagAttributes.action="create";
106 | 
107 | 		//trim attribute values
108 | 		tagAttributes = trimAttributes(tagAttributes);
109 | 
110 | 		return super.invokeTag(getTagName(),tagAttributes);
111 |     }
112 | 
113 |     /**
114 | 	 * Invoke the cfcollection service tag to delete collections
115 |      * Usage :: new collection().delete(collection="boom");
116 | 	 * @output false      
117 | 	 */
118 |     public struct function delete()
119 |     {
120 |         //store tag attributes to be passed to the service tag in a local variable
121 |         var tagAttributes = duplicate(getTagAttributes());
122 | 
123 |         //attributes passed to service tag action like send() override existing attributes and are discarded after the action
124 | 		if (!structisempty(arguments))
125 |         {
126 |     		 structappend(tagAttributes,arguments);
127 |         }
128 | 
129 | 		tagAttributes.action="delete";
130 | 
131 | 		//trim attribute values
132 | 		tagAttributes = trimAttributes(tagAttributes);
133 | 
134 | 		return super.invokeTag(getTagName(),tagAttributes);
135 |     }
136 | 
137 |     /**
138 | 	 * Invoke the cfcollection service tag to list solr collections in cfscript
139 |      * Usage :: new collection().list();
140 | 	 * @output false      
141 | 	 */
142 |     public struct function list()
143 |     {
144 |         //store tag attributes to be passed to the service tag in a local variable
145 |         var tagAttributes = duplicate(getTagAttributes());
146 | 
147 |         //attributes passed to service tag action like send() override existing attributes and are discarded after the action
148 | 		if (!structisempty(arguments))
149 |         {
150 |     		 structappend(tagAttributes,arguments);
151 |         }
152 | 
153 | 		tagAttributes.action="list";
154 | 
155 | 		//trim attribute values
156 | 		tagAttributes = trimAttributes(tagAttributes);
157 | 
158 | 		return super.invokeTag(getTagName(),tagAttributes);
159 |     }
160 | 
161 |     /**
162 | 	 * Invoke the cfcollection service tag to optimize collections
163 |      * Usage :: new collection().optimize(collection="boom");
164 | 	 * @output false      
165 | 	 */
166 |     public struct function optimize()
167 |     {
168 |         //store tag attributes to be passed to the service tag in a local variable
169 |         var tagAttributes = duplicate(getTagAttributes());
170 | 
171 |         //attributes passed to service tag action like send() override existing attributes and are discarded after the action
172 | 		if (!structisempty(arguments))
173 |         {
174 |     		 structappend(tagAttributes,arguments);
175 |         }
176 | 
177 | 		tagAttributes.action="optimize";
178 | 
179 | 		//trim attribute values
180 | 		tagAttributes = trimAttributes(tagAttributes);
181 | 
182 | 		return super.invokeTag(getTagName(),tagAttributes);
183 |     }
184 | 
185 | 
186 | }


--------------------------------------------------------------------------------
/content.cfc:
--------------------------------------------------------------------------------
 1 | <!-----------------------------------------------------------------------------------------------------------
 2 | 	MIT License
 3 | 
 4 | 	Copyright (c) 2011 The ColdFusion Community
 5 | 
 6 | 	Permission is hereby granted, free of charge, to any person obtaining a copy of this software and 
 7 | 	associated documentation files (the "Software"), to deal in the Software without restriction, including 
 8 | 	without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell 
 9 | 	copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the 
10 | 	following conditions:
11 | 
12 | 	The above copyright notice and this permission notice shall be included in all copies or substantial 
13 | 	portions of the Software.
14 | 
15 | 	THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT 
16 | 	LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN 
17 | 	NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, 
18 | 	WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE 
19 | 	SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
20 | 
21 | 	See also: http://www.opensource.org/licenses/mit-license.html
22 | ------------------------------------------------------------------------------------------------------------->
23 | <cfcomponent>
24 |     <cffunction access="public" returns="void" name="init">
25 | 		<cfif structIsEmpty(arguments)>
26 | 			<cfreturn />
27 | 		</cfif>
28 | 		<cfcontent attributeCollection="#arguments#" />
29 | 	</cffunction>
30 | </cfcomponent>


--------------------------------------------------------------------------------
/cookie.cfc:
--------------------------------------------------------------------------------
 1 | <!-----------------------------------------------------------------------------------------------------------
 2 | 	MIT License
 3 | 
 4 | 	Copyright (c) 2011 The ColdFusion Community
 5 | 
 6 | 	Permission is hereby granted, free of charge, to any person obtaining a copy of this software and 
 7 | 	associated documentation files (the "Software"), to deal in the Software without restriction, including 
 8 | 	without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell 
 9 | 	copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the 
10 | 	following conditions:
11 | 
12 | 	The above copyright notice and this permission notice shall be included in all copies or substantial 
13 | 	portions of the Software.
14 | 
15 | 	THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT 
16 | 	LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN 
17 | 	NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, 
18 | 	WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE 
19 | 	SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
20 | 
21 | 	See also: http://www.opensource.org/licenses/mit-license.html
22 | ------------------------------------------------------------------------------------------------------------->
23 | <cfcomponent>
24 |     <cffunction access="public" returns="void" name="init">
25 | 		<cfif structIsEmpty(arguments)>
26 | 			<cfreturn />
27 | 		</cfif>
28 | 		<cfcookie attributeCollection="#arguments#" />
29 | 	</cffunction>
30 | </cfcomponent>


--------------------------------------------------------------------------------
/execute.cfc:
--------------------------------------------------------------------------------
  1 | 
  2 | /**
  3 |  * Execute Service : Executes a ColdFusion developer-specified process on a server computer.
  4 |  * @name execute
  5 |  * @displayname ColdFusion Execute(Command Line) Service 
  6 |  * @output false
  7 |  * @accessors true
  8 |  */
  9 | component extends="base"
 10 | {
 11 |     property string name;
 12 |     property string arguments;
 13 |     property string outputFile;
 14 |     property numeric timeout;
 15 | 
 16 | 	//service tag to invoke
 17 |     variables.tagName = "CFEXECUTE";
 18 | 	
 19 |     //valid ldap tag attributes
 20 |     variables.tagAttributes = getSupportedTagAttributes(getTagName());
 21 | 	
 22 | 
 23 | 
 24 | 	/**
 25 | 	 * Initialization routine. Returns an instance of this component
 26 | 	 * @output false
 27 | 	 */
 28 |     public execute function init()
 29 |     {
 30 | 		if(!structisempty(arguments))
 31 | 		{
 32 |         	structappend(variables,arguments,"yes");
 33 |     	}
 34 | 		
 35 | 		/* 
 36 | 		Special case for cfdump: 
 37 | 		If attributes is not set in the contructor, we set it to an empty string.
 38 | 		If this is not done, value for attributes in dump will be a struct containing all properties set in cfc variables scope.
 39 | 		*/
 40 | 		/*
 41 | 		if(!structkeyexists(variables,"attributes")){
 42 | 			this.setAttributes("");
 43 | 		}
 44 | 		*/
 45 | 		
 46 |         return this;
 47 |     }
 48 | 	
 49 | 
 50 | 
 51 | 	/**
 52 | 	 * Used to set "attributes" property. 
 53 | 	 * Note that implicit setter setAttributes() is not used since a method with the same name is defined in base.cfc 
 54 | 	 * @output false
 55 | 	 */
 56 | 	public void function setLdapAttributes(String attributes)
 57 | 	{
 58 | 		variables.attributes = attributes;
 59 | 	}
 60 | 
 61 | 
 62 | 
 63 | 	/**
 64 | 	 * Returns the "attributes" property, if defined, or an empty string    
 65 | 	 * Note that implicit getter getAttributes() is not used since a method with the same name is defined in base.cfc 
 66 | 	 * @output false
 67 | 	 */
 68 | 	public function getLdapAttributes()
 69 | 	{
 70 | 		return structkeyexists(variables,"attributes") ? variables.attributes : "";
 71 | 	}
 72 | 
 73 | 
 74 | 
 75 | 	/**
 76 | 	 * Removes tag attributes from variables scope. Accepts a list of tag attributes 
 77 | 	 * If no attributes are specified, all attributes are removed from CFC variables scope
 78 | 	 * @output false
 79 | 	 */
 80 | 	public void function clearAttributes(string tagAttributesToClear="")
 81 | 	{
 82 | 		//delegate call to clearAttributes in base.cfc
 83 | 		super.clearAttributes(tagAttributesToClear);
 84 | 		
 85 | 		//required since we explicitly set attributes to "" (see init method)
 86 | 		if(!structkeyexists(variables,"attributes"))
 87 | 			this.setAttributes("");
 88 | 	}
 89 | 
 90 | 	
 91 | 
 92 | 	/**
 93 | 	 * Removes tag attributes
 94 | 	 * @output false
 95 | 	 */
 96 | 	public void function clear()
 97 | 	{
 98 | 		//delegate call to clearAttributes
 99 | 		 clearAttributes();
100 | 	}	
101 | 	
102 | 	/* ************************ BEGIN :: EXECUTE SERVICES *************************************** */
103 | 	
104 | 		/**
105 |      * Invoke the cfexecute tag to provide the command line access in cfscript
106 |      * @output true 
107 |      */
108 |     public result function execute()
109 | 	{
110 |         //store tag attributes to be passed to the service tag in a local variable
111 | 		var tagAttributes = duplicate(getTagAttributes());
112 | 
113 | 		//attributes passed to service tag action like send() override existing attributes and are discarded after the action
114 | 		if(!structisempty(arguments))
115 |         {
116 |     		 structappend(tagAttributes,arguments,"yes");
117 |         }
118 |     
119 |         //if a result attribute is specified, we ignore it so that we can always return the result struct 
120 | 		if(structkeyexists(tagAttributes,"result"))
121 |         {
122 |              structdelete(tagAttributes, "result");
123 |         }
124 | 
125 | 		//trim attribute values
126 | 		tagAttributes = trimAttributes(tagAttributes);
127 | 
128 | 		return super.invokeTag(getTagName(),tagAttributes);
129 |     }
130 | 
131 | 	
132 | 	
133 | 	/* ************************ END :: EXECUTE SERVICES *************************************** */
134 | 
135 | 
136 | 
137 | 
138 | }


--------------------------------------------------------------------------------
/flush.cfc:
--------------------------------------------------------------------------------
 1 | <!-----------------------------------------------------------------------------------------------------------
 2 | 	MIT License
 3 | 
 4 | 	Copyright (c) 2011 The ColdFusion Community
 5 | 
 6 | 	Permission is hereby granted, free of charge, to any person obtaining a copy of this software and 
 7 | 	associated documentation files (the "Software"), to deal in the Software without restriction, including 
 8 | 	without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell 
 9 | 	copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the 
10 | 	following conditions:
11 | 
12 | 	The above copyright notice and this permission notice shall be included in all copies or substantial 
13 | 	portions of the Software.
14 | 
15 | 	THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT 
16 | 	LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN 
17 | 	NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, 
18 | 	WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE 
19 | 	SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
20 | 
21 | 	See also: http://www.opensource.org/licenses/mit-license.html
22 | ------------------------------------------------------------------------------------------------------------->
23 | <cfcomponent>
24 |     <cffunction access="public" returns="void" name="init">
25 | 		<cfif structIsEmpty(arguments)>
26 | 			<cfflush />
27 | 		<cfelseif structKeyExists(arguments, "1")>
28 | 			<cfflush interval="#arguments[1]#" />
29 | 		<cfelseif structKeyExists(arguments, "interval")>
30 | 			<cfflush interval="#arguments.interval#" />
31 | 		</cfif>
32 | 	</cffunction>
33 | </cfcomponent>


--------------------------------------------------------------------------------
/header.cfc:
--------------------------------------------------------------------------------
 1 | <!-----------------------------------------------------------------------------------------------------------
 2 | 	MIT License
 3 | 
 4 | 	Copyright (c) 2011 The ColdFusion Community
 5 | 
 6 | 	Permission is hereby granted, free of charge, to any person obtaining a copy of this software and 
 7 | 	associated documentation files (the "Software"), to deal in the Software without restriction, including 
 8 | 	without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell 
 9 | 	copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the 
10 | 	following conditions:
11 | 
12 | 	The above copyright notice and this permission notice shall be included in all copies or substantial 
13 | 	portions of the Software.
14 | 
15 | 	THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT 
16 | 	LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN 
17 | 	NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, 
18 | 	WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE 
19 | 	SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
20 | 
21 | 	See also: http://www.opensource.org/licenses/mit-license.html
22 | ------------------------------------------------------------------------------------------------------------->
23 | <cfcomponent>
24 | 
25 | 	<cffunction access="public" returntype="void" name="init">
26 | 		<cfheader attributeCollection="#arguments#" />
27 | 	</cffunction>
28 | 	
29 | </cfcomponent>
30 | 


--------------------------------------------------------------------------------
/htmlhead.cfc:
--------------------------------------------------------------------------------
 1 | <!-----------------------------------------------------------------------------------------------------------
 2 | 	MIT License
 3 | 
 4 | 	Copyright (c) 2011 The ColdFusion Community
 5 | 
 6 | 	Permission is hereby granted, free of charge, to any person obtaining a copy of this software and 
 7 | 	associated documentation files (the "Software"), to deal in the Software without restriction, including 
 8 | 	without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell 
 9 | 	copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the 
10 | 	following conditions:
11 | 
12 | 	The above copyright notice and this permission notice shall be included in all copies or substantial 
13 | 	portions of the Software.
14 | 
15 | 	THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT 
16 | 	LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN 
17 | 	NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, 
18 | 	WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE 
19 | 	SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
20 | 
21 | 	See also: http://www.opensource.org/licenses/mit-license.html
22 | ------------------------------------------------------------------------------------------------------------->
23 | <cfcomponent>
24 |     <cffunction access="public" returns="void" name="init">
25 | 		<cfif structIsEmpty(arguments)>
26 | 			<cfreturn />
27 | 		</cfif>
28 | 		<cfloop collection="#arguments#" item="local.i">
29 | 			<cfhtmlhead text="#arguments[local.i]#" />
30 | 		</cfloop>
31 | 	</cffunction>
32 | </cfcomponent>


--------------------------------------------------------------------------------
/index.cfc:
--------------------------------------------------------------------------------
  1 | /***********************************************************************************************************
  2 | *
  3 | * Made by Raymond Camden, Jedi Master
  4 | *
  5 | * MIT License
  6 | * 
  7 | * Copyright (c) 2011 The ColdFusion Community
  8 | * 
  9 | * Permission is hereby granted, free of charge, to any person obtaining a copy of this software and 
 10 | * associated documentation files (the "Software"), to deal in the Software without restriction, including 
 11 | * without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell 
 12 | * copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the 
 13 | * following conditions:
 14 | * 
 15 | * The above copyright notice and this permission notice shall be included in all copies or substantial 
 16 | * portions of the Software.
 17 | * 
 18 | * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT 
 19 | * LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN 
 20 | * NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, 
 21 | * WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE 
 22 | * SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 23 | * 
 24 | * See also: http://www.opensource.org/licenses/mit-license.html
 25 | *
 26 | *************************************************************************************************************/
 27 | 
 28 | /**
 29 |  * Index Service to perform solr index operations in cfscript
 30 |  * @name index
 31 |  * @displayname ColdFusion Index Service 
 32 |  * @output false
 33 |  * @accessors true
 34 |  */
 35 | component extends="base" {
 36 | 
 37 | 	property string action;
 38 | 	property string collection;
 39 | 	property string body;
 40 | 	property string category;
 41 | 	property string categoryTree;
 42 | 	property string custom1;
 43 | 	property string custom2;
 44 | 	property string custom3;
 45 | 	property string custom4;
 46 | 	property string extensions;
 47 | 	property string key;
 48 | 	property string language;
 49 | 	property string prefix;
 50 | 	property string query;
 51 | 	property string status;
 52 | 	property string title;
 53 | 	property string type;
 54 | 	property string urlpath;
 55 | 
 56 | 	property name="properties" type="any" getter="false" setter="false";
 57 | 
 58 | 	//service tag to invoke
 59 | 	variables.tagName = "CFINDEX";
 60 | 	
 61 |     //cfcollection tag attributes
 62 |     variables.tagAttributes = getSupportedTagAttributes(getTagName());
 63 | 
 64 | 	/**
 65 | 	 * Default constructor invoked when search objects are created. 
 66 | 	 * @return search object
 67 | 	 * @output false
 68 | 	 */
 69 |     public index function init() 
 70 | 	{
 71 | 		if(!structisempty(arguments)) structappend(variables,arguments);
 72 |         return this;
 73 |     }
 74 | 
 75 |     /**
 76 | 	 * Invoke the cfindex service tag to delete keys from solr collections in cfscript
 77 |      * Usage :: new index().delete(collection="beer",key=9);
 78 | 	 * @output false      
 79 | 	 */
 80 |     public struct function delete()
 81 |     {
 82 |         //store tag attributes to be passed to the service tag in a local variable
 83 |         var tagAttributes = duplicate(getTagAttributes());
 84 | 
 85 |         //attributes passed to service tag action like send() override existing attributes and are discarded after the action
 86 | 		if (!structisempty(arguments))
 87 |         {
 88 |     		 structappend(tagAttributes,arguments);
 89 |         }
 90 | 
 91 | 		tagAttributes.action="delete";
 92 | 
 93 | 		//trim attribute values
 94 | 		tagAttributes = trimAttributes(tagAttributes);
 95 | 
 96 | 		return super.invokeTag(getTagName(),tagAttributes);
 97 |     }
 98 | 
 99 |     /**
100 | 	 * Invoke the cfindex service tag to purge a solr collection in cfscript
101 |      * Usage :: new index().purge(collection="beer");
102 | 	 * @output false      
103 | 	 */
104 |     public struct function purge()
105 |     {
106 |         //store tag attributes to be passed to the service tag in a local variable
107 |         var tagAttributes = duplicate(getTagAttributes());
108 | 
109 |         //attributes passed to service tag action like send() override existing attributes and are discarded after the action
110 | 		if (!structisempty(arguments))
111 |         {
112 |     		 structappend(tagAttributes,arguments);
113 |         }
114 | 
115 | 		tagAttributes.action="purge";
116 | 
117 | 		//trim attribute values
118 | 		tagAttributes = trimAttributes(tagAttributes);
119 | 
120 | 		return super.invokeTag(getTagName(),tagAttributes);
121 |     }
122 | 
123 |     /**
124 | 	 * Invoke the cfindex service tag to refresh solr collections in cfscript
125 |      * Usage :: new index().refresh(collection="beer",query=q);
126 | 	 * @output false      
127 | 	 */
128 |     public struct function refresh()
129 |     {
130 |         //store tag attributes to be passed to the service tag in a local variable
131 |         var tagAttributes = duplicate(getTagAttributes());
132 | 
133 |         //attributes passed to service tag action like send() override existing attributes and are discarded after the action
134 | 		if (!structisempty(arguments))
135 |         {
136 |     		 structappend(tagAttributes,arguments);
137 |         }
138 | 
139 | 		tagAttributes.action="refresh";
140 | 
141 | 		//trim attribute values
142 | 		tagAttributes = trimAttributes(tagAttributes);
143 | 
144 | 		return super.invokeTag(getTagName(),tagAttributes);
145 |     }
146 | 
147 |     /**
148 | 	 * Invoke the cfindex service tag to refresh solr collections in cfscript
149 |      * Usage :: new index().refresh(collection="beer",query=q);
150 | 	 * @output false      
151 | 	 */
152 |     public struct function update()
153 |     {
154 |         //store tag attributes to be passed to the service tag in a local variable
155 |         var tagAttributes = duplicate(getTagAttributes());
156 | 
157 |         //attributes passed to service tag action like send() override existing attributes and are discarded after the action
158 | 		if (!structisempty(arguments))
159 |         {
160 |     		 structappend(tagAttributes,arguments);
161 |         }
162 | 
163 | 		tagAttributes.action="update";
164 | 
165 | 		//trim attribute values
166 | 		tagAttributes = trimAttributes(tagAttributes);
167 | 
168 | 		return super.invokeTag(getTagName(),tagAttributes);
169 |     }
170 | 
171 | }


--------------------------------------------------------------------------------
/invoke.cfc:
--------------------------------------------------------------------------------
 1 | <!-----------------------------------------------------------------------------------------------------------
 2 | 	MIT License
 3 | 
 4 | 	Copyright (c) 2011 The ColdFusion Community
 5 | 
 6 | 	Permission is hereby granted, free of charge, to any person obtaining a copy of this software and
 7 | 	associated documentation files (the "Software"), to deal in the Software without restriction, including
 8 | 	without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
 9 | 	copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the
10 | 	following conditions:
11 | 
12 | 	The above copyright notice and this permission notice shall be included in all copies or substantial
13 | 	portions of the Software.
14 | 
15 | 	THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT
16 | 	LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN
17 | 	NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
18 | 	WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
19 | 	SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
20 | 
21 | 	See also: http://www.opensource.org/licenses/mit-license.html
22 | ------------------------------------------------------------------------------------------------------------->
23 | <cfcomponent>
24 |     <cffunction access="public" returns="void" name="init">
25 | 		<cfargument name="cfcInstance" type="any" required="true" />
26 | 		<cfargument name="methodName" type="string" required="true" />
27 | 		<cfargument name="args" type="struct" default="#structNew()#" />
28 | 		<cfinvoke component="#arguments.cfcInstance#" method="#arguments.methodName#" argumentcollection="#args#" returnvariable="local.invokeReturnVariable" />
29 | 		<cfif structKeyExists(local, "invokeReturnVariable")>
30 | 			<cfreturn invokeReturnVariable />
31 | 		</cfif>
32 | 	</cffunction>
33 | </cfcomponent>


--------------------------------------------------------------------------------
/loginuser.cfc:
--------------------------------------------------------------------------------
 1 | <!-----------------------------------------------------------------------------------------------------------
 2 | 	MIT License
 3 | 
 4 | 	Copyright (c) 2011 The ColdFusion Community
 5 | 
 6 | 	Permission is hereby granted, free of charge, to any person obtaining a copy of this software and
 7 | 	associated documentation files (the "Software"), to deal in the Software without restriction, including
 8 | 	without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
 9 | 	copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the
10 | 	following conditions:
11 | 
12 | 	The above copyright notice and this permission notice shall be included in all copies or substantial
13 | 	portions of the Software.
14 | 
15 | 	THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT
16 | 	LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN
17 | 	NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
18 | 	WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
19 | 	SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
20 | 
21 | 	See also: http://www.opensource.org/licenses/mit-license.html
22 | ------------------------------------------------------------------------------------------------------------->
23 | <cfcomponent output="false">
24 | 
25 | 	<cffunction access="public" returntype="void" name="init" output="false">
26 | 		<cfargument name="name" required="true" />
27 | 		<cfargument name="password" required="true" />
28 | 		<cfargument name="roles" required="true" />
29 | 		<cflogin><cfloginuser name="#arguments.name#" password="#arguments.password#" roles="#arguments.roles#" /></cflogin>
30 | 	</cffunction>
31 | 
32 | </cfcomponent>
33 | 


--------------------------------------------------------------------------------
/logout.cfc:
--------------------------------------------------------------------------------
 1 | <!-----------------------------------------------------------------------------------------------------------
 2 | 	MIT License
 3 | 
 4 | 	Copyright (c) 2011 The ColdFusion Community
 5 | 
 6 | 	Permission is hereby granted, free of charge, to any person obtaining a copy of this software and
 7 | 	associated documentation files (the "Software"), to deal in the Software without restriction, including
 8 | 	without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
 9 | 	copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the
10 | 	following conditions:
11 | 
12 | 	The above copyright notice and this permission notice shall be included in all copies or substantial
13 | 	portions of the Software.
14 | 
15 | 	THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT
16 | 	LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN
17 | 	NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
18 | 	WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
19 | 	SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
20 | 
21 | 	See also: http://www.opensource.org/licenses/mit-license.html
22 | ------------------------------------------------------------------------------------------------------------->
23 | <cfcomponent output="false">
24 | 
25 | 	<cffunction access="public" returntype="void" name="init" output="false">
26 | 		<cflogout />
27 | 	</cffunction>
28 | 
29 | </cfcomponent>
30 | 


--------------------------------------------------------------------------------
/objectcache.cfc:
--------------------------------------------------------------------------------
 1 | <!-----------------------------------------------------------------------------------------------------------
 2 | 	MIT License
 3 | 
 4 | 	Copyright (c) 2011 The ColdFusion Community
 5 | 
 6 | 	Permission is hereby granted, free of charge, to any person obtaining a copy of this software and
 7 | 	associated documentation files (the "Software"), to deal in the Software without restriction, including
 8 | 	without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
 9 | 	copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the
10 | 	following conditions:
11 | 
12 | 	The above copyright notice and this permission notice shall be included in all copies or substantial
13 | 	portions of the Software.
14 | 
15 | 	THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT
16 | 	LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN
17 | 	NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
18 | 	WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
19 | 	SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
20 | 
21 | 	See also: http://www.opensource.org/licenses/mit-license.html
22 | ------------------------------------------------------------------------------------------------------------->
23 | <cfcomponent>
24 |     <cffunction access="public" returns="void" name="init">
25 |     	<cfobjectcache attributecollection="#arguments#">
26 | 	</cffunction>
27 | </cfcomponent>


--------------------------------------------------------------------------------
/query.cfc:
--------------------------------------------------------------------------------
  1 | /***********************************************************************************************************
  2 | *
  3 | * ADOBE CONFIDENTIAL
  4 | * ___________________
  5 | *
  6 | *  Copyright 2008 Adobe Systems Incorporated
  7 | *  All Rights Reserved.
  8 | *
  9 | *  NOTICE:  Adobe permits you to use, modify, and distribute this file in accordance with the 
 10 | *  terms of the Adobe license agreement accompanying it.  If you have received this file from a 
 11 | *  source other than Adobe, then your use, modification, or distribution of it requires the prior 
 12 | *  written permission of Adobe.
 13 | *************************************************************************************************************/
 14 | 
 15 | /**
 16 |  * Query Service to execute SQL queries in cfscript
 17 |  * @name query
 18 |  * @displayname ColdFusion Query Service 
 19 |  * @output false
 20 |  * @accessors true
 21 |  */
 22 | component extends="base"
 23 | {
 24 |     property string name; 
 25 |     property numeric blockfactor;
 26 |     property string cachedafter;
 27 |     property string cachedwithin;
 28 |     property string dataSource;
 29 |     property string dbtype;
 30 |     property boolean debug;
 31 |     property numeric maxRows;
 32 |     property string password;
 33 |     property string result;
 34 |     property numeric timeout;
 35 |     property string username;
 36 |     property string sql;
 37 |     
 38 |     //array to store cfqueryparams
 39 |     variables.parameters = [];
 40 | 
 41 |     //service tag to invoke
 42 |     variables.tagName = "CFQUERY";
 43 | 
 44 |     //list of valid cfquery tag attributes
 45 |     variables.tagAttributes = getSupportedTagAttributes(getTagName());
 46 | 
 47 |     //default error message and error type
 48 |     variables.errorMessage = "Error Executing Database Query";
 49 |     variables.errorType = "Application";
 50 | 
 51 |     //constants
 52 |     variables.COMMA = ",";
 53 |     variables.RIGHTPARENTHESIS = ")";
 54 |     variables.NEWLINE = chr(13) & chr(10);
 55 |     variables.SPACE = " ";
 56 |     variables.EMPTYSTRING = "";
 57 |     variables.SINGLEQUOTE= "'";
 58 |     variables.NAMED_DELIMITER = ":";
 59 |     variables.POSITIONAL_DELIMITER = "?"; 
 60 |     variables.NAMED_DELIMITER_MARKER = chr(2);
 61 |     variables.POSITIONAL_DELIMITER_MARKER = chr(3);
 62 |     
 63 |     
 64 |     /**
 65 |      * Initialization routine. Returns an instance of this component
 66 |      * @output false
 67 |      */
 68 |     public any function init()
 69 |     {
 70 |         if(!structisempty(arguments))
 71 |         {        
 72 |             structappend(variables,arguments,"yes");
 73 |         }
 74 |         return this;
 75 |     }
 76 | 
 77 | 
 78 |     /**
 79 |      * Inserts a named sql param into sqlParams array. If the named param is not found, an exception is thrown
 80 |      * 
 81 |      * @param1 namedparam 
 82 |      * @param2 namedparamsarray Array containing all named sql params
 83 |      * @param3 sqlParams Array containing all sql queryparams supplied
 84 |      * @return array with the sqlParams inserted
 85 |      * 
 86 |      * @output false
 87 |      */
 88 |     private array function insertNamedParams(string namedparam,array namedparamsarray,array sqlParams,string sql)
 89 |     {
 90 |         var i = 0;
 91 |         var foundNamedParam = false;
 92 |         for(i=1; i lte arraylen(namedparamsarray); i++)
 93 |         {
 94 |             if(structkeyexists(namedparamsarray[i],"name") and trim(namedparamsarray[i]["name"]) eq namedparam)
 95 |             {
 96 |                 arrayappend(sqlParams,duplicate(namedparamsarray[i]));
 97 |                 /*
 98 |                 Delete "name" attribute for this entry (named param) from sqlParams array as we no longer need it, and besides, 
 99 |                 sending it to cfqueryparam with the name attribute would throw an error since allowExtraAttribute=false
100 |                 */
101 |                 structdelete(sqlParams[arraylen(sqlParams)],"name");
102 |                 foundNamedParam = true;
103 |                 break;
104 |             }
105 |         }
106 |         if(!foundNamedParam)
107 |         {
108 |             var errorDetail = "Parameter '" & namedparam & "' not found in the list of parameters specified" & "<br><br>" & "SQL: " & sql;
109 |             throw(errorMessage,errorType,errorDetail);
110 |         }
111 |         return sqlParams;
112 |     }
113 | 
114 | 
115 |     /**
116 |      * Processes named sql params. Invokes insertNamedParams() to insert the named param into sqlparams array.
117 |      *
118 |      * @param1 sqlArray 
119 |      * @param2 sqlParams
120 |      * @param3 namedparamsarray Array containing all named sql params
121 |      * @param4 queryparams Array containing all sql queryparams supplied
122 |      * @param5 sqlCommand Sql operation to perform
123 |      * @return struct with sqlArray and sqlParams
124 |      * 
125 |      * @output false
126 |      */
127 |     private struct function processNamedParams(array sqlArray,array sqlParams,array namedparamsarray,array queryparams,string sqlCommand,string sql)
128 |     {
129 |         var namedparam = "";
130 |         var i = 0;
131 |         if(arraylen(sqlArray) gt 0)
132 |         {
133 |             for(i=2; i <= arraylen(sqlArray); i++)
134 |             {
135 |                 var delimters = SPACE & COMMA & RIGHTPARENTHESIS & NEWLINE;
136 |                 namedparam = trim(listfirst(sqlArray[i],delimters));
137 |                 sqlArray[i] = replace(arguments.sqlArray[i],namedparam,EMPTYSTRING);
138 |                 sqlParams = insertNamedParams(namedparam,namedparamsarray,sqlParams,sql);
139 |              }
140 |          }
141 |         return {sqlArray=sqlArray,sqlParams=sqlParams};
142 |     }
143 |     
144 |     
145 |     /** 
146 |      * Removes first positional param from positional sql params array
147 |      *
148 |      * @param1 posparamsarray An array with positional sql params
149 |      * @return array with first positional sql param removed
150 |      * 
151 |      * @output false
152 |      */
153 |     private array function removePosParam(array posparamsarray)
154 |     {
155 |         var newPosParamsArray = [];
156 |         var i = 0;
157 | 
158 |         //create a temp array from posparamsarray without the first element
159 |         for(i=2;i lte arraylen(posparamsarray); i++)
160 |         {
161 |             newPosParamsArray[i-1] = posparamsarray[i];
162 |         }
163 |         return newPosParamsArray;
164 |     }
165 | 
166 | 
167 |     /**
168 |      * Processes positional sql params
169 |      *
170 |      * @param1 sqlArray 
171 |      * @param1 sqlParams
172 |      * @param1 posparamsarray An array with all positional params
173 |      * @param1 queryparams An array with all queryparams the user supplied
174 |      * @return struct with keys sqlArray and sqlParams
175 |      *
176 |      * @output false
177 |      */
178 |     private struct function processPosParams(array sqlArray,array sqlParams,array posparamsarray,array queryparams,string sql) 
179 |     {
180 |         if(arraylen(sqlArray) gt 0)
181 |         {
182 |             if(arraylen(queryparams) lt arraylen(sqlArray)-1)
183 |             {                
184 |                 var errorDetail = "The number of parameters specified do not match the number of specified or implied columns" & "<br><br>" & "SQL: " & sql;                
185 |                 throw(errorMessage,errorType,errorDetail);
186 |             }
187 | 
188 |             var j = 0;
189 |             //loop until all positional sql params are processed
190 |             for(j=1;j lte arraylen(sqlArray); j++)
191 |             {
192 |                 if(arraylen(posparamsarray) gt 0)
193 |                 {
194 |                     arrayappend(sqlParams,posparamsarray[1]);
195 |                 }
196 |                 //remove the postional sql param from the posparamsarray array
197 |                 posparamsarray = removePosParam(posparamsarray);
198 |             }
199 |         }
200 |         return {sqlArray=sqlArray,sqlParams=sqlParams};
201 |     }
202 |     
203 |     
204 |     /**
205 |      * Merge one array into another at a specified position and returns the merged array
206 |      * 
207 |      * @param1 sqlArray1 Array into which to insert
208 |      * @param2 sqlArray2 Array to be inserted
209 |      * @param2 pos  Position at which to insert
210 |      * @return array (merged)
211 |      *
212 |      * @output false
213 |      */
214 |     private array function arrayinsert(array sqlArray1, array sqlArray2, numeric pos) 
215 |     {
216 |         var mergedArray = [];
217 |         var i = 0;
218 |         
219 |         //copy array sqlArray1 elements until pos-1 into mergedArray 
220 |         for(i=1; i lte pos-1; i++)
221 |         {
222 |             arrayappend(mergedArray,sqlArray1[i]);
223 |         }
224 |         
225 |         //copy sqlArray2 into mergedArray
226 |         for(i=1; i lte arraylen(arguments.sqlArray2); i++)
227 |         {
228 |             arrayappend(mergedArray,sqlArray2[i]);
229 |         }
230 |         
231 |         //copy the remainder of sqlArray1 elements
232 |         for(i=pos+1; i lte arraylen(sqlArray1); i++)
233 |         {
234 |             arrayappend(mergedArray,sqlArray1[i]);
235 |         }
236 |         
237 |         //return the merged array 
238 |         return mergedArray;
239 |     }
240 | 
241 | 
242 |     /** 
243 |      * Checks if a named sql param exists in namedparams array. 
244 |      * 
245 |      * @param1 namedparams  named sql params array
246 |      * @param2 currentnamedparam  named param to search in the array
247 |      * @return Position at which the named param is found or false otherwise
248 |      * 
249 |      * @output false
250 |      */
251 |     private boolean function checkIfNamedParamExists(array namedSqlparams, string namedparam)
252 |     {
253 |         var i = 0;
254 |         for(i=1; i lte arraylen(namedSqlparams)-1; i++)
255 |         {
256 |              if(structkeyexists(namedSqlparams[i],"name") and trim(namedSqlparams[i]["name"]) eq namedparam)
257 |              {
258 |                 return i;   
259 |              }
260 |         }
261 |         return false;
262 |     }
263 | 
264 | 
265 |     /**
266 |      * parse queryparams stored in parameters array to filter out all named sql params.
267 |      * 
268 |      * @param1 queryparams An array containing all queryparams
269 |      * @return array containing all named sql params
270 |      *   
271 |      * @output false
272 |      */
273 |     private array function getNamedSqlParams(array queryparams)  
274 |     {
275 |         var namedSqlParams = [];
276 |         var i = 0;
277 | 
278 |         for(i=1; i lte arraylen(queryparams); i++)
279 |         {
280 |             if(structkeyexists(queryparams[i],"name"))
281 |             {
282 |                 //If named sql param already exists, update it. Else, add it
283 |                 var namedparam =  trim(queryparams[i]["name"]);
284 |                 var found = checkIfNamedParamExists(namedSqlParams,namedparam);
285 |                 if(!found)
286 |                 {
287 |                     //insert the queryparam into the namedSqlParams array
288 |                     arrayappend(namedSqlParams,queryparams[i]);
289 |                 }
290 |                 else
291 |                 {
292 |                     //since the named param already exists, update its value
293 |                     structappend(namedSqlParams[found],queryparams[i],"yes");
294 |                 }
295 |              }
296 |         }
297 |         return namedSqlParams;
298 |     }
299 |     
300 |     
301 |     /** 
302 |      * parse queryparams stored in parameters array to filter out all postional sql params.
303 |      *
304 |      * @param1 queryparams An array containing all queryparams
305 |      * @return array containing all positional sql params
306 |      *
307 |      * @output false
308 |      */
309 |     private array function getPositionalSqlParams(array queryparams)
310 |     {
311 |         var positionalSqlParams = [];
312 |         var i = 0;
313 |         for(i=1; i lte arraylen(queryparams); i++)
314 |         {
315 |             //if there is no "name" key in the queryparam, it is a positional sql param
316 |             if(!structkeyexists(queryparams[i],"name"))
317 |             {
318 |                 //insert the queryparam into the positionalSqlParams array
319 |                 arrayappend(positionalSqlParams,queryparams[i]);
320 |              }
321 |         }
322 |         return positionalSqlParams;
323 |     }
324 |     
325 | 
326 |     /** 
327 |      * replace named and positional delimiters inside single quotes with corresponding markers to allow parsing SQL on delimiters 
328 |      * @output false
329 |      */
330 |     private string function replaceDelimsWithMarkers(string sql, string sqlDelimtersList, string sqlDelimtersMarkersList)
331 |     {
332 |         var sqlArray = listtoarray(arguments.sql,SINGLEQUOTE,true);
333 |         var newSql = "";
334 |         var i = 0;
335 |         for(i=1; i lte arraylen(sqlArray); i++)
336 |         {
337 |             //even numbered array indices contain value inside the single quotes
338 |             //replace occurence of named or positional delimiters in the value with corresponding markers 
339 |             if( (i%2) eq 0 )
340 |             {
341 |                 sqlArray[i] = ReplaceList(sqlArray[i],sqlDelimtersList,sqlDelimtersMarkersList);
342 |                 newSql = newSql & SINGLEQUOTE & sqlArray[i] & SINGLEQUOTE & " ";
343 |             }
344 |             else
345 |             {
346 |                 newSql = newSql & sqlArray[i];
347 |             }
348 |         }
349 |         return newSql;
350 |     }
351 | 
352 | 
353 |     /**
354 |      * Replaces markers for named and positional delimiters (inside single quotes) with actual delimiters
355 |      *
356 |      * @param1 sqlArray Array with parsed sql
357 |      * @return array Array with markers replaced with single quotes 
358 |      *
359 |      * @output false 
360 |      */
361 |     private array function replaceMarkersWithDelims(array sqlArray, string sqlDelimtersMarkersList, string sqlDelimtersList)
362 |     {
363 |         var i = 0;
364 |         for(i=1; i lte arraylen(sqlArray); i++)
365 |         {
366 |             sqlArray[i] = ReplaceList(sqlArray[i],sqlDelimtersMarkersList,sqlDelimtersList);
367 |         }
368 |         return sqlArray;
369 |     }
370 |     
371 |     
372 |     /**
373 |      * preservesinglequotes() can't handle expressions, so something like #preservesinglequotes(SQlArray[1])# would'nt work,
374 |      * hence the need for this wrapper 
375 |      * @output false 
376 |      */  
377 |     private string function getPreserveSingleQuotes(string sqlstatement)
378 |     {
379 |         return PreserveSingleQuotes(arguments.sqlstatement);
380 |     }
381 | 
382 | 
383 |     /**
384 |      * Parse the SQL into named and positional params. 
385 |      * 
386 |      * For named params, order of params is not important but for postional params we need to match 
387 |      * the order in which the params are listed.
388 |      * 
389 |      * Named SQL parameters are specified using ":" (for example, select  * from art where artid = :artistid)
390 |      * Positional SQL parameters are specified using  "?" (for example, select  * from art where artid = ? and artistid = ?)
391 |      * 
392 |      * A combination of named and positional sql params is also possible (although not encouraged)
393 |      * (for example, select  * from art where artid = :artid and artistid = ?)
394 |      * 
395 |      * If named/positional param delimiters (i.e. ":" and "?") appear inside single quotes, we replace them with markers 
396 |      * to help with the parsing. After we are done with the parsing and before we pass the sql to execute() for execution, we replace the markers back with 
397 |      * the delimiters 
398 |      * 
399 |      * This function parses the sql into sqlArray[] and sqlParams[]
400 |      *  
401 |      * @param1 sql The sql used in the query
402 |      * @param2 queryparams The queryparams for the query 
403 |      * @param3 sqlCommand The sql operation to perform
404 |      * @return A struct with keys - sqlType (named/param/both), sqlArray (sql parsed into array) and sqlParams (queryparams parsed into array of structs)
405 |      *
406 |      * @output false    
407 |      */
408 |     private any function parseSQL(string sql,array queryparams,string sqlCommand)
409 |     {
410 |         //type of sql (named | positional | both | "" (for simple SQL)) 
411 |         var sqlType = "";
412 | 
413 |         //sql delimiter (: -> named, ? -> positional)
414 |         var delimiter = "";
415 | 
416 |         //array to store parsed sql
417 |         var sqlArray = [];
418 | 
419 |         //array to store parsed sql queryparams
420 |         var sqlParams = [];
421 | 
422 |         //markers used to replace named or positional parameters found inside single quotes or ''
423 |         var sqlDelimtersList = NAMED_DELIMITER & "," & POSITIONAL_DELIMITER;
424 |         var sqlDelimtersMarkersList = NAMED_DELIMITER_MARKER & "," & POSITIONAL_DELIMITER_MARKER;
425 | 
426 |         //replace occurences of any named or positional delimters inside single quotes with markers since we are dealing with a value rather than a sql param
427 |         var mysql = replaceDelimsWithMarkers(sql,sqlDelimtersList,sqlDelimtersMarkersList);
428 |         var param = [];
429 | 
430 |         //parse queryparams (stored in paramters array) into named sql params and positional sql params 
431 |         var namedparamsarray = getNamedSqlParams(queryparams);
432 |         var posparamsarray = getPositionalSqlParams(queryparams);
433 | 
434 |         //if the sql has both named and positional params, we first parse the sql for positional params, and then for named params
435 |         if(mysql contains NAMED_DELIMITER and mysql contains POSITIONAL_DELIMITER)
436 |         {
437 |             sqlType = "both";
438 |             delimiter = POSITIONAL_DELIMITER;
439 |         }
440 |         else if(mysql contains NAMED_DELIMITER and not (mysql contains POSITIONAL_DELIMITER))
441 |         {
442 |             sqlType = "namedSql";
443 |             delimiter = NAMED_DELIMITER;
444 |         }
445 |         else if(mysql contains POSITIONAL_DELIMITER and not (mysql contains NAMED_DELIMITER))
446 |         {
447 |             sqlType = "posSql";
448 |             delimiter = POSITIONAL_DELIMITER;
449 |         }
450 |         else
451 |         {    
452 |             sqlType = "";
453 |             delimiter = "";
454 |         }
455 |         
456 |         //convert sql into an array. If there are no named/positional params, the array would consist of merely the sql but if there are params, we use the delimiter
457 |         sqlArray = (delimiter eq "")? [mysql]: listtoarray(mysql,delimiter,true,true);  
458 | 
459 |         switch(sqlType)
460 |         {
461 |             //we are dealing with postional sql parameters 
462 |             case "posSql":
463 |             {
464 |                 var s = processPosParams(sqlArray,sqlParams,posparamsarray,queryparams,sql);
465 |                 sqlArray = s["sqlArray"];
466 |                 sqlParams = s["sqlParams"];
467 |                 break;
468 |             }
469 |             
470 |             //we are dealing with named sql parameters
471 |             case "namedSql":
472 |             {
473 |                 s = processNamedParams(sqlArray,sqlParams,namedparamsarray,queryparams,sqlCommand,sql);
474 |                 sqlArray = s["sqlArray"];
475 |                 sqlParams = s["sqlParams"];
476 |                 break;
477 |             }
478 |             
479 |             //we are dealing with a combination of both named and positional sql parameters 
480 |             case "both":
481 |             {
482 |                 continueloop = true;
483 |                 var i = 1;
484 |                 
485 |                 //loop until we are finished with sqlArray[], which grows dynamically as we continue processing the params
486 |                 while(continueloop eq true)
487 |                 {
488 |                     //this is a positional sql param that we are dealing with here 
489 |                     if(sqlArray[i] does not contain NAMED_DELIMITER)
490 |                     {
491 |                         if(i lt arraylen(sqlArray))
492 |                         {
493 |                             if(arraylen(posparamsarray) gt 0)
494 |                             {
495 |                                 arrayappend(sqlParams,posparamsarray[1]);
496 |                             }
497 |                             posparamsarray = removePosParam(posparamsarray);
498 |                         }
499 |                         i = i + 1;
500 |                     }
501 |                     else
502 |                     {
503 |                         //this is a named sql param that we are dealing with here 
504 |                         var temp = processNamedParams(listtoarray(sqlArray[i],NAMED_DELIMITER),sqlParams,namedparamsarray,queryparams,sqlCommand,sql);
505 |                         param = temp["sqlArray"];
506 |                         sqlParams = temp["sqlParams"];
507 | 
508 |                         //insert array param into sqlArray at postion i and returns the new merged array
509 |                         sqlArray = arrayinsert(sqlArray,param,i);
510 |                         
511 |                         //since we are already done with processing the param array, we skip past it and resume our processing 
512 |                         i = i + arraylen(param);
513 |                         if(i lte arraylen(sqlArray))
514 |                         {
515 |                             if(arraylen(posparamsarray) gt 0)
516 |                             {
517 |                                 arrayappend(sqlParams,posparamsarray[1]);
518 |                             }
519 |                             posparamsarray = removePosParam(posparamsarray);
520 |                         }
521 |                     }
522 |                     if(i gt arraylen(sqlArray))
523 |                     {
524 |                         continueloop=false;
525 |                     }
526 |                 }
527 |                 break;
528 |             }
529 |             default:
530 |             {
531 |                 sqlArray = [mysql]; 
532 |                 break;
533 |             }
534 |         }
535 |         
536 |         //replace markers for named and positional delimiters with actual delimiters 
537 |         sqlArray = replaceMarkersWithDelims(sqlArray,sqlDelimtersMarkersList,sqlDelimtersList);
538 |         
539 |         //return a struct with the parsed array and parsed queryparams back
540 |         return {sqlArray=sqlArray,sqlParams=sqlParams,sqlType=sqlType};
541 |     }
542 | 
543 | 
544 |     
545 |     /**
546 |      * Validate SQL for errors 
547 |      * @return SQL or an error if SQL has errors   
548 |      * @output false
549 |      */
550 |     private string function validateSQL(struct tagAttributes)
551 |     { 
552 |         var sql = "";
553 |         var errorDetail = "";
554 | 
555 |         //throw an error if SQL is not defined
556 |         if(not structkeyexists(tagAttributes,"sql"))
557 |         {
558 |             errorDetail = "SQL is required";
559 |             throw(errorMessage,errorType,errorDetail);
560 |         }
561 |         else
562 |         {
563 |             sql = tagAttributes["sql"];
564 |             //throw an error if SQL is empty
565 |             if(len(trim(sql)) eq 0)
566 |             {
567 |                 errorDetail = "The value of SQL cannot be empty";
568 |                 throw(errorMessage,errorType,errorDetail);
569 |             }
570 |         }
571 |         return sql;
572 |     }
573 |  
574 |  
575 |     /**
576 |      * Invoke the cfquery (and cfqueryparam) service tag to execute a query in cfscript. Returns the query resultset
577 |      * @output false
578 |      */
579 |     public result function execute()
580 |     {  
581 |         //store tag attributes to be passed to the service tag in a local variable
582 |         var tagAttributes = duplicate(getTagAttributes());
583 | 
584 |         //store query params
585 |         var queryparams = duplicate(variables.parameters);
586 | 
587 |         //attributes passed to service tag action like execute() override existing attributes and are discarded after the action
588 |         if(!structisempty(arguments))
589 |         {
590 |              structappend(tagAttributes,arguments,"yes");
591 |         }
592 | 
593 |         //extract SQL from attributes and validate it for errors
594 |         var sql = validateSQL(tagAttributes);
595 | 
596 |         //remove leading and trailing parenthesis for stored procs called using {CALL myproc 1,2}
597 |         if(left(sql,1) eq "{" and right(sql,1) eq "}")
598 |         {
599 |             sql = trim(mid(sql,2,len(sql)-2));
600 |         }
601 | 
602 |         //sql operation to perform (Select | update | insert | delete | exec | call)
603 |         var sqlCommand = ucase(listfirst(sql," "));
604 |         
605 |         //parse SQL and process queryparams, if defined
606 |         var r = parseSQL(sql,queryparams,sqlCommand);
607 |         var sqlType = r["sqlType"];
608 |         var sqlArray = r["sqlArray"];
609 |         var sqlParams = r["sqlParams"];
610 |         
611 |         //put back leading and trailing parenthesis for stored procs called using {CALL myproc 1,2}
612 |         if(sqlCommand eq "CALL")
613 |         {
614 |             sqlArray[1] = "{" & sqlArray[1];
615 |             sqlArray[arraylen(sqlArray)] = sqlArray[arraylen(sqlArray)] & "}";
616 |         }
617 |         
618 |         //looks like query name attribute isn't really required, so we give the query a name in case one is not specified
619 |         if(!structkeyexists(tagAttributes,"name") or (structkeyexists(tagAttributes,"name") and tagAttributes["name"] eq ""))
620 |         {
621 |             tagAttributes["name"] = "qryname#randrange(1,100000)#";
622 |         }
623 |         
624 |         //should we do the same for result attribute also? 
625 |         if(!structkeyexists(tagAttributes,"result") or (structkeyexists(tagAttributes,"result") and tagAttributes["result"] eq ""))
626 |         {
627 |             tagAttributes["result"] = "qryresult#randrange(1,100000)#";
628 |         }
629 |         
630 |         //delete sql attribute since passing it would execute the sql which is not what we want as we are preparsing the sql
631 |         if(structkeyexists(tagAttributes,"sql"))
632 |         {
633 |             structdelete(tagAttributes,"sql");
634 |         }
635 |             
636 |         //trim attribute values
637 |         tagAttributes = trimAttributes(tagAttributes);
638 | 
639 |         //invoke the cfquery/cfqueryparam tags replacing any named or positional params with cfqueryparam tag 
640 |         return super.invokeTag(getTagName(),tagAttributes,{params=sqlParams,sqlArray=sqlArray,sql=sql,sqlType=sqlType});
641 |     }
642 | }


--------------------------------------------------------------------------------
/queryofqueries.cfc:
--------------------------------------------------------------------------------
 1 | <!-----------------------------------------------------------------------------------------------------------
 2 | 	MIT License
 3 | 
 4 | 	Copyright (c) 2011 The ColdFusion Community
 5 | 
 6 | 	Permission is hereby granted, free of charge, to any person obtaining a copy of this software and 
 7 | 	associated documentation files (the "Software"), to deal in the Software without restriction, including 
 8 | 	without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell 
 9 | 	copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the 
10 | 	following conditions:
11 | 
12 | 	The above copyright notice and this permission notice shall be included in all copies or substantial 
13 | 	portions of the Software.
14 | 
15 | 	THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT 
16 | 	LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN 
17 | 	NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, 
18 | 	WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE 
19 | 	SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
20 | 
21 | 	See also: http://www.opensource.org/licenses/mit-license.html
22 | ------------------------------------------------------------------------------------------------------------->
23 | <cfcomponent output="false" hint="Provides a simplified query-of-queries functionality">
24 | 	<cffunction access="public" returntype="query" name="init" hint="Send your queries in as named arguments. They will be appended to the local scope for use within the query.">
25 | 		<cfargument name="SQL" required="true" type="string" hint="Required: Your SQL statement. Query params are not supported." />
26 | 		<cfset structAppend( local, arguments ) />
27 | 		<cfquery dbtype="query" name="local.__queryResult">#preserveSingleQuotes(arguments.SQL)#</cfquery>
28 | 		<cfreturn local.__queryResult />
29 | 	</cffunction>
30 | </cfcomponent>


--------------------------------------------------------------------------------
/readme.md:
--------------------------------------------------------------------------------
 1 | # ColdFusion 9+ Script Components
 2 | ## Community Edition!
 3 | 
 4 | The components in this project are contributed by the ColdFusion community, for the ColdFusion Community.
 5 | 
 6 | ### Installing...
 7 | 
 8 | You can simply [download the zip](https://github.com/CFCommunity/CFScript-Community-Components/zipball/master) of the available components and toss them in the appropriate directory, if you want. (`{cf-install}\CustomTags\com\adobe\coldfusion\`)
 9 | 
10 | It would be easier to update if you use git:
11 | 
12 | 1. Open a terminal prompt at the above directory
13 | 1. Run this: `git init;git remote add origin git://github.com/CFCommunity/CFScript-Community-Components.git;git pull`
14 | 1. Any time you want to update, simply (go into that directory and) run `git pull`
15 | 
16 | # Deficiencies!
17 | 
18 | These are the tags that need to be ported over to script. Godspeed!
19 | 
20 | ## Significant omissions:
21 | 
22 | * cfexchangecalendar
23 | * cfexchangeconnection
24 | * cfexchangecontact
25 | * cfexchangefilter
26 | * cfexchangemail
27 | * cfexchangetask
28 | * cfmodule
29 | * cfoutput (implementation of query looping with grouping)
30 | * cfparam (fix the bug in that enforced requiredness doesn’t work (ie: param name="foo";))
31 | * cfquery (cachedwithin support)
32 | 
33 | ## Reasonable case
34 | 
35 | * cfassociate
36 | * cfcache
37 | * cfprint
38 | * cfsharepoint
39 | * cftimer
40 | 
41 | ## Ambivalent
42 | 
43 | * cfgridupdate
44 | * cfinsert
45 | * cflogin
46 | * cfreport
47 | * cfreportparam
48 | * cfupdate
49 | 
50 | # Adobe copyright...
51 | 
52 | The following components ship with CF9 and CF9.01. Adobe holds copyright on them, but has granted permission to modify and distribute under an unspecified license, the text of which is below the list. Unless modified to support additional functionality or fix any bugs that may arise, they are not included in this repository. Any time they are changed, you can be sure tremendous effort has been made to maintain compatibility and, unless noted somewhere in this readme, has been achieved.
53 | 
54 | * base.cfc
55 | * dbinfo.cfc
56 | * feed.cfc
57 | * ftp.cfc
58 | * http.cfc
59 | * imap.cfc
60 | * ldap.cfc
61 | * mail.cfc
62 | * pdf.cfc
63 | * pop.cfc
64 | * query.cfc
65 | * result.cfc
66 | * storedproc.cfc
67 | * storedprocresult.cfc
68 | 
69 | ## Adobe license
70 | 
71 | This license text is taken from the components that ship with Adobe ColdFusion 9 and applies only to those components.
72 | 
73 | >ADOBE CONFIDENTIAL
74 | >___________________
75 | >
76 | >Copyright 2008 Adobe Systems Incorporated
77 | >All Rights Reserved.
78 | >
79 | >NOTICE:  Adobe permits you to use, modify, and distribute this file in accordance with the terms of the Adobe license agreement accompanying it.  If you have received this file from a source other than Adobe, then your use, modification, or distribution of it requires the prior written permission of Adobe.
80 | 
81 | # MIT License
82 | 
83 | >Copyright (c) 2011 The ColdFusion Community
84 | >
85 | >Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the following conditions:
86 | >
87 | >The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.
88 | >
89 | >THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
90 | 
91 | See also: [http://www.opensource.org/licenses/mit-license.html](http://www.opensource.org/licenses/mit-license.html)
92 | 
93 | # Hey Adobe!
94 | 
95 | You are welcome, and encouraged, to ship these in future versions of ColdFusion. Please do, at least where appropriate. In some cases it just doesn't look and feel right to use CFCs to make these features. When that's the case, they are included here only as a stop-gap so that we can _actually write full-script components_. Please, where it makes sense, still write the features in Java. But where this implementation looks and feels natural, by all means, run with it! It'll make life better for everyone!


--------------------------------------------------------------------------------
/registry.cfc:
--------------------------------------------------------------------------------
 1 | <!-----------------------------------------------------------------------------------------------------------
 2 | 	MIT License
 3 | 
 4 | 	Copyright (c) 2011 The ColdFusion Community
 5 | 
 6 | 	Permission is hereby granted, free of charge, to any person obtaining a copy of this software and 
 7 | 	associated documentation files (the "Software"), to deal in the Software without restriction, including 
 8 | 	without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell 
 9 | 	copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the 
10 | 	following conditions:
11 | 
12 | 	The above copyright notice and this permission notice shall be included in all copies or substantial 
13 | 	portions of the Software.
14 | 
15 | 	THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT 
16 | 	LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN 
17 | 	NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, 
18 | 	WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE 
19 | 	SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
20 | 
21 | 	See also: http://www.opensource.org/licenses/mit-license.html
22 | ------------------------------------------------------------------------------------------------------------->
23 | <cfcomponent>
24 | 
25 | 	<cfset variables.result = "" />
26 | 
27 |     <cffunction access="public" returns="void" name="init">
28 | 		<cfreturn this/>
29 | 	</cffunction>
30 | 
31 | 	<cffunction name="getAll">
32 | 		<cfset arguments.name = "variables.result" />
33 | 		<cfset go(arguments) />
34 | 		<cfreturn variables.result />
35 | 	</cffunction>
36 | 
37 | 	<cffunction name="get">
38 | 		<cfset arguments.variable = "variables.result" />
39 | 		<cfset go(arguments) />
40 | 		<cfreturn variables.result />
41 | 	</cffunction>
42 | 
43 | 	<cffunction name="set">
44 | 		<cfset go(arguments) />
45 | 	</cffunction>
46 | 
47 | 	<cffunction name="delete">
48 | 		<cfset go(arguments) />
49 | 	</cffunction>
50 | 
51 | 	<cffunction name="go">
52 | 		<cfregistry attributeCollection="#arguments#" />
53 | 	</cffunction>
54 | 
55 | </cfcomponent>


--------------------------------------------------------------------------------
/schedule.cfc:
--------------------------------------------------------------------------------
 1 | <!-----------------------------------------------------------------------------------------------------------
 2 | 	MIT License
 3 | 
 4 | 	Copyright (c) 2011 The ColdFusion Community
 5 | 
 6 | 	Permission is hereby granted, free of charge, to any person obtaining a copy of this software and 
 7 | 	associated documentation files (the "Software"), to deal in the Software without restriction, including 
 8 | 	without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell 
 9 | 	copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the 
10 | 	following conditions:
11 | 
12 | 	The above copyright notice and this permission notice shall be included in all copies or substantial 
13 | 	portions of the Software.
14 | 
15 | 	THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT 
16 | 	LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN 
17 | 	NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, 
18 | 	WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE 
19 | 	SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
20 | 
21 | 	See also: http://www.opensource.org/licenses/mit-license.html
22 | ------------------------------------------------------------------------------------------------------------->
23 | <cfcomponent>
24 |     <cffunction access="public" returns="void" name="init">
25 | 		<cfif structIsEmpty(arguments)>
26 | 			<cfreturn />
27 | 		</cfif>
28 | 		<cfschedule attributeCollection="#arguments#" />
29 | 	</cffunction>
30 | </cfcomponent>


--------------------------------------------------------------------------------
/search.cfc:
--------------------------------------------------------------------------------
 1 | /***********************************************************************************************************
 2 | *
 3 | * Made by Raymond Camden, Jedi Master
 4 | *
 5 | * MIT License
 6 | * 
 7 | * Copyright (c) 2011 The ColdFusion Community
 8 | * 
 9 | * Permission is hereby granted, free of charge, to any person obtaining a copy of this software and 
10 | * associated documentation files (the "Software"), to deal in the Software without restriction, including 
11 | * without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell 
12 | * copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the 
13 | * following conditions:
14 | * 
15 | * The above copyright notice and this permission notice shall be included in all copies or substantial 
16 | * portions of the Software.
17 | * 
18 | * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT 
19 | * LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN 
20 | * NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, 
21 | * WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE 
22 | * SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
23 | * 
24 | * See also: http://www.opensource.org/licenses/mit-license.html
25 | *
26 | *************************************************************************************************************/
27 | 
28 | /**
29 |  * Search Service to perform search operations in cfscript
30 |  * @name search
31 |  * @displayname ColdFusion Search Service 
32 |  * @output false
33 |  * @accessors true
34 |  */
35 | component extends="base" {
36 | 
37 | 	property string collection;
38 | 	//property string name;
39 | 	property string category;
40 | 	property string categoryTree;
41 | 	property numeric contextBytes;
42 | 	property string contextHighlightBegin;
43 | 	property string contextHighlightEnd;
44 | 	property numeric contextPassages;
45 | 	property string criteria;
46 | 	//Language is deprecated
47 | 	property numeric maxRows;
48 | 	property string previousCriteria;
49 | 	property numeric startRow;
50 | 	property string status;
51 | 	property string suggestions;
52 | 	property string orderby;
53 | 	//Type is deprecated
54 | 
55 | 	property name="properties" type="any" getter="false" setter="false";
56 | 
57 | 	//service tag to invoke
58 | 	variables.tagName = "CFSEARCH";
59 | 	
60 |     //cffeed tag attributes
61 |     variables.tagAttributes = getSupportedTagAttributes(getTagName());
62 | 
63 | 	/**
64 | 	 * Default constructor invoked when search objects are created. 
65 | 	 * @return search object
66 | 	 * @output false
67 | 	 */
68 |     public search function init() 
69 | 	{
70 | 		if(!structisempty(arguments)) structappend(variables,arguments);
71 |         return this;
72 |     }
73 | 
74 |     /**
75 | 	 * Invoke the cfsearch service tag to search solr collections in cfscript
76 |      * Usage :: new search().search(criteria="foo",maxRows=10);
77 | 	 * @output false      
78 | 	 */
79 |     public struct function search()
80 |     {
81 |         //store tag attributes to be passed to the service tag in a local variable
82 |         var tagAttributes = duplicate(getTagAttributes());
83 | 
84 |         //attributes passed to service tag action like send() override existing attributes and are discarded after the action
85 | 		if (!structisempty(arguments))
86 |         {
87 |     		 structappend(tagAttributes,arguments);
88 |         }
89 | 
90 | 		//trim attribute values
91 | 		tagAttributes = trimAttributes(tagAttributes);
92 | 
93 | 		return super.invokeTag(getTagName(),tagAttributes);
94 |     }
95 | 
96 | }


--------------------------------------------------------------------------------
/setting.cfc:
--------------------------------------------------------------------------------
 1 | <!-----------------------------------------------------------------------------------------------------------
 2 | 	MIT License
 3 | 
 4 | 	Copyright (c) 2011 The ColdFusion Community
 5 | 
 6 | 	Permission is hereby granted, free of charge, to any person obtaining a copy of this software and 
 7 | 	associated documentation files (the "Software"), to deal in the Software without restriction, including 
 8 | 	without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell 
 9 | 	copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the 
10 | 	following conditions:
11 | 
12 | 	The above copyright notice and this permission notice shall be included in all copies or substantial 
13 | 	portions of the Software.
14 | 
15 | 	THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT 
16 | 	LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN 
17 | 	NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, 
18 | 	WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE 
19 | 	SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
20 | 
21 | 	See also: http://www.opensource.org/licenses/mit-license.html
22 | ------------------------------------------------------------------------------------------------------------->
23 | <cfcomponent>
24 | 
25 | 	<cffunction access="public" returntype="void" name="init">
26 | 		<cfsetting attributeCollection="#arguments#" />
27 | 	</cffunction>
28 | 
29 | </cfcomponent>


--------------------------------------------------------------------------------
/spreadsheet.cfc:
--------------------------------------------------------------------------------
 1 | <!-----------------------------------------------------------------------------------------------------------
 2 | 	MIT License
 3 | 
 4 | 	Copyright (c) 2011 The ColdFusion Community
 5 | 
 6 | 	Permission is hereby granted, free of charge, to any person obtaining a copy of this software and
 7 | 	associated documentation files (the "Software"), to deal in the Software without restriction, including
 8 | 	without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
 9 | 	copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the
10 | 	following conditions:
11 | 
12 | 	The above copyright notice and this permission notice shall be included in all copies or substantial
13 | 	portions of the Software.
14 | 
15 | 	THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT
16 | 	LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN
17 | 	NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
18 | 	WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
19 | 	SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
20 | 
21 | 	See also: http://www.opensource.org/licenses/mit-license.html
22 | ------------------------------------------------------------------------------------------------------------->
23 | <cfcomponent>
24 | 
25 | 	<cfset variables.result = "" />
26 | 
27 |     <cffunction access="public" returns="void" name="init">
28 | 		<cfreturn this/>
29 | 	</cffunction>
30 | 
31 | 	<cffunction name="readInfo">
32 | 		<cfset arguments.action = "read" />
33 | 		<cfset arguments.name = "variables.result" />
34 | 		<cfset go(argumentcollection=arguments) />
35 | 		<cfreturn variables.result />
36 | 	</cffunction>
37 | 
38 | 	<cffunction name="readQuery">
39 | 		<cfset arguments.action = "read" />
40 | 		<cfset arguments.query = "variables.result" />
41 | 		<cfset go(argumentcollection=arguments) />
42 | 		<cfreturn variables.result />
43 | 	</cffunction>
44 | 
45 | 	<cffunction name="update">
46 | 		<cfset arguments.action = "update" />
47 | 		<cfif structKeyExists(arguments, "query")>
48 | 			<cfset variables.result = arguments.query />
49 | 			<cfset arguments.query = "variables.result" />
50 | 		</cfif>
51 | 		<cfset go(argumentcollection=arguments) />
52 | 	</cffunction>
53 | 
54 | 	<cffunction name="write">
55 | 		<cfset arguments.action = "write" />
56 | 		<cfif structKeyExists(arguments, "query")>
57 | 			<cfset variables.result = arguments.query />
58 | 			<cfset arguments.query = "variables.result" />
59 | 		</cfif>
60 | 		<cfset go(argumentcollection=arguments) />
61 | 	</cffunction>
62 | 
63 | 	<cffunction name="go">
64 | 		<cfspreadsheet attributeCollection="#arguments#" />
65 | 	</cffunction>
66 | 
67 | </cfcomponent>


--------------------------------------------------------------------------------
/tests/ExecuteTest.cfc:
--------------------------------------------------------------------------------
 1 | component extends="mxunit.framework.TestCase" {
 2 | 
 3 | 	variables.NixOSList = "Mac OS X";
 4 | 	variables.noTestError = "The platform [#server.os.name#] is not in the executeTest server list, or there are no tests written for it yet.";
 5 | 
 6 | 	public function testDate(){
 7 | 		var commandline = createObject("component", "CFScript-Community-Components.execute").init();
 8 | 		
 9 | 		if (ListFind(server.OS.name, variables.NixOSList) > 0){
10 | 			commandline.setName("date");
11 | 			commandline.setArguments("+%Y-%m-%d-%H-%M-%S");
12 | 			commandline.setTimeout(5);
13 | 			var result = commandline.execute();
14 | 			var actual = result.getResult().result;
15 | 			var now = now();
16 | 			var expected = DateFormat(now, "yyyy-mm-dd-") & TimeFormat(now, "HH-mm-ss");
17 | 			AssertTrue(Len(result.getResult().result) > 0);
18 | 			AssertTrue(Len(result.getResult().error) == 0);
19 | 			AssertEquals(expected, actual);
20 | 		}
21 | 		else{
22 | 			fail(variables.noTestError);	
23 | 		}	
24 | 		
25 | 	}
26 | 	
27 | 	public function testExecuteError(){
28 | 		var commandline = createObject("component", "CFScript-Community-Components.execute").init();
29 | 		
30 | 		if (ListFind(server.OS.name, variables.NixOSList) > 0){
31 | 			commandline.setName("ls");
32 | 			commandline.setArguments("/null");
33 | 			commandline.setTimeout(5);
34 | 			var result = commandLine.execute();
35 | 			AssertTrue(Len(result.getResult().result) == 0);
36 | 			AssertTrue(Len(result.getResult().error) > 0);
37 | 			var actual = commandline.execute().getResult().error;
38 | 			var expected = "ls: /null: No such file or directory";
39 | 			AssertEquals(expected, actual);
40 | 		}
41 | 		else{
42 | 			fail(variables.noTestError);
43 | 		}		
44 | 		
45 | 	}		
46 | 
47 | }


--------------------------------------------------------------------------------
/tests/LoginFrameworkTest.cfc:
--------------------------------------------------------------------------------
 1 | component extends="mxunit.framework.TestCase" {
 2 | 
 3 | 	function testLoginLogout() {
 4 | 		assertFalse(isUserLoggedIn());
 5 | 		assertFalse(isUserInAnyRole("role,otherRole"));
 6 | 		assertFalse(isUserInRole("role"));
 7 | 
 8 | 		createObject("component", "CFScript-Community-Components.loginuser").init("everybody","secretpassword","role");
 9 | 
10 | 		assertTrue(isUserLoggedIn());
11 | 		assertTrue(isUserInAnyRole("role,otherRole"));
12 | 		assertTrue(isUserInRole("role"));
13 | 		assertFalse(isUserInRole("otherRole"));
14 | 
15 | 		createObject("component", "CFScript-Community-Components.logout").init();
16 | 
17 | 		assertFalse(isUserLoggedIn());
18 | 		assertFalse(isUserInAnyRole("role,otherRole"));
19 | 		assertFalse(isUserInRole("role"));
20 | 	}
21 | 
22 | }


--------------------------------------------------------------------------------
/tests/SpreadsheetTest.cfc:
--------------------------------------------------------------------------------
 1 | component extends="mxunit.framework.TestCase" {
 2 | 
 3 | 
 4 | 	function testSpreadsheet() {
 5 | 		var spreadsheet = createObject("component", "CFScript-Community-Components.spreadsheet");
 6 | 
 7 | 		var testFile = getTempDirectory() & "spreadsheet-unittest.xls";
 8 | 		if(fileExists(testFile)) {
 9 | 			fileDelete(testFile);
10 | 		}
11 | 
12 | 		var dataToWrite = queryNew("ColumnA,ColumnB,ColumnC");
13 | 		queryAddRow(dataToWrite, 3);
14 | 		dataToWrite.ColumnA[1] = "One";
15 | 		dataToWrite.ColumnB[1] = 1;
16 | 		dataToWrite.ColumnC[1] = "Uno";
17 | 		dataToWrite.ColumnA[2] = "Two";
18 | 		dataToWrite.ColumnB[2] = 2;
19 | 		dataToWrite.ColumnC[2] = "Dos";
20 | 		dataToWrite.ColumnA[3] = "Three";
21 | 		dataToWrite.ColumnB[3] = 3;
22 | 		dataToWrite.ColumnC[3] = "Tres";
23 | 
24 | 		spreadsheet.write(
25 | 			filename = testFile,
26 | 			query = dataToWrite
27 | 		);
28 | 
29 | 		var spreadsheetInfo = spreadsheet.readInfo(
30 | 			src = testFile
31 | 		);
32 | 
33 | 		assertTrue(structKeyExists(spreadsheetInfo, "summaryInfo"));
34 | 		assertEquals(spreadsheetInfo.summaryInfo.sheets, 1);
35 | 
36 | 		spreadsheet.update(
37 | 			filename = testfile,
38 | 			query = dataToWrite,
39 | 			sheetname = "blah"
40 | 		);
41 | 
42 | 		var spreadsheetInfo = spreadsheet.readInfo(
43 | 			src = testFile
44 | 		);
45 | 
46 | 		assertTrue(structKeyExists(spreadsheetInfo, "summaryInfo"));
47 | 		assertEquals(spreadsheetInfo.summaryInfo.sheets, 2);
48 | 
49 | 
50 | 		var spreadsheetData = spreadsheet.readQuery(
51 | 			src = testfile,
52 | 			excludeHeaderRow = true,
53 | 			headerRow = 1
54 | 		);
55 | 
56 | 		assertTrue(isQuery(spreadsheetData));
57 | 		assertEquals(spreadsheetData.ColumnA[3], "Three");
58 | 
59 | 		if(fileExists(testFile)) {
60 | 			fileDelete(testFile);
61 | 		}
62 | 	}
63 | 
64 | }


--------------------------------------------------------------------------------
/tests/queryofqueriesTest.cfc:
--------------------------------------------------------------------------------
 1 | component extends="mxunit.framework.TestCase" {
 2 | 
 3 | 	private struct function getTestData() {
 4 | 		var queries = {};
 5 | 		// Set up two test queries
 6 | 		var q1 = queryNew("id,value");
 7 | 		queryAddRow(q1);
 8 | 		querySetCell(q1, "id", 1);
 9 | 		querySetCell(q1, "value", "loo");
10 | 		queryAddRow(q1);
11 | 		querySetCell(q1, "id", 2);
12 | 		querySetCell(q1, "value", "foo");
13 | 		queryAddRow(q1);
14 | 		querySetCell(q1, "id", 3);
15 | 		querySetCell(q1, "value", "zoo");
16 | 
17 | 		var q2 = queryNew("id,othervalue");
18 | 		queryAddRow(q2);
19 | 		querySetCell(q2, "id", 1);
20 | 		querySetCell(q2, "othervalue", "boo");
21 | 		queryAddRow(q2);
22 | 		querySetCell(q2, "id", 3);
23 | 		querySetCell(q2, "othervalue", "too");
24 | 		queryAddRow(q2);
25 | 		querySetCell(q2, "id", 44);
26 | 		querySetCell(q2, "othervalue", "moo");
27 | 		
28 | 		queries.q1 = q1;
29 | 		queries.q2 = q2;
30 | 		return queries;
31 | 	}
32 | 
33 | 	function testQueryOfQueries() {
34 | 		data = getTestData();
35 | 		
36 | 		// This is how you use the QoQ component
37 | 		var queryResults = createObject("component", "CFScript-Community-Components.queryofqueries").init(
38 | 			SQL = "select * from q1, q2 where q1.id = q2.id",
39 | 			q1 = data.q1,
40 | 			q2 = data.q2
41 | 		);
42 | 
43 | 		assertEquals(queryResults.recordcount, 2);
44 | 
45 | 		var queryResults = createObject("component", "CFScript-Community-Components.queryofqueries").init(
46 | 			SQL = "select * from q1 where id = 2",
47 | 			q1 = data.q1,
48 | 			q2 = data.q2
49 | 		);
50 | 
51 | 		assertEquals(queryResults.recordcount, 1);
52 | 
53 | 		var queryResults = createObject("component", "CFScript-Community-Components.queryofqueries").init(
54 | 			SQL = "select * from q1, q2 where q1.id = q2.id and q1.id < 4",
55 | 			q1 = data.q1,
56 | 			q2 = data.q2
57 | 		);
58 | 
59 | 		assertEquals(queryResults.recordcount, 2);
60 | 	}
61 | 
62 | }


--------------------------------------------------------------------------------
/wddx.cfc:
--------------------------------------------------------------------------------
 1 | <!-----------------------------------------------------------------------------------------------------------
 2 | 	MIT License
 3 | 
 4 | 	Copyright (c) 2011 The ColdFusion Community
 5 | 
 6 | 	Permission is hereby granted, free of charge, to any person obtaining a copy of this software and 
 7 | 	associated documentation files (the "Software"), to deal in the Software without restriction, including 
 8 | 	without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell 
 9 | 	copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the 
10 | 	following conditions:
11 | 
12 | 	The above copyright notice and this permission notice shall be included in all copies or substantial 
13 | 	portions of the Software.
14 | 
15 | 	THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT 
16 | 	LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN 
17 | 	NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, 
18 | 	WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE 
19 | 	SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
20 | 
21 | 	See also: http://www.opensource.org/licenses/mit-license.html
22 | ------------------------------------------------------------------------------------------------------------->
23 | <cfcomponent>
24 | 
25 | 	<cffunction access="public" name="init">
26 | 		<cfreturn this />
27 | 	</cffunction>
28 | 	
29 | 	<cffunction name="cfml2wddx">
30 | 		<cfargument name="input" required="true" />
31 | 		<cfargument name="useTimeZoneInfo" default="yes" />
32 | 		<cfset arguments.action="cfml2wddx" />
33 | 		<cfset arguments.output="local.result" />
34 | 		<cfwddx attributeCollection="#arguments#" />
35 | 		<cfreturn local.result />
36 | 	</cffunction>
37 | 	
38 | 	<cffunction name="wddx2cfml">
39 | 		<cfargument name="input" required="true" />
40 | 		<cfargument name="useTimeZoneInfo" default="yes" />
41 | 		<cfargument name="validate" default="no" />
42 | 		<cfset arguments.action="wddx2cfml" />
43 | 		<cfset arguments.output="local.result" />
44 | 		<cfwddx attributeCollection="#arguments#" />
45 | 		<cfreturn local.result />
46 | 	</cffunction>
47 | 	
48 | 	<cffunction name="cfml2js">
49 | 		<cfargument name="input" required="true" />
50 | 		<cfargument name="topLevelVariable" />
51 | 		<cfargument name="useTimeZoneInfo" default="yes" />
52 | 		<cfargument name="validate" default="no" />
53 | 		<cfset arguments.action="cfml2js" />
54 | 		<cfset arguments.output="local.result" />
55 | 		<cfwddx attributeCollection="#arguments#" />
56 | 		<cfreturn local.result />
57 | 	</cffunction>
58 | 	
59 | 	<cffunction name="wddx2js">
60 | 		<cfargument name="input" required="true" />
61 | 		<cfargument name="topLevelVariable" />
62 | 		<cfargument name="useTimeZoneInfo" default="yes" />
63 | 		<cfargument name="validate" default="no" />
64 | 		<cfset arguments.action="wddx2js" />
65 | 		<cfset arguments.output="local.result" />
66 | 		<cfwddx attributeCollection="#arguments#" />
67 | 		<cfreturn local.result />
68 | 	</cffunction>
69 | 	
70 | </cfcomponent>
71 | 


--------------------------------------------------------------------------------
/zip.cfc:
--------------------------------------------------------------------------------
 1 | <!-----------------------------------------------------------------------------------------------------------
 2 | 	MIT License
 3 | 
 4 | 	Copyright (c) 2011 The ColdFusion Community
 5 | 
 6 | 	Permission is hereby granted, free of charge, to any person obtaining a copy of this software and 
 7 | 	associated documentation files (the "Software"), to deal in the Software without restriction, including 
 8 | 	without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell 
 9 | 	copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the 
10 | 	following conditions:
11 | 
12 | 	The above copyright notice and this permission notice shall be included in all copies or substantial 
13 | 	portions of the Software.
14 | 
15 | 	THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT 
16 | 	LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN 
17 | 	NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, 
18 | 	WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE 
19 | 	SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
20 | 
21 | 	See also: http://www.opensource.org/licenses/mit-license.html
22 | ------------------------------------------------------------------------------------------------------------->
23 | <cfcomponent extends="base">
24 | 
25 | 	<cfset variables.result = "" />
26 | 
27 |     <cffunction access="public" returns="void" name="init">
28 | 		<cfreturn this/>
29 | 	</cffunction>
30 | 
31 | 	<cffunction name="delete">
32 | 		<cfset arguments.action="delete" />
33 | 		<cfset go(arguments) />
34 | 	</cffunction>
35 | 
36 | 	<cffunction name="list">
37 | 		<cfset arguments.action="list" />
38 | 		<cfset arguments.name = "variables.result" />
39 | 		<cfset go(arguments) />
40 | 		<cfreturn variables.result />
41 | 	</cffunction>
42 | 
43 | 	<cffunction name="read">
44 | 		<cfset arguments.action="read" />
45 | 		<cfset arguments.variable = "variables.result" />
46 | 		<cfset go(arguments) />
47 | 		<cfreturn variables.result />
48 | 	</cffunction>
49 | 
50 | 	<cffunction name="readBinary">
51 | 		<cfset arguments.action="readBinary" />
52 | 		<cfset arguments.variable = "variables.result" />
53 | 		<cfset go(arguments) />
54 | 		<cfreturn variables.result />
55 | 	</cffunction>
56 | 
57 | 	<cffunction name="unzip">
58 | 		<cfset arguments.action="unzip" />
59 | 		<cfset go(arguments) />
60 | 	</cffunction>
61 | 
62 | 	<cffunction name="zip">
63 | 		<cfset arguments.action="zip" />
64 | 		<cfset go(arguments) />
65 | 	</cffunction>
66 | 
67 | 	<cffunction name="go">
68 | 		<cfset var parameters = getParameters() />
69 | 		<cfzip attributeCollection="#arguments[1]#">
70 | 			<cfloop from="1" to="#ArrayLen(parameters)#" index="variables.i">
71 | 				<cfzipparam attributeCollection="#parameters[variables.i]#" />
72 | 			</cfloop>
73 | 		</cfzip>
74 | 	</cffunction>
75 | 
76 | </cfcomponent>


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