Posted By

Maximus1983 on 06/22/12

Tagged

perl

Versions (?)

Last Edited at 06/22/12 09:52pm

Statistics

Viewed 792 times

Favorited by 0 user(s)

Related snippets

Capture Screenshots in Perl

/ Published in: Perl

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.

Highlighted TextExpand

#
#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);

URL: http://grabz.it/api/perl/

Report this snippet Tweet