| 1 | #!/opt/bin/perl |
1 | #!/opt/bin/perl |
| 2 | |
2 | |
| 3 | BEGIN { $ENV{PERL_RL} = "gnu" } use Term::ReadLine; # this suxx |
3 | BEGIN { $ENV{PERL_RL} = "gnu" } use Term::ReadLine; # this suxx |
|
|
4 | |
| 4 | use AnyEvent; |
5 | use AnyEvent; |
| 5 | use Storable; |
6 | use Storable; |
| 6 | use YAML; |
7 | use YAML; |
| 7 | |
8 | |
| 8 | @ARGV == 5 or die "Usage: $0 host port login password dm-pass\n"; |
9 | @ARGV == 5 or die "Usage: $0 host port login password dm-pass\n"; |
| 9 | |
10 | |
| 10 | use base Crossfire::Protocol::Base; |
11 | use base Deliantra::Protocol::Base; |
| 11 | |
12 | |
| 12 | my $login = AnyEvent->condvar; |
13 | my $login = AnyEvent->condvar; |
| 13 | my $quit = AnyEvent->condvar; |
14 | my $quit = AnyEvent->condvar; |
| 14 | my $rl = new Term::ReadLine "cfshell"; |
15 | my $rl = new Term::ReadLine "cfshell"; |
| 15 | |
16 | |
