Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- sub urlloop {
- my $data;
- my $delay = Mojo::IOLoop->delay(sub {
- # my ($delay, @titles) = @_;
- # Dwarn @titles;
- });
- print "Starting\n";
- my $ua = Mojo::UserAgent->new;
- for my $url ('http://cloud.mrono.net/cgi-bin/test.cgi') {
- $ua->get($url => $delay->begin);
- }
- my (@sites) = $delay->wait;
- foreach my $tx (@sites) {
- #Manage the data to address the individual sites
- my $return = from_json($tx->{'res'}{'content'}{'asset'}{'content'});
- # my $return2 = from_json($return->{'content'});
- $data->{$return->{'response'}{'result'}{'call_queue'}{'account_id'}} = $return;
- got_all_urls($data);
- }
- }
- sub got_all_urls {
- my ($data) = @_;
- for my $tx ( keys %$data ) {
- Dwarn $data->{$tx};
- }
- Mojo::IOLoop->timer($timeout => sub { Mojo::IOLoop->stop });
- Mojo::IOLoop->start;
- urlloop();
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement