| … | |
… | |
| 445 | |
445 | |
| 446 | my ($host, $port) = split /:/, $PROFILE->{host}; |
446 | my ($host, $port) = split /:/, $PROFILE->{host}; |
| 447 | |
447 | |
| 448 | $MAP = new CFPlus::Map; |
448 | $MAP = new CFPlus::Map; |
| 449 | |
449 | |
|
|
450 | warn "connecting...\n";#d# |
| 450 | $CONN = eval { |
451 | $CONN = eval { |
| 451 | new CFPlus::Protocol |
452 | new CFPlus::Protocol |
| 452 | host => $host, |
453 | host => $host, |
| 453 | port => $port || 13327, |
454 | port => $port || 13327, |
| 454 | user => $PROFILE->{user}, |
455 | user => $PROFILE->{user}, |
| … | |
… | |
| 479 | or return; |
480 | or return; |
| 480 | |
481 | |
| 481 | $chunk->play; |
482 | $chunk->play; |
| 482 | }, |
483 | }, |
| 483 | }; |
484 | }; |
|
|
485 | warn "connected<$CONN>\n";#d# |
| 484 | |
486 | |
| 485 | if ($CONN) { |
487 | if ($CONN) { |
| 486 | CFPlus::lowdelay fileno $CONN->{fh}; |
488 | CFPlus::lowdelay fileno $CONN->{fh}; |
| 487 | |
489 | |
| 488 | status "login successful"; |
490 | status "login successful"; |
