The following code will allow you to post photos to your blog, flickr, etc straight from your mobile phone with Sprint. Feel free to use as you wish.

<cfsetting
	showdebugoutput="false"
	requesttimeout="20"/>

<cfpop 
	action="getall" 
	name="getEmail" 
	server="#Request.LavabitServer#" 
	port="#Request.LavabitPort#" 
	username="#Request.LavabitUserName#" 
	password="#Request.LavabitPassword#" />
	

<cfoutput query="getEmail">

<cfset urlsInBody = REMatch("https?://([-\w\.]+)+(:\d+)?(/([\w/_\.]*(\?\S+)?)?)?", HTMLBody)>
	
		
	<cfloop index="i" from="1" to="#ArrayLen(urlsInBody)#">
		
		
		<cfif FindNoCase("RECIPIENT",urlsInBody[i])>

<cfhttp 
				url="#urlsInBody[i]#" 
				method = "GET" 
				useragent="Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.0.2) Gecko/20060308 Firefox/1.5.0.2"
				getasbinary="yes"
				result="objHttp">
	
				<cfhttpparam
					type="CGI"
					name="http_referer"
					value="http://pictures.sprintpcs.com/share.do"
					encoded="false" />			
			</cfhttp>
	
			
			<cfif (FindNoCase("200",objHttp.Statuscode) AND FindNoCase("image",objHttp.Responseheader["Content-Type"]))>

<cfset ThisMessage = REMatchNoCase("<pre[^<]*</pre>",HTMLBody)>

<cfset ThisMessage = REReplaceNoCase(ThisMessage[1],"<[^>]*>","","all")>
															
				
				<cfif ThisMessage CONTAINS "@all">
					<cfset SendToFlickr = 1>
					<cfset SendToTwitter = 1>						
				<cfelse>
					
					<cfif ThisMessage CONTAINS "@fk">
						<cfset SendToFlickr = 1>
					<cfelse>
						<cfset SendToFlickr = 0>							
					</cfif>
					
					<cfif ThisMessage CONTAINS "@tt">
						<cfset SendToTwitter = 1>
					<cfelse>
						<cfset SendToTwitter = 0>
					</cfif>					
				</cfif>				
										
				
				<cfset ThisMessage = reReplaceNoCase(ThisMessage, "@tt|@fk|@ALL", "", "all")>

[This is where I invoke a component to insert the mophoblog entry]
										
				
				<cfset destination = #Request.PhotoPath# & "#InsertContent.ContentID#">
				<cfif NOT DirectoryExists(destination)>
					<cfdirectory action="create" directory="#destination#">
				</cfif>

<cfimage
					source = "#objHttp.FileContent#"
					action = "write"
					isBase64 = "yes"
					destination = "#destination#\#UID#.jpg"
					overwrite = "true">							
				
				
				<cfimage
				    action = "resize"
				    height = "150"
				    width = ""
				    source = "#destination#\#UID#.jpg"
				    destination = "#destination#\#UID#-thumb.jpg"
				    name = "thumbnail"
				    overwrite = "yes">
				
				
				<cfinclude template="emailMobilePics.cfm">
				    				
				
				<cfpop 
					action="delete" 
					uid="#UID#" 
					server="#Request.LavabitServer#" 
					port="#Request.LavabitPort#" 
					username="#Request.LavabitUserName#" 
					password="#Request.LavabitPassword#" />

<cfpop 
					action="delete" 
					uid="#UID#" 
					server="#Request.LavabitServer#" 
					port="#Request.LavabitPort#" 
					username="#Request.LavabitUserName#" 
					password="#Request.LavabitPassword#" />		
												
				<cfmail from="#Request.SiteOwnerEmail#" to="#Request.SiteOwnerEmail#" subject="Image Not Found">
					The image you tried to send from your phone could not be scraped from sprint.
				</cfmail>
			
			</cfif>
			
		</cfif>
		
	</cfloop>
			
</cfoutput>

« Back to Blog Entry