WADispatcherEditor

• test:

• renderRowForEntryPoint:named:on:

• dispatcher:

• addEntryPoint
• clearCaches
• configure:
• remove:
• verifyPassword:forUser:

• entryPointClasses

• initialize

• renderContentOn:

• canBeRoot
• initialize

 
	self
		call: (SCTestRunner forCase: rootClass suite)

 
	| rootClass |
	html
		tableRowWith: [html anchorWithUrl: anEntryPoint basePath do: aString]
		with: [html
				anchorWithAction: [self configure: anEntryPoint]
				text: 'configure'.
			html space;
				anchorWithAction: [self remove: anEntryPoint]
				text: 'remove'.
			(anEntryPoint isKindOf: WAApplication)
				ifTrue: [
			rootClass _ anEntryPoint preferenceAt: #rootComponent.
			(rootClass notNil
					and: [rootClass hasTestSuite])
				ifTrue: [html space;
						anchorWithAction: [self test: rootClass]
						text: 'test']]]

	dispatcher _ aDispatcher

	| entryPoint |
	path isEmpty ifTrue: [^ self inform: 'You must enter a path.'].
	entryPoint _ type new.
	dispatcher registerEntryPoint: entryPoint at: path.
	self configure: entryPoint

	WARegistry clearAllHandlers.
	Smalltalk garbageCollect

	anEntryPoint configurationComponent ifNotNilDo: [:c | self call: c]

	dispatcher removeEntryPoint: anEntryPoint

	^ user = 'fooz' and: [pass = 'bar']

	^ WAEntryPoint concreteSubclasses

	dispatcher _ WADispatcher default.
	type _ WAApplication.
	path _ ''.

	html heading: 'Squeak Enterprise Aubergines Server'.
	
	html bold: dispatcher basePath.
	html form: [
		html table: [
			dispatcher entryPoints keysSortedSafely do:
				[:name |
				self
					renderRowForEntryPoint: (dispatcher entryPoints at: name)
					named: name
					on: html].
		]
	].
	html paragraph.
	
	html bold: 'add entry point: '.
	html form: [
		html table: [
			html tableRowWithLabel: 'Path:' column: [html textInputWithValue: '' callback: [:n | path _ n]].
			html tableRowWithLabel: 'Type:' column:
				[html selectFromList: self entryPointClasses selected: type callback: [:c | type _ c] labels: [:ea | ea description].
				html space.
				html submitButtonWithAction: [self addEntryPoint] text: 'Add']
		]
	].

	html anchorWithAction: [self call: (WAConfigurationBrowser new pool: WASystemConfigurationPool default)] text: 'Edit Configurations'.

	html preformatted: SeasidePlatformSupport vmStatisticsReportString.
	html anchorWithAction: [self clearCaches] text: 'Clear Caches'.
	

 
	^ true

	self registerAsAuthenticatedApplication: 'config'