All pastes #281721 Raw Edit

Someone

public text v1 · immutable
#281721 ·published 2006-12-17 00:19 UTC
rendered paste body
;du.mrc 1.1 - With record statistic.
;You will need the program DU-Meter installed for this to work
;Alot of bugs in this script also, you have been warned ;)

alias du {
  if (!%du.file) {
    if ($exists(C:\Documents and Settings\All Users\Programdata\Hagel Technologies\DU Meter\log.csv)) { set %du.file C:\Documents and Settings\All Users\Application Data\Hagel Technologies\DU Meter\log.csv }
    if (!$exists(C:\Documents and Settings\All Users\Programdata\Hagel Technologies\DU Meter\log.csv)) { echo 4 -s Couldn't find your log.csv file, Make sure you have DU-Meter installed. | halt }
  }
  var %i = 2, %lines = $lines(%du.file), %du.upload = 0, %du.download = 0
  while (%i <= %lines) {
    inc %du.upload $gettok($read(%du.file,%i),3,44)
    inc %du.download $gettok($read(%du.file,%i),2,44)
    set %du.downyest $gettok($read(%du.file,%lines),2,44)
    set %du.upyest $gettok($read(%du.file,%lines),3,44)
    inc %i
  }
  return $conv(%du.download) $conv(%du.upload) $conv($calc(%du.upload + %du.download)) $gettok($read(%du.file,1),1,44) $conv(%du.downyest) $conv(%du.upyest)
}
alias conv {
  if ( $1 isnum ) {
    if ( $1 < 1024 ) return $replace($1,.,$chr(44)) Byte
    elseif ( $1 < 1048576 ) return $replace($round($replace($bytes($1,k),$chr(44),),$iif($2 != $null,$2,0)),.,$chr(44)) $+ KB
    elseif ( $1 < 1073741824 ) return $replace($round($replace($bytes($1,m),$chr(44),),$iif($2 != $null,$2,0)),.,$chr(44)) $+ MB
    elseif ( $1 < 1099511627776 ) return $replace($round($replace($bytes($1,g),$chr(44),),$iif($2 != $null,$2,1)),.,$chr(44)) $+ GB
    else return $replace($round($replace($bytes($1,t),$chr(44),),$iif($2 != $null,$2,2)),.,$chr(44)) $+ TB
  }
}
alias rec {
  if (!%du.file) {
    if ($exists(C:\Documents and Settings\All Users\Programdata\Hagel Technologies\DU Meter\log.csv)) { set %du.file C:\Documents and Settings\All Users\Application Data\Hagel Technologies\DU Meter\log.csv }
    if (!$exists(C:\Documents and Settings\All Users\Programdata\Hagel Technologies\DU Meter\log.csv)) { echo 4 -s Couldn't find your log.csv file, Make sure you have DU-Meter installed. | halt }
  }
  var %i = 3, %lines = $lines(%du.file), %du.recordup = $gettok($read(%du.file,2),3,44), %du.recorddown = $gettok($read(%du.file,2),2,44)
  while (%i <= %lines) {
    if (%du.recordup < $gettok($read(%du.file,%i),3,44)) { set %du.recordup $gettok($read(%du.file,%i),3,44) | set %du.recordupdate $gettok($read(%du.file,%i),1,44) }
    if (%du.recorddown < $gettok($read(%du.file,%i),2,44)) { set %du.recorddown $gettok($read(%du.file,%i),2,44) | set %du.recorddowndate $gettok($read(%du.file,%i),1,44) }
    inc %i
  }
  return $conv(%du.recordup) %du.recordupdate $conv(%du.recorddown) %du.recorddowndate
  unset %du.recordupdate %du.recordup %du.recorddown %du.recorddowndate
}