SearchEngine
VisualWave
VisualWave.HttpServlet
false
none
ZZZ
(none)
VisualWave.SearchEngine serving
doGet: aRequest response: aResponse
| anSS aResult anEngine searchURL |
anSS := aRequest anyFormValueAt: 'searchString'.
aResult := aRequest anyFormValueAt: 'numResults'.
anEngine := aRequest anyFormValueAt: 'searchEngine'.
(anEngine = 'google') ifTrue:
[ searchURL := 'http://www.google.com/search?q=',anSS,'&num=',aResult.].
(anEngine = 'infoseek') ifTrue:
[ searchURL := 'http://infoseek.go.com/Titles?qt=',anSS,'&nh=',aResult.].
(anEngine = 'lycos') ifTrue:
[ searchURL := 'http://lycospro.lycos.com/cgi-bin/pursuit?query=',anSS,'&maxhits=',aResult.].
(anEngine = 'hotbot') ifTrue:
[ searchURL := 'http://www.hotbot.com/?MT=',anSS,'&DC=',aResult.].
aResponse redirectTo: searchURL.
doPost: aRequest response: aResponse
| anSS aResult anEngine searchURL |
anSS := aRequest anyFormValueAt: 'searchString'.
aResult := aRequest anyFormValueAt: 'numResults'.
anEngine := aRequest anyFormValueAt: 'searchEngine'.
(anEngine = 'google') ifTrue:
[ searchURL := 'http://www.google.com/search?q=',anSS,'&num=',aResult.].
(anEngine = 'infoseek') ifTrue:
[ searchURL := 'http://infoseek.go.com/Titles?qt=',anSS,'&nh=',aResult.].
(anEngine = 'lycos') ifTrue:
[ searchURL := 'http://lycospro.lycos.com/cgi-bin/pursuit?query=',anSS,'&maxhits=',aResult.].
(anEngine = 'hotbot') ifTrue:
[ searchURL := 'http://www.hotbot.com/?MT=',anSS,'&DC=',aResult.].
" aResponse redirectTo: searchURL. "
aResponse write: '<HTML><BODY>Your searchURL is ',
searchURL,
' </BODY><HTML>'
TagStuff
VisualWave
Core.Object
false
none
products
ZZZ
(none)
VisualWave.TagStuff class class initialiation
new
^super new initialize
VisualWave.TagStuff initialize-release
initialize
products := OrderedCollection new.
self getProducts.
VisualWave.TagStuff accessing
getProducts
| prodFile separator stream prodNumber prodName prodDesc category |
prodFile := 'c:\vw72nc\web\sandbox\db\products.csv' asFilename.
separator := $;. "semi-colon"
stream := prodFile readStream lineEndCRLF.
[stream atEnd] whileFalse: [
stream upTo: separator.
prodNumber := (stream upTo: separator).
category := (stream upTo: separator).
stream upTo: separator.
prodName := (stream upTo: separator).
prodDesc := (stream upTo: separator).
stream upTo: (Character cr).
products add: ((Product new) number: prodNumber category: category name: prodName description: prodDesc).
].
^products
products
^products
ServletSTuff
VisualWave
VisualWave.HttpServlet
false
none
ZZZ
(none)
VisualWave.ServletSTuff serving
doGet: aRequest response: aResponse
| anSS |
anSS := aRequest anyFormValueAt: 'searchString'.
aResponse write: '<HTML><BODY>You chose ', anSS, ' for your Search String</BODY><HTML>'
StringBean
VisualWave
Core.Object
false
none
quote
ZZZ
(none)
VisualWave.StringBean class class initialiation
new
^super new initialize
VisualWave.StringBean initialize-release
initialize
quote := 'Blue Stringers are the best.'
VisualWave.StringBean accessing
getQuote
^quote
setQuote: aQuote
quote := aQuote.
Product
VisualWave
Core.Object
false
none
category description number name
ZZZ
(none)
VisualWave.Product class class initialiation
new
^super new
VisualWave.Product accessing
category
^category
category: aCategory
category := aCategory
description
^description
description: aDescription
description := aDescription.
name
^name
name: aName
name := aName.
number
^number
number: aNumber
number := aNumber.
number: aNumber category: aCategory name: aName description: aDescription
self number: aNumber.
self category: aCategory.
self name: aName.
self description: aDescription.
VisualWave.Product printing
printOn: aStream
aStream nextPutAll: (number, ';', name).