| … | |
… | |
| 73 | sub unused_bandwidth { |
73 | sub unused_bandwidth { |
| 74 | $unused_bytes += $_[0]; |
74 | $unused_bytes += $_[0]; |
| 75 | if ($unused_last < $NOW - 30 && $unused_bytes / ($NOW - $unused_last) > 50000) { |
75 | if ($unused_last < $NOW - 30 && $unused_bytes / ($NOW - $unused_last) > 50000) { |
| 76 | $unused_last = $NOW; |
76 | $unused_last = $NOW; |
| 77 | $unused_bytes = 0; |
77 | $unused_bytes = 0; |
| 78 | $queue_file->force_wake_next; |
78 | $queue_file->force_wake_next |
| 79 | slog 1, "forced filetransfer due to unused bandwidth"; |
79 | and slog 1, "forced filetransfer due to unused bandwidth"; |
| 80 | } |
80 | } |
| 81 | } |
81 | } |
| 82 | |
82 | |
| 83 | sub listen_on { |
83 | sub listen_on { |
| 84 | my $listen = $_[0]; |
84 | my $listen = $_[0]; |
