#!/usr/bin/perl -w

my %users;

open (PIPE, "ftpcount|");
$users{remote} = 0;

while(<PIPE>) {
	next unless /class \D+(\d+)\s+users/;
	if (/class local\D+(\d+)\s+users/) {
		$users{local} = $1;
	}
	$users{remote} += $1;
}
close PIPE;


$users{local} ||= 0;
$users{remote} -= $users{local};

my $h = `hostname`;
chomp $h;
print <<EOF;
$users{local}
$users{remote}

$h
EOF

1;

