PheMail-Server
view release on metacpan or search on metacpan
if($_ eq 'who') {
do_log(0,ResolveHost($self->{server}->{'peeraddr'})." Requesting who-list");
print "clients=|";
foreach my $client (keys %peers) {
print $client.",";
}
print "|:FOO:\r\n";
next;
}
if($_ eq 'username') {
print "username=|".exor(getpwuid($<))."|:FOO:\r\n";
next;
}
if($_ eq 'load') {
open(LOAD,"uptime|") or print "Couldn't open uptime: $!\r\n";
while(<LOAD>) {
if (/^$/) { next; }
print "load=|".exor($1)."|:FOO:\r\n" if /load\s*averages?:\s(.+)$/;
}
close(LOAD);
next;
( run in 0.336 second using v1.01-cache-2.11-cpan-8d75d55dd25 )