Class: WebDemoShopSessions (in Demos)

• Inheritance
• Description
• Class protocol
  • defaults
  • image specs
  • queries-service
• Instance protocol
  • accessing
  • initialization
  • misc
  • misc-html
  • queries-service
  • serving
  • settings persistency
• Private classes
• Examples

Inheritance:

   Object
   |
   +--HTTPService
      |
      +--HTTPSelectorService
         |
         +--Demos::WebDemoShopSessions

Package:

stx:goodies/webServer

Category:

Net-Communication-HTTP-Services-Demo-WebApplications

Version:

rev: 1.11 date: 2023/08/02 14:16:25

user: stefan

file: Demos__WebDemoShopSessions.st directory: goodies/webServer

module: stx stc-classLibrary: webServer

Description:

This is a copy of Claus's WebDemoShop. Instead of using cookies directly it uses
HTTPSession to store state.

Only two methods were changed:
    #customerFromRequest:aRequest
    #enterShop:aRequest



[access with:]
    http:<host>:<port>/Shop

copyright
COPYRIGHT (c) 2003 by eXept Software AG
             All Rights Reserved

This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
inclusion of the above copyright notice.   This software may not
be provided or otherwise made available to, or used by, any
other person.  No title to or ownership of the software is
hereby transferred.

Class protocol:

 canChangeReplyPresenter

 defaultAllowRobots

 linkName

return the default linkName path (with slash)

 addToCartImage

 addToCartInImage

 cartImage

 cartInImage

 inImage

 removeFromCartImage

 removeFromCartInImage

 shopHomeImage

 shopHomeInImage

 settingsApplicationClass

a SettingsApplication class - or nil (used in the settings dialog if non-nil)

Instance protocol:

 shopID

return the value of the instance variable 'shopID' (automatically generated)

 shopID: something

set the value of the instance variable 'shopID' (automatically generated)

 addRequiredForeignServicesTo: anHTTPServer

I need a file service for the bitmaps and icons

 id

self new id

 initStyle

pageParameters at:#bodyColor put:'"#f6feff"'.

 initWarehouse

 initialize

 cookieName

 customerFromRequest: aRequest

 shopBodyEndFor: aRequest

 shopBodyStart: aString for: aRequest

Write a body with a headline

 shopFooterIn: aRequest

aRequest nextPutLine:'<CENTER>';

 shopHeaderIn: aRequest

 shopNavigationFor: aRequest

 shopPageParameters

 shopReply: aString for: aRequest

 allowedMessages

 defaultMessage

 addItem: aRequest

 customer: customer reentersShop: aRequest

 enterShop: aRequest

 noCookies: aRequest

 orderItem: aRequest

 orderItemSubmit: aRequest

already processed - repost

 reenterShop: aRequest

 showItems: aRequest

 settingSelectors

(comment from inherited method)
answer the selectors that are used to configure a service - i.e. those which are
saved in the webServer-settings file.

Private classes:

    Article
    Customer
    Order
    Warehouse

Examples:

|aServer|

aServer := HTTPServer serverOnPort:8081.
self registerServiceOn:aServer.