drag and drop file upload

[raks_diamond]

Hi Guys, I am new to cgi programming.I am given a task to implement the drag and drop file upload using blueimp jquery plugin.Now i am stuck on hook method.when i am dropping file on div flow goes to upload.cgi but hook method is not getting called as message i have put in hook method is not getting printed in log file.and size is being shown as 0kb. Same upload.cgi is used in the simple file upload from different pages of the project and i am getting log message for it and file is also getting uploaded. I have tried a lot but could not find the issue.CGI code is as follows:-

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);
  }
}
sub main()
{
  readProperties();
  $logFile = "/home/manish/files/temp1.log";
  unlink $logFile;
  &logMsg("Main Method");
  eval { mkpath($infoPath) };
  if ($@)
  {
    &logMsg("Could not create $infoPath: $@");
    $errorCode = "BAD_INFO_PATH";
  }
  &processForm();
  $ctSessionId = $paramMap{"ctSessionId"};
  $uploadId = $paramMap{"uploadId"};
  if (not (defined $uploadId))
  {
    $uploadId = $ctSessionId;
  }

  

  if ($ctSessionId ne "0000")
  {
      &validateSession();
  }
  &logMsg("before hook :: $ctSessionId :: $uploadId");
  $cgi = new CGI(\&hook,"ctfile_upload");
 

  $failureURL = $cgi->param('failureURL');
  $successURL = $cgi->param('successURL');
  my $queryParams = $ENV{'QUERY_STRING'};
  $successURL = "${successURL}\?${queryParams}";
  $failureURL = "${failureURL}\?${queryParams}";

  my $action = $cgi->param('action');
  if (defined $errorCode)
  {
  }
  elsif ($action eq "cancel")
  {
    $errorCode="CANCELLED";
  }
  elsif ($action eq "overwrite")
  {
    $errorCode="OVERWRITE";
  }
  elsif ($action eq "back")
  {
    $errorCode = "BACK";
  }
  else
  {
    my $receiveError = $cgi->cgi_error;
    if ($receiveError)
    {
      &logMsg("Error receiving:$receiveError");
      $errorCode = "NOT_RECEIVED";
    }
  }

  if (-e "$tombstonePath/$uploadId")
  {
      $errorCode = "CANCELLED";
  }

  if (defined $errorCode)
  {
      my @cgiParams = $cgi->param;
      foreach my $cgiParam (@cgiParams)
      {
      my @paramValues = $cgi->param($cgiParam);
      foreach my $paramValue (@paramValues)
      {
          &addField($cgiParam, $paramValue);
      }
      }
  }
  else
  {
      &logPct(99);
      &copyFiles();
      &logPct(100);
  }

  if (defined $errorCode)
  {
    &logMsg("Error code = $errorCode");
    &reportFailure();
  }
  elsif (defined $recoverableErrorCode)
  {
    $errorCode = $recoverableErrorCode;
    &logMsg("Error code = $errorCode");
    &reportFailure();
  }
  else
  {
    &reportSuccess();
  }
}

Please help. Thanks, Rakesh

[Anonymous Monk]

If that is your hook.cgi code, it doesn't do anything ; it compiles sub hook and exits the program without calling it (actually as posted it won't even compile)

or if you're trying to use jQuery::File::Upload, then you're not copy/pasting well enough, so click jQuery::File::Upload and read and copy/paste better :)

See also Mojolicious::Lite +and jQuery +AJAX + Mojo::Template

And a copy-pasta for you:)

Also, there are checklists for that , Basic debugging checklist , brian's Guide to Solving Any Perl Problem, CGI Help Guide , Troubleshooting Perl CGI scripts

Yes, work through these checklists, when you find a problem on the list, use a solution from the list, when you find a problem not on the list (rare), post the error message and problem description here

brian's Guide to Solving Any Perl Problem, CGI Help Guide , Troubleshooting Perl CGI scripts

So examine your server configuration and compare to https://httpd.apache.org/docs/2.2/howto/public_html.html#cgi / Apache Tutorial: Dynamic Content with CGI

learn about the internet,Web Programming: For Beginners, to get an overall picture of how the internet works, how tcp/ip, sockets, html, ajax, all fit together.

[raks_diamond]

Can you please explain how to use jQuery::File::Upload as i just have started in perl.I have already looked in to the jQuery::File::Upload but not able to use it properly.i have install it then used basic implementation(1'st example given on the web page of perl module) but still not get success. It would be helpful if you can help. Thanks, Rakesh

[Anonymous Monk]

Can you please explain how to use jQuery::File::Upload ?

Sorry, no, statements like still not get success make me think I can't help you

If its not doing what you want, explain how, explain how you're running what you're running, what is happening that is wrong, post any relevant errors/warnings/log message... troubleshooting, only you can troubleshoot your own mystery, and I already posted several links to get you up to speed

More generic advice :) On debugging, verify everything, talk to teddybear ... checklists and more

[Laurent_R]

This is cross posted on the Perl Guru forum. http://perlguru.com/gforum.cgi?post=76326;sb=post_latest_reply;so=ASC;forum_view=forum_view_collapsed;;page=unread#unread