total_accounts =

[ortiga]

#!/usr/bin/perl

# 4/18/2002

$ENV{'ENV'} = "";
$ENV{'BLOCKSIZE'} = "K";
$ENV{'PATH'} = "/bin:/sbin:/usr/sbin:/usr/bin";

print "Content-type: text/plain\n\n";


$hostname = `/bin/hostname`;
$hostname =~ s/\.\.com//;
chomp($hostname);


$total_accounts = `/usr/bin/wc /etc/passwd`;
$total_accounts =~ s/[\s]+/ /g;
$total_accounts =~ s/^ //g;
($count) = split(/ /,$total_accounts);
print "passwd: ", $count,"\n";


$test = `/sbin/sysctl kern.ostype`; $test =~ m/(.+)/;
print "sys;$hostname: $1\n";
$test = `/sbin/sysctl kern.osrelease`; $test =~ m/(.+)/;
print "sys;$hostname: $1\n";
$test = `/sbin/sysctl hw.machine`; $test =~ m/(.+)/;
print "sys;$hostname: $1\n";
$test = `/sbin/sysctl hw.model`; $test =~ m/(.+)/;
print "sys;$hostname: $1\n";
$test = `/sbin/sysctl hw.ncpu`; $test =~ m/(.+)/;
print "sys;$hostname: $1\n";
$test = `/sbin/sysctl hw.physmem`; $test =~ m/(.+)/;
print "sys;$hostname: $1\n";
$test = `/sbin/sysctl hw.usermem`; $test =~ m/(.+)/;
print "sys;$hostname: $1\n";
$test = `/sbin/sysctl hw.machine_arch`; $test =~ m/(.+)/;
print "sys;$hostname: $1\n";
$test = `/sbin/sysctl kern.boottime`; $test =~ m/(.+)/;
print "sys;$hostname: $1\n";
$test = `/sbin/sysctl kern.hostname`; $test =~ m/(.+)/;
print "sys;$hostname: $1\n";
$test = `/sbin/sysctl vm.loadavg`; $test =~ m/(.+)/;
print "sys;$hostname: $1\n";
$test = `/sbin/sysctl kern.osreldate`; $test =~ m/(.+)/;
print "sys;$hostname: $1\n";
$test = `/usr/bin/grep CPU /var/run/dmesg.boot`; $test =~ m/(.+)/;
print "sys;$hostname: $1\n";

@stats = `/bin/df`;


foreach $line (@stats) {
if ($line =~ m/^\/dev\/([^\s]+)[\s]+([^\s]+)[\s]+([^\s]+)[\s]+([^\s]+)[\s]+([^\s]+)%[\s]+([^\s]+)[\s]+/) {
printf "drive;$hostname: %-6s, %7s, %8s, %8s, %3s, %s\n", $6, mb($2), mb($3), mb($4), $5, $1; }
}

sub mb {
my $kb = shift;
$kb = int($kb / 1024);
return $kb;
}


ممكن أحد يترجم لي؟؟?: ?: ?: