… | |
… | |
370 | cf::register_command uptime => sub { |
370 | cf::register_command uptime => sub { |
371 | my ($ob, $arg) = @_; |
371 | my ($ob, $arg) = @_; |
372 | |
372 | |
373 | my $startup = POSIX::strftime "%Y-%m-%d %H:%M:%S %Z", localtime $cf::UPTIME; |
373 | my $startup = POSIX::strftime "%Y-%m-%d %H:%M:%S %Z", localtime $cf::UPTIME; |
374 | my $runtime = sprintf "%.1f", (time - $cf::UPTIME) / 86400; |
374 | my $runtime = sprintf "%.1f", (time - $cf::UPTIME) / 86400; |
375 | $ob->send_msg ("c/uptime" => "server started $startup, uptime ${runtime}\d", cf::NDI_REPLY); |
375 | $ob->send_msg ("c/uptime" => "server started $startup, uptime ${runtime}\d", cf::NDI_REPLY | cf::NDI_CLEAR); |
376 | }; |
376 | }; |
377 | |
377 | |
378 | my %IN_MEMORY = ( |
378 | my %IN_MEMORY = ( |
379 | cf::MAP_IN_MEMORY => "I", |
379 | cf::MAP_IN_MEMORY => "I", |
380 | cf::MAP_SWAPPED => "S", |
380 | cf::MAP_SWAPPED => "S", |