#!/usr/bin/perl
#
# Jon Anhold <jon@snoopy.net>
#
# This code is licensed under the GNU General Public License
#
# License text may be found at: http://www.gnu.org/copyleft/gpl.html
#

@res = `/usr/bin/ftpcount`;
$time = time();

foreach $res (@res) {
	if ($res =~ /(\d+)\susers/) { $users = $1 } else { next }
}

$uptime = `uptime`;

$uptime =~ /up (.*?),/;
$up = $1;

print "$users\n";
print "$users\n";
print "$up\n";
print "ftp.host.net\n";