perl - ファイルアップロードでアップロードフックを呼び出す際の問題

Question

ドラッグアンドドロップでファイルのアップロードを試みています。このUI側では、blueimpファイルアップロードプラグインを使用し、サーバー側では、単純な参照とファイルのアップロードに使用しているのと同じupload.cgiを使用しています。直面している問題は私のCGIフックメソッドのメインメソッドが呼び出されていません:-

$cgi = CGI->new(\&hook, "file_upload");

ここでは、制御はフック メソッドでは行われません。

sub hook
{
  &logMsg("In Hook1");
  my ($name, $buffer, $bytesRead, $data) = @_;
  &logMsg("In Hook");
  &logMsg("name=$name,bytesRead=$bytesRead");
  if (defined $lastSeenName)
  {
    if (($name ne $lastSeenName) || ($bytesRead < $lastSeenTotal))
    {
      $subTotal += $lastSeenTotal;
    }
  }
  else
  {
    $uploadSize = $ENV{'CONTENT_LENGTH'};
    &logPct(0);
  }

  $lastSeenName = $name;
  $lastSeenTotal = $bytesRead;
  $fileSizeMap{$name} = $bytesRead;
  $totalBytes = $subTotal + $bytesRead;

  if ($uploadSize > 0)
  {
    my $curPct = int((100 * $totalBytes)/$uploadSize);
    $curPct = 98 if ($curPct > 98);
    &logPct($curPct);
  }
}

古いスタイルのブラウズおよびアップロード ファイル フック メソッドを使用しているときに、フック メソッドが呼び出されます。

ありがとう、マニッシュ