#!/usr/bin/perl

use strict;

my $sleep = 5; # Sleep time between iterations.
my $url = "http://www.worldcommunitygrid.org";  # BOINC project URL.

# Replace with your crunchers' hostnames or IP addresses.
my @hosts = ("localhost", "foo.example.com", "10.10.10.10");

for(;;) {
        foreach my $host (@hosts) {
                my $count = 0;
                open XFERS, "boinccmd --host $host --get_file_transfers|";
                my $name = undef; my $dir = undef; my $active = undef;
                while (<XFERS>) {
                        ($name) = (m/name: (\S+)$/o) if($name eq undef);
                        ($dir) = (m/direction: (\S+)$/o) if($dir eq undef);
                        ($active) = (m/xfer active: (\S+)$/o) if($active eq undef);
                        # We have a transfer if we get the name, status, and direction.
                        if($name ne undef && $active ne undef && $dir ne undef) {
                                # Assume it's stuck if it isn't active.
                                if($active eq "no") {
                                        $count++;
                                        system "boinccmd --host $host --file_transfer $url $name retry";
                                }
                                $name = undef; $dir = undef; $active = undef;
                        }
                }
                close XFERS;
                print localtime . " $host: $count stuck transfers retried\n" if $count;
        }
        sleep $sleep;
}