| … | |
… | |
| 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# |
|
|
| 451 | $CONN = eval { |
450 | $CONN = eval { |
| 452 | new CFPlus::Protocol |
451 | new CFPlus::Protocol |
| 453 | host => $host, |
452 | host => $host, |
| 454 | port => $port || 13327, |
453 | port => $port || 13327, |
| 455 | user => $PROFILE->{user}, |
454 | user => $PROFILE->{user}, |
| … | |
… | |
| 480 | or return; |
479 | or return; |
| 481 | |
480 | |
| 482 | $chunk->play; |
481 | $chunk->play; |
| 483 | }, |
482 | }, |
| 484 | }; |
483 | }; |
| 485 | warn "connected<$CONN,$@>\n";#d# |
|
|
| 486 | |
484 | |
| 487 | if ($CONN) { |
485 | if ($CONN) { |
| 488 | CFPlus::lowdelay fileno $CONN->{fh}; |
486 | CFPlus::lowdelay fileno $CONN->{fh}; |
| 489 | |
487 | |
| 490 | status "login successful"; |
488 | status "login successful"; |
