|
Revision 5, 0.9 kB
(checked in by DanWilson, 17 years ago)
|
|
Initial Commit Of ModelGlue? Website (upgrade to blogcfc 511)
|
| Rev | Line | |
|---|
| [5] | 1 | <cfcomponent name="CF7 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 | <cfif aURL is "@technorati"> |
|---|
| 14 | <cfset pingTechnorati(arguments.blogTitle, arguments.blogURL)> |
|---|
| 15 | <cfelseif aURL is "@weblogs"> |
|---|
| 16 | <cfset pingweblogs(arguments.blogTitle, arguments.blogURL)> |
|---|
| 17 | <cfelseif aURL is "@icerocket"> |
|---|
| 18 | <cfset pingIceRocket(arguments.blogTitle, arguments.blogURL)> |
|---|
| 19 | <cfelse> |
|---|
| 20 | <cftry> |
|---|
| 21 | <cfhttp url="#aURL#" method="GET" resolveurl="false"> |
|---|
| 22 | <cfcatch> |
|---|
| 23 | <!--- silently fail ---> |
|---|
| 24 | </cfcatch> |
|---|
| 25 | </cftry> |
|---|
| 26 | </cfif> |
|---|
| 27 | |
|---|
| 28 | </cfloop> |
|---|
| 29 | |
|---|
| 30 | </cffunction> |
|---|
| 31 | |
|---|
| 32 | </cfcomponent> |
|---|