[Pharo] Personal fitness tracker web app.
Updated MFTUser implementation.
src/MyFitnessTracker/MFTUser.class.st
@@ -6,7 +6,9 @@
6
6
'passwordHash',
7
7
'dateOfBirth',
8
8
'realFirstName',
9
Removed:
'realLastName'
9
Added:
'realLastName',
10
Added:
'lastConnectionDateTime',
11
Added:
'isLoggedIn'
10
12
],
11
13
#classInstVars : [
12
14
'isRegistered'
@@ -26,24 +28,17 @@
26
28
^ 8
27
29
]
28
30
29
Removed:
{ #category : #testing }
30
Removed:
MFTUser class >> isLoggedIn [
31
Added:
{ #category : #'instance creation' }
32
Added:
MFTUser class >> newFromDictionary: aDictionary [
31
33
32
Removed:
^ false
34
Added:
^ self new
35
Added:
username: (aDictionary at: 'username');
36
Added:
dateOfBirth: (aDictionary at: 'date_of_birth');
37
Added:
realFirstName: (aDictionary at: 'real_first_name');
38
Added:
realLastName: (aDictionary at: 'real_last_name');
39
Added:
yourself
33
40
]
34
41
35
Removed:
{ #category : #login }
36
Removed:
MFTUser class >> logout [
37
Removed:
38
Removed:
^ true
39
Removed:
]
40
Removed:
41
Removed:
{ #category : #'as yet unclassified' }
42
Removed:
MFTUser class >> tryLoginUser: username [
43
Removed:
44
Removed:
self isLoggedIn
45
Removed:
]
46
Removed:
47
42
{ #category : #accessing }
48
43
MFTUser >> dateOfBirth [
49
44
@@ -64,19 +59,51 @@
64
59
passwordHash := String new.
65
60
realFirstName := String new.
66
61
realLastName := String new.
67
Removed:
dateOfBirth := Date new
62
Added:
dateOfBirth := Date new.
63
Added:
64
Added:
isLoggedIn := false
68
65
]
69
66
70
67
{ #category : #accessing }
68
Added:
MFTUser >> isLoggedIn [
69
Added:
70
Added:
^ isLoggedIn
71
Added:
]
72
Added:
73
Added:
{ #category : #accessing }
74
Added:
MFTUser >> isLoggedIn: aBoolean [
75
Added:
76
Added:
isLoggedIn := aBoolean
77
Added:
]
78
Added:
79
Added:
{ #category : #accessing }
80
Added:
MFTUser >> lastConnectionDateTime [
81
Added:
82
Added:
^ lastConnectionDateTime
83
Added:
]
84
Added:
85
Added:
{ #category : #accessing }
86
Added:
MFTUser >> lastConnectionDateTime: aDateAndTime [
87
Added:
88
Added:
lastConnectionDateTime := aDateAndTime
89
Added:
]
90
Added:
91
Added:
{ #category : #accessing }
71
92
MFTUser >> passwordHash [
72
93
73
94
^ passwordHash
74
95
]
75
96
76
97
{ #category : #accessing }
77
Removed:
MFTUser >> passwordHash: anObject [
98
Added:
MFTUser >> passwordHash: aPasswordHash [
78
99
79
Removed:
passwordHash := anObject
100
Added:
passwordHash := aPasswordHash
101
Added:
]
102
Added:
103
Added:
{ #category : #accessing }
104
Added:
MFTUser >> passwordHashFromString: aString [
105
Added:
106
Added:
passwordHash := (SHA256 new hashMessage: aString) asString
80
107
]
81
108
82
109
{ #category : #accessing }