Advanced Search

Return to Snippet

Revision: 58063
at June 22, 2012 21:52 by Maximus1983
Initial Code 
#
#The Perl file that takes the screenshot
#

#!/usr/bin/perl

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("http://www.google.com", "http://www.example.com/GrabzItHandler.pl");

#
#This GrabzItHandler file handles the GrabzIt callback
#

#!/usr/bin/perl

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

ENDOFTEXT
exit(0);
Initial URL 
http://grabz.it/api/perl/
Initial Description 
Capture Web Screenshots easily with the [GrabzIt Perl API](http://grabz.it/api/perl/)

You will need the free [GrabzIt Code Library](http://grabz.it/api/perl/download.aspx) to get started.
Initial Title 
Capture Screenshots in Perl
Initial Tags 
perl
Initial Language 
Perl