| … | |
… | |
| 136 | maph => $mapsize, |
136 | maph => $mapsize, |
| 137 | ; |
137 | ; |
| 138 | }; |
138 | }; |
| 139 | |
139 | |
| 140 | if ($CONN) { |
140 | if ($CONN) { |
|
|
141 | CFClient::lowdelay fileno $CONN->{fh}; |
|
|
142 | |
| 141 | $LOGIN_BUTTON->set_text ("Logout"); |
143 | $LOGIN_BUTTON->set_text ("Logout"); |
| 142 | |
|
|
| 143 | status "login successful"; |
144 | status "login successful"; |
| 144 | |
145 | |
| 145 | CFClient::lowdelay fileno $CONN->{fh}; |
146 | $BUTTONBAR->{children}[1]->emit ("activate") |
|
|
147 | if $BUTTONBAR->{children}[1]->{state}; |
|
|
148 | |
| 146 | } else { |
149 | } else { |
| 147 | status "unable to connect"; |
150 | status "unable to connect"; |
| 148 | stop_game(); |
151 | stop_game(); |
| 149 | } |
152 | } |
| 150 | } |
153 | } |
| … | |
… | |
| 154 | |
157 | |
| 155 | status "connection closed"; |
158 | status "connection closed"; |
| 156 | $LOGIN_BUTTON->set_text ("Login"); |
159 | $LOGIN_BUTTON->set_text ("Login"); |
| 157 | $CONN->destroy; |
160 | $CONN->destroy; |
| 158 | $CONN = 0; # false, does not autovivify |
161 | $CONN = 0; # false, does not autovivify |
|
|
162 | |
|
|
163 | $BUTTONBAR->{children}[1]->emit ("activate") |
|
|
164 | unless $BUTTONBAR->{children}[1]->{state}; |
| 159 | |
165 | |
| 160 | undef $MAPCACHE; |
166 | undef $MAPCACHE; |
| 161 | undef $MAP; |
167 | undef $MAP; |
| 162 | } |
168 | } |
| 163 | |
169 | |
| … | |
… | |
| 1411 | |
1417 | |
| 1412 | my $cmd = $1; |
1418 | my $cmd = $1; |
| 1413 | my @args = split /\|/, $2; |
1419 | my @args = split /\|/, $2; |
| 1414 | @args = (".*") unless @args; |
1420 | @args = (".*") unless @args; |
| 1415 | |
1421 | |
| 1416 | my $text = CFClient::pod_to_pango $head2; |
1422 | my $text = CFClient::pod_to_pango $head2->content; |
| 1417 | |
1423 | |
| 1418 | for my $arg (@args) { |
1424 | for my $arg (@args) { |
| 1419 | $arg = $arg eq ".*" ? "" : " $arg"; |
1425 | $arg = $arg eq ".*" ? "" : " $arg"; |
| 1420 | |
1426 | |
| 1421 | $MAPWIDGET->add_command ("$cmd$arg", $text); |
1427 | $MAPWIDGET->add_command ("$cmd$arg", $text); |
