Branch: Tag:

2000-03-27

2000-03-27 04:37:48 by Per Hedbor <ph@opera.com>

Will now abort if there already is a configuration interface present

Rev: server/bin/create_configif.pike:1.12

1:   /* -  * $Id: create_configif.pike,v 1.11 2000/03/22 21:25:32 peter Exp $ +  * $Id: create_configif.pike,v 1.12 2000/03/27 04:37:48 per Exp $    *    * Create an initial configuration interface server.    */
42:    "../configurations");    int admin = has_value(argv, "-a");    +  +  foreach( get_dir( configdir )||({}), string cf ) +  catch +  { +  if( search( Stdio.read_file( configdir+"/"+cf ), +  "'config_filesystem#0'" ) != -1 ) +  { +  werror("There is already a configuration interface present in " +  "this server.\nNo new will be created\n"); +  exit( 0 ); +  } +  };    if(configdir[-1] != '/')    configdir+="/";    if(admin)