mirror of
https://github.com/Cacti/cacti.git
synced 2026-11-08 21:16:17 +09:00
Ian Berry
eb59dd520f
git-svn-id: svn+ssh://repo.cacti.net/var/data/svnroot/cacti/trunk/cacti@2 860744bd-22fc-0310-8c96-e9fe5004b5ca
13 lines
189 B
Perl
13 lines
189 B
Perl
#!/usr/bin/perl
|
|
|
|
if ($ARGV[0] eq "") {
|
|
$inbound = `w | wc -l`;
|
|
$inbound =~ s/ +//;
|
|
$inbound = $inbound - 2;
|
|
}else{
|
|
$inbound = `w | grep -c $ARGV[0]`;
|
|
}
|
|
|
|
chomp $inbound;
|
|
print $inbound;
|