view release on metacpan or  search on metacpan

lib/MYDan/Agent/KeyUpdate.pm  view on Meta::CPAN

    while(1)
    {
        $this->update();
        sleep $interval;
    }

    return 0;
}

sub update
{
    my $this = shift;

    print "update ...\n";

    my ( $url, $auth ) = @$this{qw( url auth )};
    return unless my $key = uaget( $url );

    my ( %d, %dd, $ddd ); 
    for( split /\n/, $key )

lib/MYDan/Bootstrap/ProcUpdate.pm  view on Meta::CPAN

    while(1)
    {
        $this->update();
        sleep $interval;
    }

    return 0;
}

sub update
{
    my $this = shift;

    print "update ...\n";

    my ( $url, $exec ) = @$this{qw( url exec )};
    return unless my $key = uaget( $url );

    my ( %d, %dd, $ddd ); 
    for( split /\n/, $key )

lib/MYDan/Util/FileUpdate.pm  view on Meta::CPAN

    while(1)
    {
        $this->update();
        sleep $interval;
    }

    return 0;
}

sub update
{
    my $this = shift;

    print "update ...\n";

    my ( $url, $output ) = @$this{qw( url output )};
    return unless my $c = uaget( $url );

    my $TEMP = File::Temp->new();
    print $TEMP $c;