view release on metacpan or  search on metacpan

lib/IPCamera/Reolink.pm  view on Meta::CPAN

    my $t4 = Time::HiRes::time() if($DEBUG > 2);
    print STDERR scalar(localtime()) . ": debug: IPCamera::Reolink::_sendCameraCommand($camera_command): " . $t4 . ": call responseContent()\n" if($DEBUG > 2);
    my $response_content = $camera_rest_client->responseContent(); # JSON

    if($camera_command eq 'Snap'){
        # responseContent is not JSON but the actual JPG image data
        #
        # Content-Type: image/jpeg
        # Content-Length: 171648
        # Connection: keep-alive
        # X-Frame-Options: SAMEORIGIN
        # X-XSS-Protection: 1; mode=block
        # X-Content-Type-Options: nosniff
        # .............................(JPG data)
        print STDERR scalar(localtime()) . ": debug: IPCamera::Reolink::_sendCameraCommand($camera_command): " . $t4 . ": jpg responseContent() length " . length($response_content) . "\n" if($DEBUG > 2);
        my $t6 = Time::HiRes::time() if($DEBUG > 1);
        print STDERR scalar(localtime()) . ": debug: IPCamera::Reolink::_sendCameraCommand($camera_command): " . ($t2 - $t1) . " POST " . ($t3 - $t2) . " responseCode " . ($t4 - $t3) . " responseContent " . ($t6 - $t4) . " TOTAL " . ($t6 - $t1) . "\n...
        if($DEBUG > 1){
            if($DEBUG > 3){
                my @headers = $camera_rest_client->responseHeaders();