'From Squeak 1.22 of September 21, 1997 on 1 October 1997 at 9:29:18 am'! WebtalkWebServer subclass: #WTWebServer instanceVariableNames: '' classVariableNames: 'ServerDirectory ' poolDictionaries: '' category: 'Webtalk'! !WTWebServer methodsFor: 'as yet unclassified' stamp: 'mjg 10/1/97 09:25'! handleGet: request "To start server: WTWebServer startService" "To end service: WTWebServer stopService" Transcript show: 'request: ', (request url printString) ; cr. ('*webtalkClass*' match: request url) ifFalse: ["Return the requested page" self handleNormalRequest: request. ] ifTrue: [request addField: 'webtalkClass=',((request url findTokens: '=') at: 2). self handleWebtalkRequest: request.]. ! ! !WTWebServer methodsFor: 'as yet unclassified' stamp: 'MJG 9/29/97 09:38'! handleNormalRequest: request | fileName | fileName := (request url) allButFirst copyReplaceAll: '/' with: ':'. fileName := ServerDirectory , fileName. (StandardFileStream isAFileNamed: fileName) ifFalse: [self nextPut: 'File Not FoundFile not found!!'. self close.] ifTrue: [self nextPut: (FileStream fileNamed: fileName) contentsOfEntireFile. self close.]! ! "-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "! WTWebServer class instanceVariableNames: ''! !WTWebServer class methodsFor: 'as yet unclassified' stamp: 'mjg 10/1/97 09:23'! startService Socket initializeNetwork: 0. ServerDirectory := 'Guz 7600:WebSTAR 2.0:'. ^self service: 8080! !