| … | |
… | |
| 738 | my ($host, $port) = split /:/, $PROFILE->{host}; |
738 | my ($host, $port) = split /:/, $PROFILE->{host}; |
| 739 | |
739 | |
| 740 | $MAP = new DC::Map; |
740 | $MAP = new DC::Map; |
| 741 | |
741 | |
| 742 | $CONN = eval { |
742 | $CONN = eval { |
|
|
743 | local $SIG{__DIE__}; |
|
|
744 | |
| 743 | new DC::Protocol |
745 | new DC::Protocol |
| 744 | host => $host, |
746 | host => $host, |
| 745 | port => $port || 13327, |
747 | port => $port || 13327, |
| 746 | user => $PROFILE->{user}, |
748 | user => $PROFILE->{user}, |
| 747 | pass => $PROFILE->{password}, |
749 | pass => $PROFILE->{password}, |
| … | |
… | |
| 2482 | pickup => 0, |
2484 | pickup => 0, |
| 2483 | inv_sort => "mtime", |
2485 | inv_sort => "mtime", |
| 2484 | default => "profile", # default profile |
2486 | default => "profile", # default profile |
| 2485 | show_tips => 1, |
2487 | show_tips => 1, |
| 2486 | logview_max_par => 1000, |
2488 | logview_max_par => 1000, |
|
|
2489 | shift_fire_stop => 0, |
| 2487 | ); |
2490 | ); |
| 2488 | |
2491 | |
| 2489 | while (my ($k, $v) = each %DEF_CFG) { |
2492 | while (my ($k, $v) = each %DEF_CFG) { |
| 2490 | $CFG->{$k} = $v unless exists $CFG->{$k}; |
2493 | $CFG->{$k} = $v unless exists $CFG->{$k}; |
| 2491 | } |
2494 | } |
