Описанный здесь обработчик обрабатывает обратные вызовы из веб-службы GrabzIt. URL этого обработчика передается GrabzIt в callBackURL
параметр Save метод.
Однако этот метод будет работать, только если обработчик доступен через IntERNET.
Следующие параметры передаются в обработчик как параметры GET.
Если вы хотите заблокировать весь доступ к обработчику, кроме GrabzIt, используйте это техника безопасности.
В этом примере показано, как можно реализовать обработчик GrabzIt Perl. Он фиксирует шесть параметров, передаваемых ему из службы GrabzIt, включая уникальный идентификатор снимка экрана, который передается в службу GrabzIt. GetResult метод.
Затем этот метод возвращает скриншот, который saveг в каталоге результатов. Однако если null
значение возвращается из GetResult Этот метод указывает на то, что произошла ошибка.
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; }