|
Revision 5, 1.0 kB
(checked in by DanWilson, 17 years ago)
|
|
Initial Commit Of ModelGlue? Website (upgrade to blogcfc 511)
|
| Rev | Line | |
|---|
| [5] | 1 | <cfcomponent name="CF8 Ping" extends="ping"> |
|---|
| 2 | |
|---|
| 3 | <cffunction name="pingAggregators" access="public" returnType="void" output="false" |
|---|
| 4 | hint="Pings blog aggregators."> |
|---|
| 5 | <cfargument name="pingurls" type="string" required="true"> |
|---|
| 6 | <cfargument name="blogtitle" type="string" required="true"> |
|---|
| 7 | <cfargument name="blogurl" type="string" required="true"> |
|---|
| 8 | |
|---|
| 9 | <cfset var aURL = ""> |
|---|
| 10 | |
|---|
| 11 | <cfloop index="aURL" list="#arguments.pingurls#"> |
|---|
| 12 | |
|---|
| 13 | <cfthread action="run" name="#arguments.blogurl#_#arguments.blogtitle#_#aurl#" blogtitle="#arguments.blogtitle#" blogurl="#arguments.blogurl#" aURL="#aURL#"> |
|---|
| 14 | <cfif aURL is "@technorati"> |
|---|
| 15 | <cfset pingTechnorati(attributes.blogTitle, attributes.blogURL)> |
|---|
| 16 | <cfelseif aURL is "@weblogs"> |
|---|
| 17 | <cfset pingweblogs(attributes.blogTitle, attributes.blogURL)> |
|---|
| 18 | <cfelseif aURL is "@icerocket"> |
|---|
| 19 | <cfset pingIceRocket(attributes.blogTitle, attributes.blogURL)> |
|---|
| 20 | <cfelse> |
|---|
| 21 | <cfhttp url="#attributes.aURL#" method="GET" resolveurl="false"> |
|---|
| 22 | </cfif> |
|---|
| 23 | </cfthread> |
|---|
| 24 | |
|---|
| 25 | </cfloop> |
|---|
| 26 | |
|---|
| 27 | </cffunction> |
|---|
| 28 | |
|---|
| 29 | </cfcomponent> |
|---|