'From MinimalMorphic of 8 December 2006 [latest update: #7246] on 25 February 2010 at 7:15:51 am'!
KomAuthDb subclass: #HVNaughtieUsers
	instanceVariableNames: ''
	classVariableNames: 'DataBase Logs'
	poolDictionaries: ''
	category: 'NaughtieWiki'!

!HVNaughtieUsers methodsFor: 'as yet unclassified' stamp: 'edc 2/15/2010 18:19'!
encode: password 
^ password! !

!HVNaughtieUsers methodsFor: 'as yet unclassified' stamp: 'edc 2/25/2010 07:15'!
verifyPassword: aPassword forUser: userName 
	| log |
	log := self class getDataBase
				at: userName
				ifAbsent: [^ false].
	^ log last = aPassword! !

"-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "!

HVNaughtieUsers class
	instanceVariableNames: ''!

!HVNaughtieUsers class methodsFor: 'as yet unclassified' stamp: 'edc 2/15/2010 18:18'!
addUser: user mail: mail
self halt.! !

!HVNaughtieUsers class methodsFor: 'as yet unclassified' stamp: 'edc 2/15/2010 18:06'!
getDataBase
" HVNaughtieUsers getDataBase  "
	^ DataBase! !

!HVNaughtieUsers class methodsFor: 'as yet unclassified' stamp: 'edc 2/15/2010 17:57'!
setDataBase: anObject
DataBase := anObject! !