|
@@ -573,6 +573,14 @@ mimeTypeFor: aString
|
|
|
!FileServer class methodsFor: 'initialization'!
|
|
|
|
|
|
main
|
|
|
+ | arguments portOption port|
|
|
|
+ arguments := process argv.
|
|
|
+ portOption := arguments at: 3 ifAbsent: [nil].
|
|
|
+ port := arguments at: 4 ifAbsent: [nil].
|
|
|
+
|
|
|
+ ('-p' = portOption and: [port notNil]) ifTrue: [
|
|
|
+ FileServer port: port.
|
|
|
+ ].
|
|
|
^self new startOn: self port
|
|
|
! !
|
|
|
|