[Click] Help!!! Help!! LinkUnqueue

[Robert Sombrutzki]

Hi María,
The script stops after 10 seconds, since the RatedSource has pushed the 100000 
packets. If you choose a rate of 1000 kbps ( LinkUnqueue) and the packetsize 
is 100 byte (800 bit) then the LinkUnqueue is only able to forward around 
12000 pakets in the 10 seconds. Please insert a  additional counter before 
the LinkUnqueue-element. You will see, there are a lot of pakets in the queue 
q1, if the script is finished. The packet aren't lost, the rate is too slow.
Or you have to remove "STOP true" in RatedSource (or use  "STOP false"). 
Instead use Script to stop the script after some time.

Robert

On Donnerstag, 3. September 2009, María Gómez wrote:
> r::RatedSource(DATA \<55 44 50 20  70 61 63 6b  65 74 21 0a  04 00 00 00
>  01 00 00 00   01 00 00 00  00 00 00 00  00 80 04 08  00 80 04 08  53 53 00
> 00
>   53 53 00 00  05 00 00 00  00 10 00 00  01 00 00 00  54 53 00 00
>   54 e3 04 08  54 e3 04 08  d8 01 00 00>, RATE 10000, LIMIT 100000, STOP
> true)  //datos = 72     -> c::Counter
>     -> SetTimestamp        
>     -> DynamicUDPIPEncap(src_addr, 1234, dst_addr, 1234, INTERVAL 10)    
>  //(headerIP 20 + headerUDP 8) -> SetUDPChecksum
>     -> SetIPChecksum    
>     //-> Print("packet")    
>     -> c5::Counter    
>     -> q1::Queue(90000)
>     -> l::LinkUnqueue(0.04, 1000 kbps)
>         -> q2::Queue(90000)
>     -> c6::Counter
>     //-> IPPrint("SOURCE", PAYLOAD hex, ID true, TTL true, LENGTH true)    
>         -> ToDevice($DEV)
>
> Script(TYPE ACTIVE,
>     set tasa $(mul 1000000 $carga),
>     print $tasa,
>     write r.rate $(div $tasa 100),
>     print $(r.rate),
>     write r.active true
> );