Pasted

# Script made by SanitariuM (when he was sane) on undernet
# Distributed and slightly modified by xplo
# You know the drill..
###########################################################
 
alias db {
  var %aliases.total, %aliases.lines, %aliases.size
  var %remote.total, %remote.lines, %remote.size
  var %x = 1, %y
  %aliases.total = $alias(0)
  while (%x <= %aliases.total) {
    %y = $alias(%x)
    inc %aliases.lines $lines(%y)
    inc %aliases.size $file(%y).size
    inc %x 1
  }
  %x = 1
  %remote.total = $script(0)
  while (%x <= %remote.total) {
    %y = $script(%x)
    inc %remote.lines $lines(%y)
    inc %remote.size $file(%y).size
    inc %x 1
  } 
  say [Aliases] %aliases.total files, %aliases.lines lines, $bytes(%aliases.size,k) $+ kb 
  say [Remote] %remote.total files, %remote.lines lines, $bytes(%remote.size,k) $+ kb
}