Return to Snippet

Revision: 58063
at June 22, 2012 21:52 by Maximus1983

Initial Code
#The Perl file that takes the screenshot


use GrabzItClient;

#Create the GrabzItClient class
#Replace "APPLICATION KEY", "APPLICATION SECRET" with the values from your account!
$grabzIt = new GrabzItClient("APPLICATION KEY", "APPLICATION SECRET");
#Take the picture the method will return the unique identifier assigned to this task
$grabzIt->TakePicture("", "");

#This GrabzItHandler file handles the GrabzIt callback


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

$cgi = new CGI;

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

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

$grabzIt = new GrabzItClient("APPLICATION KEY", "APPLICATION SECRET");
$result = $grabzIt->GetPicture($id);

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

print <<ENDOFTEXT;
HTTP/1.0 200 OK


Initial URL

Initial Description
Capture Web Screenshots easily with the [GrabzIt Perl API](

You will need the free [GrabzIt Code Library]( to get started.

Initial Title
Capture Screenshots in Perl

Initial Tags

Initial Language