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

Comparing deliantra/server/ext/commands.ext (file contents):
Revision 1.80 by root, Sat Oct 16 22:51:51 2010 UTC vs.
Revision 1.81 by root, Wed May 4 07:36:40 2011 UTC

… …
397 my $runtime = sprintf "%.1f", (time - $cf::UPTIME) / 86400; 397 my $runtime = sprintf "%.1f", (time - $cf::UPTIME) / 86400;
398 $ob->send_msg ("c/uptime" => "server started $startup, uptime ${runtime}\d", cf::NDI_REPLY | cf::NDI_CLEAR); 398 $ob->send_msg ("c/uptime" => "server started $startup, uptime ${runtime}\d", cf::NDI_REPLY | cf::NDI_CLEAR);
399}; 399};
400 400
401my %IN_MEMORY = ( 401my %IN_MEMORY = (
402 cf::MAP_ACTIVE => "A",
402 cf::MAP_ACTIVE => "I", 403 cf::MAP_INACTIVE => "I",
403 cf::MAP_SWAPPED => "S", 404 cf::MAP_SWAPPED => "S",
404 cf::MAP_LOADING => "L",
405); 405);
406 406
407cf::register_command maps => sub { 407cf::register_command maps => sub {
408 my ($ob, $arg) = @_; 408 my ($ob, $arg) = @_;
409 409
410 no re 'eval'; $arg = qr<$arg>; 410 no re 'eval'; $arg = qr<$arg>;
411 411
412 my $format = " %2s %1s %3s %5s %.60s\n"; 412 my $format = " %2s %1s %3s %5s %.60s\n";
413 413
414 my $msg = "\n" . sprintf $format, "Pl", "I", "Svd", "Reset", "Name"; 414 my $msg = "\n" . sprintf $format, "Pl", "S", "Svd", "Reset", "Name";
415 415
416 for (sort keys %cf::MAP) { 416 for (sort keys %cf::MAP) {
417 my $map = $cf::MAP{$_} 417 my $map = $cf::MAP{$_}
418 or next; 418 or next;
419 419

Diff Legend

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