… | |
… | |
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]; |