Preferences - Fetch

Retrieve your Reddit preference settings using SQL Server

Prerequisites:

See SQLHTTP easy setup for Reddit
See API Call documentation for parameter values and other information
Create the stored procedure documented below

Stored Procedure:


CREATE PROCEDURE usp_Reddit_Preferences_Fetch(	
		@Profile nvarchar(100),
		@fields varchar(MAX) = NULL,
		@Response nvarchar(MAX) OUTPUT,
		@StatusCode int OUTPUT,
		@StatusDescription nvarchar(MAX) OUTPUT)
AS

EXEC usp_Reddit_Auth_Refresh @Profile

DECLARE @URL nvarchar(MAX)
DECLARE @QueryString varchar(MAX)
DECLARE @HTTPSessionID uniqueidentifier

SET @URL = 'https://oauth.reddit.com/api/v1/prefs'

EXEC SQLHTTP.net.QueryStringBuilder   @QueryString OUTPUT,
				      @Profile,
				      'fields', @fields

SET @URL = @URL + @QueryString

EXEC SQLHTTP.net.HTTPSession @HTTPSessionID OUTPUT

EXEC usp_Reddit_Auth_Header @Profile, @HTTPSessionID

EXEC SQLHTTP.net.HTTPRequest 	@HttpSessionID,
				@URL = @URL,
				@Method = 'GET',
				@StatusCode = @StatusCode OUTPUT,
				@StatusDescription = @StatusDescription OUTPUT,
				@Response = @Response OUTPUT
GO

CREATE PROCEDURE usp_Reddit_Preferences_Fetch(

@Profile nvarchar(100),

@fields varchar(MAX) = NULL,

@Response nvarchar(MAX) OUTPUT,

@StatusCode int OUTPUT,

@StatusDescription nvarchar(MAX) OUTPUT)

EXEC usp_Reddit_Auth_Refresh @Profile

DECLARE @URL nvarchar(MAX)

DECLARE @QueryString varchar(MAX)

DECLARE @HTTPSessionID uniqueidentifier

SET @URL = 'https://oauth.reddit.com/api/v1/prefs'

EXEC SQLHTTP.net.QueryStringBuilder @QueryString OUTPUT,

@Profile,

'fields', @fields

SET @URL = @URL + @QueryString

EXEC SQLHTTP.net.HTTPSession @HTTPSessionID OUTPUT

EXEC usp_Reddit_Auth_Header @Profile, @HTTPSessionID

EXEC SQLHTTP.net.HTTPRequest @HttpSessionID,

@URL = @URL,

@Method = 'GET',

@StatusCode = @StatusCode OUTPUT,

@StatusDescription = @StatusDescription OUTPUT,

@Response = @Response OUTPUT



Sample Usage:


DECLARE @Response nvarchar(MAX)
DECLARE @StatusCode int
DECLARE @StatusDescription nvarchar(MAX)

EXEC usp_Reddit_Preferences_Fetch
		@Profile = 'My Reddit Bot',
		@fields = 'email_messages,research,media,lang,media_preview,beta,top_karma_subreddits',
		@Response = @Response OUTPUT,
		@StatusCode = @StatusCode OUTPUT, 
		@StatusDescription = @StatusDescription OUTPUT

IF @StatusCode >= 400
	EXEC SQLHTTP.net.RaiseHttpError @StatusCode, @StatusDescription, @Response
ELSE
	BEGIN

		DECLARE @X xml
		SET @X = SQLHTTP.net.Json_To_Xml(@Response, 0)

		--The XPath syntax below was easily generated by executing the following commands:
		--EXEC SQLHTTP.net.XQueryHelper @X
		--and then executing: 
		--EXEC SQLHTTP.net.XQueryHelper @X, 'JsonObject' -- list preferences
 
		SELECT  T.C.value(N'@beta', N'nvarchar(MAX)') AS [beta]
		       ,T.C.value(N'@email_messages', N'nvarchar(MAX)') AS [email_messages]
		       ,T.C.value(N'@lang', N'nvarchar(MAX)') AS [lang]
		       ,T.C.value(N'@media', N'nvarchar(MAX)') AS [media]
		       ,T.C.value(N'@media_preview', N'nvarchar(MAX)') AS [media_preview]
		       ,T.C.value(N'@research', N'nvarchar(MAX)') AS [research]
		       ,T.C.value(N'@top_karma_subreddits', N'nvarchar(MAX)') AS [top_karma_subreddits]
		FROM @X.nodes(N'/JsonObject') T(C)

	END

DECLARE @Response nvarchar(MAX)

DECLARE @StatusCode int

DECLARE @StatusDescription nvarchar(MAX)

EXEC usp_Reddit_Preferences_Fetch

@Profile = 'My Reddit Bot',

@fields = 'email_messages,research,media,lang,media_preview,beta,top_karma_subreddits',

@Response = @Response OUTPUT,

@StatusCode = @StatusCode OUTPUT,

@StatusDescription = @StatusDescription OUTPUT

IF @StatusCode >= 400

EXEC SQLHTTP.net.RaiseHttpError @StatusCode, @StatusDescription, @Response

ELSE

BEGIN

DECLARE @X xml

SET @X = SQLHTTP.net.Json_To_Xml(@Response, 0)

--The XPath syntax below was easily generated by executing the following commands:

--EXEC SQLHTTP.net.XQueryHelper @X

--and then executing:

--EXEC SQLHTTP.net.XQueryHelper @X, 'JsonObject' -- list preferences

SELECT T.C.value(N'@beta', N'nvarchar(MAX)') AS [beta]

,T.C.value(N'@email_messages', N'nvarchar(MAX)') AS [email_messages]

,T.C.value(N'@lang', N'nvarchar(MAX)') AS [lang]

,T.C.value(N'@media', N'nvarchar(MAX)') AS [media]

,T.C.value(N'@media_preview', N'nvarchar(MAX)') AS [media_preview]

,T.C.value(N'@research', N'nvarchar(MAX)') AS [research]

,T.C.value(N'@top_karma_subreddits', N'nvarchar(MAX)') AS [top_karma_subreddits]

FROM @X.nodes(N'/JsonObject') T(C)

END

beta email_messages lang media media_preview research top_karma_subreddits

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

false true en subreddit subreddit false false



IMPORTANT DISCLAIMER

CODE/SQL ON THESE PAGES ARE PROVIDED AS-IS AND ARE AVAILABLE FOR ILLUSTRATIVE PURPOSES ONLY.

USERS ARE REQUIRED TO ABIDE BY THE TERMS AND CONDITIONS FOR USING REFERENCED THIRD PARTY WEBSITES AND/OR APIs FROM THEIR RESPECTIVE WEBSITES. WE DO NOT CONDONE ANY VIOLATION OF THIRD PARTY WEBSITES AND/OR APIs TERMS AND CONDITIONS USING OUR SOFTWARE.

USERS SHALL BE SOLELY RESPONSIBLE AND BE SOLELY LIABLE FOR VIOLATION OF ANY RULES SPECIFIED BY THIRD PARTIES FOR USING THEIR WEBSITES AND/OR APIs, OR INFRINGEMENT OF RIGHTS OF SUCH THIRD PARTIES.