I have this simple code:
use Fcntl qw(:DEFAULT :flock);
my $cgi = CGI->new(\&_hook, $data);
my ($filename, $buffer, $bytes_read, $data) = @_;
if (not $hook_called)
print "Read $bytes_read bytes of filename\n";
$hook_called += $bytes_read;
and post this simple form to it:
<FORM action="/cgi-bin/test.cgi" method="post" enctype="multipart/form
<input value="1154632892005" name="unique" type="hidden">
<INPUT TYPE="FILE" NAME="file">
<INPUT type="submit" value="Send"> <INPUT type="reset">
but, I get NO output.
The hook callback doesn't seem to be getting called at all. What am I doing wrong?