ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/server/ext/dm-support.ext
(Generate patch)

Comparing deliantra/server/ext/dm-support.ext (file contents):
Revision 1.16 by root, Wed Nov 14 08:09:46 2007 UTC vs.
Revision 1.24 by root, Fri Oct 23 03:28:11 2009 UTC

… …
29reload_archetypes & 29reload_archetypes &
30ext::help::reload & 30ext::help::reload &
31ext::books::reload & 31ext::books::reload &
32ext::map_tags::reload & 32ext::map_tags::reload &
33ext::map_world::reload & 33ext::map_world::reload &
34print JSON::XS->new->pretty->encode({cf::mallinfo}) 34# ext::map_scheduler::loadall & # debugging only!
35while (EV::TIMEOUT & Coro::EV::timed_io_once \$fh, EV::READ, 1) { Coro::Debug::command "ps" } &
36({cf::mallinfo})
35EOF 37EOF
36 print $fh "\n> "; 38 print $fh "\n> ";
37 39
38 my $iow; $iow = EV::io $fh, EV::READ, sub { 40 my $iow; $iow = EV::io $fh, EV::READ, sub {
39 if (defined (my $cmd = <$fh>)) { 41 if (defined (my $cmd = <$fh>)) {
… …
48 } else { 50 } else {
49 my $sub = sub { 51 my $sub = sub {
50 package cf; 52 package cf;
51 select $fh; 53 select $fh;
52 54
53 # compile first, the execute, as Coro does not support switching in eval string 55 # compile first, then execute, as Coro does not support switching in eval string
54 my $cb = eval "sub { $cmd }"; 56 my $cb = eval "sub { $cmd \n}";
55 57
56 my $t1 = Time::HiRes::time; 58 my $t1 = Time::HiRes::time;
57 my @res = $@ ? () : eval { $cb->() }; 59 my @res = $@ ? () : eval { $cb->() };
58 my $t2 = Time::HiRes::time; 60 my $t2 = Time::HiRes::time;
59 61
… …
87 89
88our $LISTENER; 90our $LISTENER;
89 91
90# now a shell listening on a tcp-port - let the firewall decide access rights 92# now a shell listening on a tcp-port - let the firewall decide access rights
91if ($cf::CFG{perl_shell}) { 93if ($cf::CFG{perl_shell}) {
92 if (my $listen = new IO::Socket::INET LocalAddr => $cf::CFG{perl_shell}, Listen => 1, ReuseAddr => 1) { 94 if (my $listen = new IO::Socket::INET LocalAddr => $cf::CFG{perl_shell}, Listen => 1, ReuseAddr => 1, Blocking => 0) {
93 $LISTENER = EV::io $listen, EV::READ, sub { tcp_serve $listen->accept }; 95 $LISTENER = EV::io $listen, EV::READ, sub { tcp_serve $listen->accept };
94 } 96 }
95} 97}
96 98
97 99

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines