--- deliantra/server/ext/commands.ext 2007/01/01 16:50:09 1.8 +++ deliantra/server/ext/commands.ext 2007/01/01 17:50:26 1.10 @@ -136,9 +136,9 @@ no re 'eval'; $arg = qr<$arg>; - my $format = "%2s %1s %5s %-60.60s\n"; + my $format = "%2s %1s %3s %5s %-60.60s\n"; - my $msg = sprintf $format, "Pl", "I", "Reset", "Name"; + my $msg = sprintf $format, "Pl", "I", "Svd", "Reset", "Name"; for (sort keys %cf::MAP) { my $map = $cf::MAP{$_} @@ -146,9 +146,13 @@ next unless $map->path =~ $arg; + my $svd = int $cf::RUNTIME - $map->{last_save}; + $svd = "++" if $svd > 99; + $msg .= sprintf $format, (scalar $map->players), $IN_MEMORY{$map->in_memory} || "?", + $svd, (int $map->reset_at - $cf::RUNTIME), $map->{path}->visible_name; }