#!/bin/bash

(
  links -receive-timeout 1 -unrestartable-receive-timeout 1 -codepage ISO-8859-1 -dump 'http://ilmatieteenlaitos.fi/saa/Helsinki?parameter=4&map=weathernow&station=2998' |grep C| grep -m 1 tila | awk '{print $2}' | perl -e 'while(<>){ s/\n//; print; }'
  echo -n 'C '
  echo $((`ps ax | wc -l`-3))p
  uptime | sed 's/.\+average: //g; s/[\.0-9]\+//2; s/[\.0-9]\+//2; s/,//g; s/ //g'
  free -m | head -n 2 | tail -n 1 | sed 's/[^ ]* *\([^ ]*\) *\([^ ]*\).*/\2\/\1/;s/G//g' | perl -e 'while(<>){ s/\n//; print; }'
  echo -n 'M '
  uptime | sed "s/.* up \(.*\):\?.*, \+[0-9]\+ user.*/\1/; s/days\?,/d/; s/[0-9]\+ min,\?//; s/ //g; s/:.*//"
  netstat | grep -c irc | perl -e 'while(<>){ s/\n//; print; }'
  echo -n 'irc '
  df -BG | grep $(mount | grep "on / " | cut -d " " -f 1) | sed 's/[^ ]* *\([^ ]*\) *\([^ ]*\).*/\2\/\1/;s/G//g;s/\.0//g' | perl -e 'while(<>){ s/\n//; print; }'
  echo -n 'G '
  who | cut -d " " -f 1 | sort | uniq | sed ':a;N;$!ba;s/\n/, /g; s/arza/(arza)/' | perl -e 'while(<>){ s/\n//; print; }'
) | perl -e '
while(<STDIN>){
$k .= $_;
}

$k=~s/\n/ /g;
$k=~s/  +/ /g;
$k=~s/^ +//g;

print "$k\n";'