#!/usr/bin/perl

# version
open(VER,'/proc/version');
@kk = <VER>;
chop($version = $kk[0]);
close(VER);
#chop $version;
$version =~ s/ \(.*//g;
$version =~ s/ version//;

# memory and swap
open(MS,'/proc/meminfo');
@stream = <MS>;
@kk = grep(/MemTotal/,@stream);
chop($memory = $kk[0]);
@kk = grep(/SwapTotal/,@stream);
chop($swap = $kk[0]);
close(MS);
$memory =~ s/.*?\s+//;
$swap =~ s/.*?\s+//;

#cpuinfo
open(CPU,'/proc/cpuinfo');
foreach(<CPU>){
     chop;
     ($kk,$mak) = split(/\s+: /);
     $CPU{$kk} = $mak;
}
close(CPU);
$bogomips = $CPU{'bogomips'};
$cpu = $CPU{'cpu family'} ? $CPU{'cpu family'} : $CPU{'cpu'};
$cpumodel = $CPU{'model name'} ? $CPU{'model name'}: $CPU{'model'};
$cpuvendor = $CPU{'vendor_id'};
$cpucache = $CPU{'cache size'} if $CPU{'cache size'};

# uptime
chop($kk = `uptime`);
$uptime = $kk; $uptime =~ s/.*up //; $uptime =~ s/, \d+ users.*//;
$loadavg = $kk ; $loadavg =~ s/.*average: //;

print <<RESULTS;
version: * $version *
memory: * $memory *
swap: * $swap *
cpu: * $cpu *
model: * $cpumodel *
vendor: * $cpuvendor *
bogomips: * $bogomips *
cache: * $cpucache *
uptime: * $uptime *
loadavg: * $loadavg *
RESULTS