Offray/Fossil
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Improving API: authentication.

Browse Source
This commit is contained in:
Offray Vladimir Luna Cárdenas 2017-06-09 07:42:57 +00:00
parent 48968316c6
commit a259e0b500
1 changed files with 79 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

84
repository/Fossil/FossilRepo.class.st
View File

@ -2,6 +2,11 @@
I model a fossil repository. For details about fossil see:
http://fossil-scm.org/
The protocols are named following Smalltalk conventions, but
also after the Fossil JSON API documentation at [1]
[1] https://docs.google.com/document/d/1fXViveNhDbiXgCuE7QDXQOKeFzf2qNUkBEgiUvoqFN4/view
"
Class {
#name : #FossilRepo,
@ -13,24 +18,58 @@ Class {
#category : #Fossil
}
{ #category : #authentication }
FossilRepo >> authTokenFor: anUserName withPassword: passwordString [
^ ((self loginAs: anUserName withPassword: passwordString) at: 'payload') at: 'authToken'
]
{ #category : #authentication }
FossilRepo >> capabilities [
| payload name permissions |
payload := self rawCapabilities at: 'payload'.
name := payload at: 'name'.
permissions := ((payload at: 'permissionFlags') select: [ :item | item value ]) keys.
^ Dictionary new
at: 'name' put: name;
at: 'permissions' put: permissions;
yourself.
]
{ #category : #querying }
FossilRepo >> checkinsFor: relativeFilePath [
"I get all histotical checkins information for a full file name, wich includes relative path
in the repository (i.e: 'Doc/Es/Tutoriales/tutorial.ston' or 'index.html's)"
(self jsonDataFor: relativeFilePath) = self ifTrue: [
(self jsonWikiDataFor: relativeFilePath) = self ifTrue: [
self inform:
'WARNING! Key not found, verify the file name you are looking in this repository'.
^ self ].
^ (((self jsonDataFor: relativeFilePath) at: 'payload') at: 'checkins')
^ (((self jsonWikiDataFor: relativeFilePath) at: 'payload') at: 'checkins')
]
{ #category : #wiki }
FossilRepo >> createPage: pageName [
^ NeoJSONReader fromString: (self jsonWikiDataFor: 'create/', pageName)
]
{ #category : #wiki }
FossilRepo >> fetchPage: pageName [
^ NeoJSONReader fromString: (self jsonWikiDataFor: 'get/', pageName)
]
{ #category : #utility }
FossilRepo >> jsonDataFor: anUrlSegment [
^ ZnClient new
get: (self wikiRoot addPathSegment: anUrlSegment);
get: (self jsonRoot addPathSegment: anUrlSegment);
contents.
]
{ #category : #utility }
FossilRepo >> jsonRoot [
"I define the root of the JSON API for all repo querying and modifiying operations"
^ self remote addPathSegment: 'json'.
]
{ #category : #querying }
FossilRepo >> jsonStringFor: aFileName [
| queryForJSONData |
@ -39,6 +78,13 @@ FossilRepo >> jsonStringFor: aFileName [
^ (ZnEasy get: queryForJSONData) contents.
]
{ #category : #wiki }
FossilRepo >> jsonWikiDataFor: anUrlSegment [
^ ZnClient new
get: (self wikiRoot addPathSegment: anUrlSegment);
contents.
]
{ #category : #querying }
FossilRepo >> lastHashNumberFor: aFileName [
"I'm useful to see if local versions of files are updated to the last versions of the
@ -56,9 +102,32 @@ FossilRepo >> local: aLocalFilePath [
local := aLocalFilePath
]
{ #category : #authentication }
FossilRepo >> loginAs: anUserName withPassword: password [
| jsonData |
jsonData := ZnClient new
url: (self loginUrlWithName: anUserName andPassword: password);
get;
contents.
^ NeoJSONReader fromString: jsonData
]
{ #category : #authentication }
FossilRepo >> loginUrlWithName: aUser andPassword: passwd [
^ self jsonRoot
addPathSegment: 'login';
queryAt: 'name' put: aUser;
queryAt: 'password' put: passwd.
]
{ #category : #wiki }
FossilRepo >> pageList [
^ NeoJSONReader fromString: (self jsonDataFor: 'list')
^ NeoJSONReader fromString: (self jsonWikiDataFor: 'list')
]
{ #category : #authentication }
FossilRepo >> rawCapabilities [
^ NeoJSONReader fromString: (self jsonDataFor: 'cap')
]
{ #category : #accessing }
@ -71,6 +140,11 @@ FossilRepo >> remote: anUrlString [
remote := anUrlString asUrl
]
{ #category : #authentication }
FossilRepo >> whoAmI [
^ NeoJSONReader fromString: (self jsonDataFor: 'whoami')
]
{ #category : #wiki }
FossilRepo >> wikiRoot [
^ self jsonRoot addPathSegment: 'wiki'
@ -78,5 +152,5 @@ FossilRepo >> wikiRoot [
{ #category : #wiki }
FossilRepo >> wikiTimeline [
^ NeoJSONReader fromString: (self jsonDataFor: 'timeline')
^ NeoJSONReader fromString: (self jsonWikiDataFor: 'timeline')
]