1
  
2
  
3
  
4
  
5
  
6
  
7
  
8
  
9
  
10
  
11
  
12
  
13
  
14
  
15
  
16
  
17
  
18
  
19
  
20
  
21
  
22
  
23
  
24
  
25
  
26
  
27
  
28
  
29
  
// This is a roxen protocol module. 
// Copyright © 2001 - 2009, Roxen IS. 
 
#if constant(StartTLSProtocol) 
inherit StartTLSProtocol; 
#else 
inherit Protocol; 
#endif 
 
constant supports_ipless = 0; 
constant name = "ftp"; 
constant prot_name = "ftp"; 
constant requesthandlerfile = "protocols/ftp.pike"; 
constant default_port = 21; 
 
// Some statistics 
int sessions; 
int ftp_users; 
int ftp_users_now; 
 
mapping(string:int) ftp_sessions = ([]); 
 
void create( mixed ... args ) 
{ 
  roxen.set_up_ftp_variables( this_object() ); 
  ::create( @args ); 
}