traf
trafup
trafstat
trafupstat
prior
priorup
flow
flowup
mail
tempmail
tempmail ""
warning ("Zaslan seznam stahnutych a odeslanych dat uzivatelu.")
sendemail
sendemail "yes"
# pocet uzivatelu site
sum
sum 102
/queue tree {
i from=1 to=$sum do={
traf [get
prior [get
flow [get
trafup [get
priorup [get
flowup [get
# prepocet na MB
trafstat ($traf/1024/1024)
trafupstat ($trafup/1024/1024)
($sendemail) do={
mail ("Uzivatel " . "$flow" . " stahnul " . "$trafstat" . " MB")
tempmail ($tempmail . $mail . "
")
}
($sendemail) do={
mail ("Uzivatel " . "$flowup" . " odeslal " . "$trafupstat" . " MB")
tempmail ($tempmail . $mail . "
")
}
}
}
($tempmail="") do={
sendemail "yes"
}
($sendemail) do {
/tool e-mail send to=userdata@xxx.org subject=("Seznam stahnutych a odeslanych dat uzivatelu.") \
body=("Datum : " . . "
Cas : " . . "
zacatek dat --------------------
" . $tempmail . "
-------------------- konec dat")
}
Tohle ale predpoklada urcity styl pojmenovani uzivatelu pomoci toho p2p net a naopak, jak je to ve skriptu. Je to pripravene na shaping s burst rezimem,pro zmenu priorit, ktery se tady jiz uvadel.
