FileStuff Smalltalk Core.Object false none employees directory ToyzInc (none) FileStuff class class initialization new ^super new initialize FileStuff instance-creation initialize directory := 'c:\vw72nc\web\sandbox\db\'. employees := SortedCollection new. FileStuff accessing getEmployees | empFile separator stream number level firstName lastName | empFile := (directory, 'employees.txt') asFilename. separator := $,. "comma" stream := empFile readStream lineEndCRLF. [stream atEnd] whileFalse: [ number := (stream upTo: separator). level := (stream upTo: separator). lastName := (stream upTo: separator). firstName := (stream upTo: separator). stream upTo: (Character cr). employees add: ((Employee new) number: number level: level firstName: firstName lastName: lastName ). ]. stream close. ^employees. Toyz Smalltalk Core.Object false none toyzData ToyzInc (none) Toyz class class initialization new ^super new initialize Toyz instance-creation initialize toyzData := FileStuff new. Toyz accessing getEmployees ^toyzData getEmployees. Employee Smalltalk Core.Object false none number level firstName lastName ToyzInc (none) Employee class class initialization new ^super new Employee accessing firstName ^firstName firstName: aName firstName := aName. lastName ^lastName lastName: aName lastName := aName. level ^level level: aLevel level := aLevel. number ^number number: aNumber number := aNumber. number: aNumber level: aLevel firstName: aFirstName lastName: aLastName self firstName: aFirstName. self number: aNumber. self lastName: aLastName. self level: aLevel. Employee printing printOn: aStream aStream nextPutAll: (lastName, ':', firstName). Employee operators <= aEmployee ^self lastName <= aEmployee lastName ServletVerify5 VisualWave VisualWave.HttpServlet false none ToyzInc (none) VisualWave.ServletVerify5 serving doPost: aRequest response: aResponse | firstName lastName passWord goodLogin employees mySession | firstName := aRequest anyFormValueAt: 'firstName'. lastName := aRequest anyFormValueAt: 'lastName'. passWord := aRequest anyFormValueAt: 'passWord'. mySession := aRequest session. mySession removeKey: 'signon'. goodLogin := 'NO'. employees := (Toyz new) getEmployees. employees do: [ :each | (passWord = each number) ifTrue: [ (lastName = each lastName) ifTrue: [ (firstName = each firstName) ifTrue: [ goodLogin := 'YES'. mySession setAttribute: 'signon' to: each. mySession timeout: 5.]. ]. ]. ]. (goodLogin = 'YES') ifTrue: [ aResponse redirectTo: '/teach/main5.ssp'. ] ifFalse: [ aResponse redirectTo: '/teach/logon5.ssp?msg=111'.]. ServletVerify2 VisualWave VisualWave.HttpServlet false none ToyzInc (none) VisualWave.ServletVerify2 serving doPost: aRequest response: aResponse | firstName lastName passWord goodLogin employees mySession | firstName := aRequest anyFormValueAt: 'firstName'. lastName := aRequest anyFormValueAt: 'lastName'. passWord := aRequest anyFormValueAt: 'passWord'. goodLogin := 'NO'. employees := (Toyz new) getEmployees. employees do: [ :each | (passWord = each number) ifTrue: [ (lastName = each lastName) ifTrue: [ (firstName = each firstName) ifTrue: [ goodLogin := 'YES'. mySession := aRequest session. mySession setAttribute: 'signon' to: each. ]. ]. ]. ]. (goodLogin = 'YES') ifTrue: [ aResponse redirectTo: '/teach/main2.ssp'. ] ifFalse: [ aResponse redirectTo: '/teach/logon2.htm'.]. ServletVerify3 VisualWave VisualWave.HttpServlet false none ToyzInc (none) VisualWave.ServletVerify3 serving doPost: aRequest response: aResponse | firstName lastName passWord goodLogin employees mySession | firstName := aRequest anyFormValueAt: 'firstName'. lastName := aRequest anyFormValueAt: 'lastName'. passWord := aRequest anyFormValueAt: 'passWord'. goodLogin := 'NO'. employees := (Toyz new) getEmployees. employees do: [ :each | (passWord = each number) ifTrue: [ (lastName = each lastName) ifTrue: [ (firstName = each firstName) ifTrue: [ goodLogin := 'YES'. mySession := aRequest session. mySession setAttribute: 'signon' to: each. ]. ]. ]. ]. (goodLogin = 'YES') ifTrue: [ aResponse redirectTo: '/teach/main3.ssp'. ] ifFalse: [ aResponse redirectTo: '/teach/logon3.ssp?msg=111'.]. ServletVerify1 VisualWave VisualWave.HttpServlet false none ToyzInc (none) VisualWave.ServletVerify1 serving doPost: aRequest response: aResponse | firstName lastName passWord goodLogin employees employeeCookie| firstName := aRequest anyFormValueAt: 'firstName'. lastName := aRequest anyFormValueAt: 'lastName'. passWord := aRequest anyFormValueAt: 'passWord'. goodLogin := 'NO'. employees := (Toyz new) getEmployees. employees do: [ :each | (passWord = each number) ifTrue: [ (lastName = each lastName) ifTrue: [ (firstName = each firstName) ifTrue: [ goodLogin := 'YES'. employeeCookie := HTTPCookie named: 'employee' value: (each firstName, ' ', each lastName). employeeCookie expireAfterDays: 90. aResponse addCookie: employeeCookie. ]. ]. ]. ]. (goodLogin = 'YES') ifTrue: [ aResponse redirectTo: '/teach/main1.ssp'. ] ifFalse: [ aResponse redirectTo: '/teach/logon1.htm'.]. ServletVerify4 VisualWave VisualWave.HttpServlet false none ToyzInc (none) VisualWave.ServletVerify4 serving doPost: aRequest response: aResponse | firstName lastName passWord goodLogin employees mySession | firstName := aRequest anyFormValueAt: 'firstName'. lastName := aRequest anyFormValueAt: 'lastName'. passWord := aRequest anyFormValueAt: 'passWord'. goodLogin := 'NO'. employees := (Toyz new) getEmployees. employees do: [ :each | (passWord = each number) ifTrue: [ (lastName = each lastName) ifTrue: [ (firstName = each firstName) ifTrue: [ goodLogin := 'YES'. mySession := aRequest session. mySession setAttribute: 'signon' to: each. ]. ]. ]. ]. (goodLogin = 'YES') ifTrue: [ aResponse redirectTo: '/teach/main4.ssp'. ] ifFalse: [ aResponse redirectTo: '/teach/logon4.ssp?msg=111'.].