Select Code to Download

    while ( $self{'stat'} ne 'done' ) {

...
        notify( 'miner', $t, retrieve_data(@p) );
        select undef, undef, undef, $cnf{'period'};
    }

        elsif ( $class eq 'miner' ) {
            my ( $t, $d ) = split /\s+/, $payload, 2;
...
                $self{'miner'}{$t}{'data'} = $d;
            }
        }

    # periodically check for ephemeris
    while ( $self{'stat'} ne 'done' ) {
...
        $self{'miner'}{$t}{'data'} = retrieve_data(@p);
        select undef, undef, undef, $cnf{'period'};
    }

        # shortcut
        # handle all the pending messages first
        next MAIN_LOOP if $queue->pending();
    }

#!/usr/bin/perl
# created by joe.zheng at Wed Apr  1 10:23:14 2009
...
        $c->send_error( 503, 'method' . $r->method() . 'not supported'
+ );
    }
}