Outils pour capturer et convertir le Web

Gestionnaire GrabzIt avec Perl

API Perl

Description

Des problèmes pour déboguer votre gestionnaire? Essaie le Outil de test du gestionnaire de rappel.

Le gestionnaire décrit ici traite les rappels à partir du service Web de capture d'écran GrabzIt. L’URL de ce gestionnaire est transmis à GrabzIt dans le répertoire callBackURL paramètre de la Save méthode. Cependant, cette technique ne fonctionnera que si le gestionnaire est accessible via le Internet.

Les paramètres suivants sont transmis au gestionnaire en tant que paramètres GET.

Si vous souhaitez bloquer tous les accès au gestionnaire, à l'exception de GrabzIt, utilisez cette commande. technique de sécurité.

Exemple

N'oubliez pas que ce rappel ne fonctionnera pas si votre application est située sur localhost.

Cet exemple montre comment le gestionnaire GrabzIt Perl peut être implémenté. Cela capture six paramètres qui lui sont transmis par le service GrabzIt, y compris l'identifiant unique de la capture d'écran qui est transmis au GetResult méthode.

Cette méthode renvoie ensuite la capture d'écran, qui est saved dans le répertoire de résultats. Cependant si un null la valeur est renvoyée par le GetResult méthode cela indique qu'une erreur est survenue.

use CGI;
use CGI::Carp qw(warningsToBrowser fatalsToBrowser); 
use File::Spec;
use GrabzIt::GrabzItClient;

# This Perl file handles the GrabzIt callback

print "HTTP/1.0 200 OK";
print "Content-type: text/html\r\n\r\n";

$cgi = new CGI;

$message = $cgi->param("message");
$customId = $cgi->param("customid");
$id = $cgi->param("id");
$filename = $cgi->param("filename");
$format = $cgi->param("format");
$targetError = $cgi->param("targeterror");

# Custom id can be used to store user ids or whatever is needed for the later processing of the
# resulting screenshot

$grabzIt = new GrabzItClient("Sign in to view your Application Key", "Sign in to view your Application Secret")%>");
$result = $grabzIt->GetResult($id);

if ($result)
{
        # Ensure that the application has the correct rights for this directory.
        open FILE, ">".File::Spec->catfile("results",$filename) or die $!; 
        binmode FILE;
        print FILE $result; 
        close FILE;
}