126 |
{ |
{ |
127 |
# uptime |
# uptime |
128 |
my $uptime=time-$::STARTUP_TIME; |
my $uptime=time-$::STARTUP_TIME; |
129 |
my $txt="uptime: $uptime$::CRLF"; |
my $txt="OK$::CRLF"."uptime: $uptime$::CRLF"; |
130 |
|
|
131 |
# channel_count |
# channel_count |
132 |
my $numChannels=Meteor::Channel->numChannels(); |
my $numChannels=Meteor::Channel->numChannels(); |
137 |
$txt.=$key.': '.$::Statistics->{$key}.$::CRLF; |
$txt.=$key.': '.$::Statistics->{$key}.$::CRLF; |
138 |
} |
} |
139 |
|
|
140 |
|
$txt.="--EOT--$::CRLF"; |
141 |
|
|
142 |
$self->write($txt); |
$self->write($txt); |
143 |
} |
} |
144 |
elsif($cmd eq 'QUIT') |
elsif($cmd eq 'QUIT') |