Toyz Smalltalk Core.Object false none toyzData title ToyzInc (none) Toyz class class initialization new ^super new initialize Toyz instance-creation initialize toyzData := FileStuff new. Toyz accessing getCourses ^toyzData getCourses. getEmployees ^toyzData getEmployees. getXrefs ^toyzData getXrefs. title ^title title: aTitle title := aTitle. Xref Smalltalk Core.Object false none employeeNumber employeeName courseNumber courseName ToyzInc (none) Xref class class initialization new ^super new Xref accessing courseName ^courseName courseName: aName courseName := aName. courseNumber ^courseNumber courseNumber: aNumber courseNumber := aNumber. employeeName ^employeeName employeeName: aName employeeName := aName. employeeNumber ^employeeNumber employeeNumber: aNumber employeeNumber := aNumber. employeeNumber: eNumber employeeName: eName courseNumber: cNumber courseName: cName self employeeNumber: eNumber. self employeeName: eName. self courseNumber: cNumber. self courseName: cName. Xref printing printOn: aStream aStream nextPutAll: (employeeNumber, ':', courseNumber). Xref operators <= aXref ^self employeeName <= aXref employeeName Course Smalltalk Core.Object false none courseNumber courseName ToyzInc (none) Course class class initialization new ^super new Course accessing courseName ^courseName courseName: aName courseName := aName. courseNumber ^courseNumber courseNumber: aNumber courseNumber := aNumber. courseNumber: aNumber courseName: aName self courseName: aName. self courseNumber: aNumber. Course printing printOn: aStream aStream nextPutAll: (courseName, ':', courseNumber). Course operators <= aCourse ^self courseName <= aCourse courseName 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 FileStuff Smalltalk Core.Object false none employees courses directory xrefs ToyzInc (none) FileStuff class class initialization new ^super new initialize FileStuff instance-creation initialize directory := 'c:\vw72nc\web\teach\db\'. employees := SortedCollection new. courses := SortedCollection new. xrefs := SortedCollection new. FileStuff accessing courses ^ courses getCourses courses isEmpty ifTrue: [ self getCoursesFromFile] ifFalse: [ self courses]. ^ courses. getCoursesFromFile | courseFile separator stream courseNumber courseName | courseFile := (directory, 'courses.txt') asFilename. separator := $,. "comma" stream := courseFile readStream lineEndCRLF. [stream atEnd] whileFalse: [ courseNumber := (stream upTo: separator). courseName := (stream upTo: separator). stream upTo: (Character cr). courses add: ((Course new) courseNumber: courseNumber courseName: courseName). ]. stream close. ^courses. getEmployeeCourses | xrefFile separator stream eNumber eName cName cNumber | xrefFile := (directory, 'xref.txt') asFilename. separator := $,. "comma" stream := xrefFile readStream lineEndCRLF. [stream atEnd] whileFalse: [ eNumber := (stream upTo: separator). eName := (stream upTo: separator). cNumber := (stream upTo: separator). cName := (stream upTo: separator). stream upTo: (Character cr). xrefs add: ((Xref new) employeeNumber: eNumber employeeName: eName courseNumber: cNumber courseName: cName ). ]. stream close. ^xrefs 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. getXrefs xrefs isEmpty ifTrue: [ self getEmployeeCourses] ifFalse: [ self xrefs]. ^ xrefs. xrefs ^ xrefs ServletVerify VisualWave VisualWave.HttpServlet false none ToyzInc (none) VisualWave.ServletVerify serving doPost: aRequest response: aResponse | firstName lastName passWord goodLogin employees| 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'. ]. ]. ]. ]. aResponse write: '<html><body><center>'. (goodLogin = 'YES') ifTrue: [ aResponse write: '<b>Successful Login</b>'. ] ifFalse: [ aResponse write: '<b>Unsuccessful Login</b><br><a href=/toyzinc/logon1.htm>Try Again</a>'.]. aResponse write: '</center></body></html>'. 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'.]. 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: 'employeej' 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'.]. 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'.]. 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'.]. ServletVerify6 VisualWave VisualWave.HttpServlet false none ToyzInc (none) VisualWave.ServletVerify6 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/main6.ssp'. ] ifFalse: [ aResponse redirectTo: '/teach/logon6.ssp?msg=111'.]. 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'.].