[ViewVC] Annotation of: cvs/deliantra/Deliantra/bin/cfshell

#!/opt/bin/perl

BEGIN { $ENV{PERL_RL} = "gnu" } use Term::ReadLine; # this suxx
use AnyEvent;
use Storable;
use YAML;

@ARGV == 5 or die "Usage: $0 host port login password dm-pass\n";

use base Crossfire::Protocol::Base;

my $login = AnyEvent->condvar;
my $quit = AnyEvent->condvar;
my $rl = new Term::ReadLine "cfshell";

sub logged_in {
   my ($self) = @_;

   $login->broadcast;

   $self->send_command ("dmhide $ARGV[4]");
   print "\nlogged in.\n";
}

sub fatal {
   $rl->crlf;
   $rl->deprep_terminal;
   print "$_[0]\n";
   exit 1;
}

sub eof {
   my ($self) = @_;

   fatal "server closed connection.";
}

sub query {
   my ($self, $flags, $prompt) = @_;
   fatal "unexpected prompt: $prompt";
}

sub drawinfo {
   my ($self, $flags, $text) = @_;

   $rl->crlf;
   print "$text\n";
   $rl->forced_update_display;
}

my $cf = new main
   host => $ARGV[0],
   port => $ARGV[1] || 13327,
   user => $ARGV[2],
   pass => $ARGV[3],
   mapw => 1,
   maph => 1;

$login->wait;

my $w = AnyEvent->io (fh => $rl->IN, poll => 'r', cb => sub { $rl->callback_read_char });

$rl->callback_handler_install ("$ARGV[0]> ", sub {
   $rl->add_history ($_[0]);
   $cf->send_ext_req (perl_eval => code => $_[0], sub {
      my ($msg) = @_;

      $rl->crlf;

      my ($status, $result) = split / /, $data, 2;
      if (exists $msg->{error}) {
         print "$msg->{error}\n";
      } else {
         print Dump Storable::thaw $msg->{result};
      }

      $rl->forced_update_display;
   });
});

$quit->wait;
$rl->callback_handler_remove;

Revision:	1.4
Committed:	Thu Aug 3 10:51:27 2006 UTC (17 years, 10 months ago) by root
Branch:	MAIN
CVS Tags:	rel-0_92, rel-0_91, rel-0_96, rel-0_97, rel-0_98, rel-0_99, rel-1_11, rel-1_13, rel-1_12, rel-2_2, rel-2_0, rel-2_1, rel-1_1, rel-1_0, rel-0_9
Changes since 1.3:	+5 -7 lines
Log Message:	* empty log message *
#	User	Rev	Content
1	root	1.1	#!/opt/bin/perl
2
3	root	1.3	BEGIN { $ENV{PERL_RL} = "gnu" } use Term::ReadLine; # this suxx
4	root	1.1	use AnyEvent;
5			use Storable;
6			use YAML;
7
8			@ARGV == 5 or die "Usage: $0 host port login password dm-pass\n";
9
10			use base Crossfire::Protocol::Base;
11
12	root	1.2	my $login = AnyEvent->condvar;
13	root	1.3	my $quit = AnyEvent->condvar;
14			my $rl = new Term::ReadLine "cfshell";
15	root	1.1
16			sub logged_in {
17			my ($self) = @_;
18
19	root	1.2	$login->broadcast;
20
21	root	1.1	$self->send_command ("dmhide $ARGV[4]");
22			print "\nlogged in.\n";
23			}
24
25	root	1.2	sub fatal {
26	root	1.3	$rl->crlf;
27			$rl->deprep_terminal;
28			print "$_[0]\n";
29	root	1.2	exit 1;
30			}
31
32	root	1.1	sub eof {
33			my ($self) = @_;
34
35	root	1.2	fatal "server closed connection.";
36			}
37
38			sub query {
39			my ($self, $flags, $prompt) = @_;
40			fatal "unexpected prompt: $prompt";
41			}
42
43			sub drawinfo {
44			my ($self, $flags, $text) = @_;
45
46	root	1.3	$rl->crlf;
47			print "$text\n";
48			$rl->forced_update_display;
49	root	1.1	}
50
51			my $cf = new main
52			host => $ARGV[0],
53			port => $ARGV[1] \|\| 13327,
54			user => $ARGV[2],
55			pass => $ARGV[3],
56			mapw => 1,
57			maph => 1;
58
59	root	1.3	$login->wait;
60	root	1.2
61	root	1.3	my $w = AnyEvent->io (fh => $rl->IN, poll => 'r', cb => sub { $rl->callback_read_char });
62	root	1.2
63	root	1.3	$rl->callback_handler_install ("$ARGV[0]> ", sub {
64			$rl->add_history ($_[0]);
65	root	1.4	$cf->send_ext_req (perl_eval => code => $_[0], sub {
66			my ($msg) = @_;
67	root	1.1
68	root	1.3	$rl->crlf;
69	root	1.1
70			my ($status, $result) = split / /, $data, 2;
71	root	1.4	if (exists $msg->{error}) {
72			print "$msg->{error}\n";
73	root	1.1	} else {
74	root	1.4	print Dump Storable::thaw $msg->{result};
75	root	1.1	}
76	root	1.3
77			$rl->forced_update_display;
78	root	1.1	});
79	root	1.3	});
80
81			$quit->wait;
82			$rl->callback_handler_remove;
83	root	1.1