diff --git a/repository/Brea/BreaMember.class.st b/repository/Brea/BreaMember.class.st
index 51c88e2..636ce26 100644
--- a/repository/Brea/BreaMember.class.st
+++ b/repository/Brea/BreaMember.class.st
@@ -153,6 +153,115 @@ BreaMember >> html [
^ self head, self htmlOutput
]
+{ #category : #public }
+BreaMember >> htmlInput [
+ "I capture data in a HTML Form and use it to create a new BreaMember"
+ ^ '
+
+
+
+
+
+
+
+ Add Member | GIG Network
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Add new member
+
+
+
+ Fill out the form.
+ The fields preceded by [*] are obligatory.
+
+
+
+
+
+
+
+
+
+
+
+'
+]
+
{ #category : #public }
BreaMember >> htmlOutput [
diff --git a/repository/Brea/BreaWebsite.class.st b/repository/Brea/BreaWebsite.class.st
index 317d716..97f4ac0 100644
--- a/repository/Brea/BreaWebsite.class.st
+++ b/repository/Brea/BreaWebsite.class.st
@@ -6,7 +6,8 @@ Class {
#name : #BreaWebsite,
#superclass : #Object,
#instVars : [
- 'fossilRepo'
+ 'fossilRepo',
+ 'server'
],
#category : #Brea
}
@@ -20,3 +21,35 @@ BreaWebsite >> fossilRepo [
BreaWebsite >> fossilRepo: anObject [
fossilRepo := anObject
]
+
+{ #category : #'server handling' }
+BreaWebsite >> routes [
+ "Maybe the first part should be in a separate method."
+ self server
+ serveStatic: '/gig/demo' from: '/opt/gig/';
+ GET: '/gig/members/test' -> [ :req | BreaMember new renderTestUserAsHtml ];
+ GET: '/gig/members/add' -> [ :req | BreaMember new htmlInput ]
+]
+
+{ #category : #accessing }
+BreaWebsite >> server [
+ ^ server ifNil: [ server := Teapot configure: { #port ->8080 } ]
+]
+
+{ #category : #accessing }
+BreaWebsite >> server: anObject [
+ server := anObject
+]
+
+{ #category : #'server handling' }
+BreaWebsite >> start [
+ "I define the routes and start the server"
+ self routes.
+ self server start
+]
+
+{ #category : #'server handling' }
+BreaWebsite >> stop [
+ "I define the routes and start the server"
+ self server class stopAll
+]