<?php
// script uses pngtppnm (part of netpbm package)
// script  uses gocr 0.44
if (!eregi("^http:\/\/www\.gov\.pe\.ca\/keycodes-tmp\/([0-9]{5,12})\.png$",$img,$regs)) die ('oops') ;
$img file_get_contents ('http://www.gov.pe.ca/keycodes-tmp/' $regs[1].'.png');
$ds = array(=> array("pipe""r"), => array("pipe""w") );
$proc proc_open("pngtopnm |gocr -"$ds$pipes);
if (!
is_resource($proc)) die ('oops');
fwrite($pipes[0],$img);
fclose ($pipes[0]);
$str =  stream_get_contents($pipes[1]);
fclose ($pipes[1]);
if (!
$str) die ('oops');
echo 
trim($str) ;
exit;
?>