http://www.perlmonks.org?node_id=995401


in reply to Thread::Queue and WWW::Curl

My problem is the subroutine with those WWW::Curl:: calls returns at the line that posts the form: my $response = $curl->perform;

Is that a problem description? Because I cannot see where it says something fails, much less what; how; what error mesages/code you get.

the deleteUser subroutine calls another which contains use WWW::Curl::Easy; use WWW::Curl::Form;

That kind of implies that the code that is failing is in the subroutines that you haven't bothered to post. Is that the case?

With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.

RIP Neil Armstrong
network sites:

Replies are listed 'Best First'.
Re^2: Thread::Queue and WWW::Curl
by Anonymous Monk on Sep 24, 2012 at 14:53 UTC

    Thanks for the speedy replies. The 2 missing subroutines are as follows:

    sub deleteUser {
# in: app access token, app id, FB userId to delete
# deletes user using app access token
# out: nothing
  my ($accessToken, $appId, $userId) = (shift, shift, shift);
  my %form = (
    method => 'delete',
    access_token => $accessToken
  );
  my $url = 'https://graph.facebook.com/' . $userId;
  my $post = hitFbNew2('post', $url , \%form);
  return ($post);
}

    [download]
    and
    sub hitFbNew {
  my ($method, $endpoint, $form) = (shift, shift, shift);
  my $curl = WWW::Curl::Easy->new;
  my $curlf = WWW::Curl::Form->new;
  my $response_body;
  for my $key (keys %{$form}){
    $curlf->formadd($key, $form->{$key});
  }
  $curl->setopt(CURLOPT_WRITEDATA, \$response_body);
  $curl->setopt(CURLOPT_URL, $endpoint);
  $curl->setopt(CURLOPT_HTTPPOST, $curlf);
  print "\nHitting FB using the curl libraries...";
  my $response = $curl->perform;
  print "\nresponse was $response";
  my %reply  = (
    content => $response_body,
    responseCode => $curl->getinfo(CURLINFO_HTTP_CODE)
  );
  print "\nreply code is $reply{responseCode} and content is $reply{co
+ntent}";
  return (\%reply);
}

    [download]
    I will look at WWW::Curl::Multi in the meantime.
[reply]
[d/l]
[select]

      You still haven't said what fails? Or how you know something is failing?

      With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
      Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
      "Science is about questioning the status quo. Questioning authority".
      In the absence of evidence, opinion is indistinguishable from prejudice.

      RIP Neil Armstrong
[reply]

        When I run via threads, the following line does not output to my terminal:

        print "\nresponse was $response";

        [download]
        , nor does the print statement after it output; furthermore I don't see the user deleted on the remote server when running via threads (however I do when running that code without threading).

[reply]
[d/l]

In Section Seekers of Perl Wisdom