| … | |
… | |
| 2286 | $BUTTONBAR->add (new DC::UI::Button |
2286 | $BUTTONBAR->add (new DC::UI::Button |
| 2287 | text => "Save Config", |
2287 | text => "Save Config", |
| 2288 | tooltip => "Saves the options chosen in the client setting, server settings and the window layout to be restored on later runs.", |
2288 | tooltip => "Saves the options chosen in the client setting, server settings and the window layout to be restored on later runs.", |
| 2289 | on_activate => sub { |
2289 | on_activate => sub { |
| 2290 | $::CFG->{layout} = DC::UI::get_layout; |
2290 | $::CFG->{layout} = DC::UI::get_layout; |
| 2291 | DC::write_cfg "$Deliantra::VARDIR/client.cf"; |
2291 | DC::write_cfg; |
| 2292 | status "Configuration Saved"; |
2292 | status "Configuration Saved"; |
| 2293 | 0 |
2293 | 0 |
| 2294 | }, |
2294 | }, |
| 2295 | ); |
2295 | ); |
| 2296 | |
2296 | |
| … | |
… | |
| 2421 | EV::unloop; |
2421 | EV::unloop; |
| 2422 | #d# TODO calling exit here hangs the process in some futex |
2422 | #d# TODO calling exit here hangs the process in some futex |
| 2423 | }; |
2423 | }; |
| 2424 | |
2424 | |
| 2425 | { |
2425 | { |
|
|
2426 | DC::Pod::load_docwiki DC::find_rcfile "docwiki.pst"; |
|
|
2427 | |
| 2426 | if (-e "$Deliantra::VARDIR/client.cf") { |
2428 | if (-e "$Deliantra::VARDIR/client.cf") { |
| 2427 | DC::read_cfg "$Deliantra::VARDIR/client.cf"; |
2429 | DC::read_cfg "$Deliantra::VARDIR/client.cf"; |
| 2428 | } else { |
2430 | } else { |
| 2429 | #TODO: compatibility cruft |
2431 | #TODO: compatibility cruft |
| 2430 | DC::read_cfg "$Deliantra::OLDDIR/cfplusrc"; |
2432 | DC::read_cfg "$Deliantra::OLDDIR/cfplusrc"; |
| 2431 | print STDERR "INFO: used old configuration file\n"; |
2433 | print STDERR "INFO: used old configuration file\n"; |
| 2432 | } |
2434 | } |
| 2433 | |
2435 | |
| 2434 | DC::DB::Server::run; |
2436 | DC::DB::Server::run; |
|
|
2437 | |
|
|
2438 | if ($CFG->{db_schema} < 1) { |
|
|
2439 | warn "INFO: upgrading database schema from 0 to 1, mapcache and tilecache will be lost\n"; |
|
|
2440 | DC::DB::nuke_db; |
|
|
2441 | $CFG->{db_schema} = 1; |
|
|
2442 | DC::write_cfg; |
|
|
2443 | } |
|
|
2444 | |
|
|
2445 | DC::DB::open_db; |
| 2435 | |
2446 | |
| 2436 | DC::UI::set_layout ($::CFG->{layout}); |
2447 | DC::UI::set_layout ($::CFG->{layout}); |
| 2437 | |
2448 | |
| 2438 | my %DEF_CFG = ( |
2449 | my %DEF_CFG = ( |
| 2439 | sdl_mode => 0, |
2450 | sdl_mode => 0, |
