1
  
2
  
3
  
4
  
5
  
6
  
7
  
8
  
9
  
10
  
11
  
12
  
13
  
14
  
15
  
16
  
17
  
18
  
19
  
20
  
21
  
22
  
 
void run(object env) 
{ 
  write("\n   Configuring port number for external access to the internal\n" 
        "   MySQL database (leave empty for no external access).\n\n"); 
 
  Stdio.File infd = Stdio.stdin, outfd = Stdio.stdout; 
  Stdio.Terminfo.Termcap term = Stdio.Terminfo.getTerm(); 
  Tools.Install.Readline rl = Tools.Install.Readline(); 
  string in = rl->edit(env->get("MYSQL_TCP_PORT")||"", "MySQL port number: "); 
  write("\n"); 
  sscanf(in, "%d", int port); 
  if(port) 
  { 
    if((string)port != env->get("MYSQL_TCP_PORT")) 
      env->set("MYSQL_TCP_PORT", port); 
  } 
  else 
    env->remove("MYSQL_TCP_PORT"); 
}