All pastes #614992 Raw Edit

sigmaproject

public text v1 · immutable
·published 2007-07-11 21:47 UTC
rendered paste body
    <cffunction name="GetuTorrentList" returntype="any">
	    <cfargument name="ut_username" required="yes" type="string">
        <cfargument name="ut_password" required="yes" type="string">
        <cfargument name="ut_ip" required="yes" type="string">
        <cfargument name="ut_port" required="yes" type="numeric">
        	<cfset ConnectString = "http://" & ut_ip & ":" & ut_port & "/gui/?list=1">
	        <cfhttp url="#ConnectString#" username="#ut_username#" password="#ut_password#" method="get"></cfhttp>
				<cfset uTorrentListQuery = QueryNew("ID,HASHVALUE,STATUS,TORRENTNAME,SIZE,COMPLETED,DOWNLOADED,UPLOADED,RATIO,UPLOADBPS,DOWNLOADBPS,ETA,LABEL,CONNECTEDPEERS,PEERSINSWARM,CONNECTEDSEEDS,SEEDSINSWARM,AVAILABILITY,NUMBEROFORDER,REMAININGBYTES")>
				<cfloop from="4" to="500" index="IndexNum">
				<cfset LineOutput = #GetToken(cfhttp.FileContent,IndexNum,'#chr(10)#')#>
				<cfset temp = QueryAddRow(uTorrentListQuery)>
	<cfloop from="1" to="19" index="ColumnNum">
		<cfif #ColumnNum# EQ 1>
    		<cfset ColName = "HASHVALUE">
	    </cfif>
    	<cfif #ColumnNum# EQ 2>
    		<cfset ColName = "STATUS">
	    </cfif>
    	<cfif #ColumnNum# EQ "3">
    		<cfset ColName = "TORRENTNAME">
	    </cfif>
    	<cfif #ColumnNum# EQ 4>
    		<cfset Colname = "SIZE">
	    </cfif>
    	<cfif #ColumnNum# EQ 5>
    		<cfset ColName = "COMPLETED">
	    </cfif>
    	<cfif #ColumnNum# EQ 6>
    		<cfset ColName = "DOWNLOADED">
	    </cfif>
    	<cfif #ColumnNum# EQ 7>
    		<cfset ColName = "UPLOADED">
	    </cfif>
    	<cfif #ColumnNum# EQ 8>
    		<cfset ColName = "RATIO">
	    </cfif>
	    <cfif #ColumnNum# EQ 9 >
    		<cfset ColName = "UPLOADBPS">
	    </cfif>
	    <cfif #ColumnNum# EQ 10>
    		<cfset ColName = "DOWNLOADBPS">
	    </cfif>
	    <cfif #ColumnNum# EQ 11>
    		<cfset ColName = "ETA">
	    </cfif>
	    <cfif #ColumnNum# EQ 12>
    		<cfset ColName = "LABEL">
    	</cfif>
	    <cfif #ColumnNum# EQ 13>
    		<cfset ColName = "CONNECTEDPEERS">
	    </cfif>
    	<cfif #ColumnNum# EQ 14>
	    	<cfset ColName = "PEERSINSWARM">
    	</cfif>
	    <cfif #ColumnNum# EQ 15>
    		<cfset ColName = "CONNECTEDSEEDS">
	    </cfif>
    	<cfif #ColumnNum# EQ 16>
	    	<cfset ColName = "SEEDSINSWARM">
    	</cfif>
	    <cfif #ColumnNum# EQ 17>
    		<cfset ColName = "AVAILABILITY">
	    </cfif>
    	<cfif #ColumnNum# EQ 18>
	    	<cfset ColName = "NUMBEROFORDER">
    	</cfif>
	    <cfif #ColumnNum# EQ 19>
    		<cfset ColName = "REMAININGBYTES">
	    </cfif>

			<cfif ColumnNum EQ 3>
				<cfset temp = QuerySetCell(uTorrentListQuery, ColName, #Replace(GetToken(LineOutput,ColumnNum,","),'"','','all')#)>
			<cfelse>
				<cfset temp = QuerySetCell(uTorrentListQuery, ColName, #Replace(Replace(Replace(GetToken(LineOutput,ColumnNum,","),'[','','all'),'"','','all'),']','','all')#)>
			</cfif>

	</cfloop>
		<cfif #Len(LineOutput)# LT 40>
			<cfbreak>
		</cfif>
	</cfloop>

			<cfquery name="RemoveBadCells" dbtype="query">
            select * from uTorrentListQuery where size <> '';
            </cfquery>

		<cfreturn RemoveBadCells />
    </cffunction>