| 
					
				 | 
			
			
				@@ -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 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 ! ! 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				  
			 |