#!/usr/bin/perl use CGI; use CGI::Carp qw(warningsToBrowser fatalsToBrowser); use File::Path; use Config::IniFiles; use GrabzIt::GrabzItClient; $cgi = new CGI; $message = ''; if ($cgi->request_method() eq 'POST') { if ($cgi->param("delete") == "1") { unlink glob('results/*'); } else { $url = $cgi->param("url"); $format = $cgi->param("format"); my $ConfigFile = 'config.ini'; tie my %ini, 'Config::IniFiles', (-file => $ConfigFile); my %Config = %{$ini{"GrabzIt"}}; $grabzIt = new GrabzItClient($Config{applicationKey}, $Config{applicationSecret}); if ($format eq "pdf") { $grabzIt->SetPDFOptions($url); } else { $grabzIt->SetImageOptions($url); } eval { $grabzIt->Save($Config{handlerUrl}); }; if ($@) { $message = $@; } } } print "Content-type: text/html\n\n"; print <<'HEADER'; GrabzIt Demo

GrabzIt Demo

Enter the URL of the website you want to take a screenshot of. Then resulting screenshot should be saved in the results directory. It may take a few seconds for it to appear! If nothing is happening check the diagnostics panel to see if there is an error.

HEADER if ($cgi->request_method() eq 'POST' && $cgi->param("delete") != "1") { if ($message ne '') { print '

'; print $message; print '

'; } else { print '

Processing screenshot.

'; } } print <<'FOOTER';

Completed Screenshots

FOOTER 1;