Icy Phoenix

     
 

Home » Forum » phpBB Mods And Styles » Archived phpBB Topics (Styles, Mods, Support)

The time now is Thu 04 Sep, 2025 23:20 • All times are UTC + 1 Hour [DST enabled]
View previous topic Recent Topics Enable KB mode Download Topic Printable Version Email to a Friend View next topic

FAP SUPPORT - Cannot Upload Pics


This forum is locked: you cannot post, reply or edit topics.  This topic is locked: you cannot edit posts or make replies.  		Page 1 of 1
 
 
Offline william_hunter Male
 
avatar
Joined: July 2007
Posts: 2

 
 
Reply with quote Download Post 
Post FAP SUPPORT - Cannot Upload Pics 
 
Hi, new user, first post  

I am having a problem with the FAP version 1.4.1 (yes, I know there is a newer version, but I didn't when I modded my forum and I don't want to upgrade just yet). I try uploading a pic with nuffload and I get this:

Quote:

#!/usr/bin/perl -W

# Author : Nuffmon 2005
# h**p://***.nuffmon.oftheweek.de
# Version 1.4.2
# Last Update 19/11/2005
#
# The Initial Developer of the Original Code is Raditha Dissanayake.
# Portions created by Raditha are Copyright (C) 2003
# Raditha Dissanayake. All Rights Reserved.


use CGI;
use CGI::Carp qw(fatalsToBrowser);

my $qstring = "";

if (length ($ENV{'QUERY_STRING'}) > 0){
      $buffer = $ENV{'QUERY_STRING'};
      @pairs = split(/&/, $buffer);
      foreach $pair (@pairs){
           ($name, $value) = split(/=/, $pair);
           $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex(>            $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; <))/eg;
           $$name = $value;
           $qstring .= "$name=$value&";
      }
 }
$psid =~ s/[^a-zA-Z0-9]//g;

$post_data_file = "tmp/" . $psid . "_postdata";
$monitor_file = "tmp/" . $psid . "_flength";
$qstring_file = "tmp/" . $psid . "_qstring";

$len = $ENV{'CONTENT_LENGTH'};
$bRead=0;
$|=1;

# Check for max upload size, set to whatever you want
if($len > 32000000)
{
  close (STDIN);
  print "Content-type: text/htmlnn";
  print "<br>The maximum upload size has been exceeded<br>n";
  exit;
}

# Send content-length to monitor file
if (-e "$monitor_file") {
  unlink("$monitor_file");
}
open (MF,">", "$monitor_file") or die "can't open monitor file";
print MF $len;
close (MF);
sleep(1);

# read and store the raw post data on a temporary file so that we can
# pass it though to a CGI instance later on.
if (-e "$post_data_file") {
  unlink("$post_data_file");
}
open(TMP,">","$post_data_file") or &bye_bye ("can't open temp file");
my $i=0;
$ofh = select(TMP); $| = 1; select ($ofh);
while (read (STDIN ,$LINE, 4096) && $bRead < $len )
{
  $bRead += length $LINE;
  $i++;
  print TMP $LINE;
}
close (TMP);

#
# We don't want to decode the post data ourselves. That's like
# reinventing the wheel. If we handle the post data with the perl
# CGI module that means the PHP script does not get access to the
# files, but there is a way around this.
#
# We can ask the CGI module to save the files, then we can pass
# these filenames to the PHP script. In other words instead of
# giving the raw post data (which contains the 'bodies' of the
# files), we just send a list of file names.
#

open(STDIN,"$post_data_file") or die "can't open temp file";
my $cg = new CGI();
my %vars = $cg->Vars;
my $j = 0;

while(($key,$value) = each %vars)
{
  $file_upload = $cg->param($key);
  if(defined $value && $value ne '')
  {
    my $fh = $cg->upload($key);
    if(defined $fh)
    {
      $tmp_filename = "tmp/$psid"."_actualdata"."$j";
      open(TMP,">","$tmp_filename") or &bye_bye ("can't open temp file");
      while(<$fh>) {
        print TMP $_;
      }
      close(TMP);
      $fsize =(-s $fh);
      $fh =~ s/([^a-zA-Z0-9_-.])/uc sprintf("%%%02x",ord(>       $fh =~ s/([^a-zA-Z0-9_-.])/uc sprintf("%%%02x",ord($1))/eg; <))/eg;
      $tmp_filename =~ s/([^a-zA-Z0-9_-.])/uc sprintf("%%%02x",ord(>       $tmp_filename =~ s/([^a-zA-Z0-9_-.])/uc sprintf("%%%02x",ord($1))/eg; <))/eg;
      $qstring .= "file[name][$j]=$fh&file[size][$j]=$fsize&";
      $qstring .= "file[tmp_name][$j]=$tmp_filename&";
      $qstring .= "file[field][$j]=$key&";
      $j++;
    }
    else
    {
      $value =~ s/([^a-zA-Z0-9_-.])/uc sprintf("%%%02x",ord(>       $value =~ s/([^a-zA-Z0-9_-.])/uc sprintf("%%%02x",ord($1))/eg; <))/eg;
      $qstring .= "$key=$value&" ;
    }
  }
}

# Write query string to file.
if (-e "$qstring_file") {
  unlink("$qstring_file");
}
open (QSTR,">", "$qstring_file") or die "can't open output file";
print QSTR $qstring;
close (QSTR);

# Tidy up after ourselves.
unlink("$monitor_file");
unlink("$post_data_file");

# OK lets get back to album upload.
my $url= $redirect . "?psid=$psid";
print "Location: $urlnn";


Each and every time I try to upload.  I have no idea what's going on. Anyone?
 



 
#1  Fri 20 Jul, 2007 15:30
william_hunterSend private message  
Back to topPage bottom
Sponsors
Icy Phoenix is an open source project, you can show your appreciation and support future development by donating to the project.

Support us
 
Offline Artie Male
VIP
avatar
Joined: January 2007
Posts: 833
Location: usa.png Lone Star State
 
 
Reply with quote Download Post 
Post Re: Cannot Upload Pics 
 
Maybe possible that your server's path to Perl is different from that called for by this line

Code: [Download] [Hide] [Select]
#!/usr/bin/perl -W


Is there a certain reason you need to use Nuffload instead of the standard upload.


FYI: FAP version 1.4.1 is the latest release for standard phpBB
 



 
#2  Sat 21 Jul, 2007 00:57
ArtieSend private message  
Back to topPage bottom
Offline william_hunter Male
 
avatar
Joined: July 2007
Posts: 2

 
 
Reply with quote Download Post 
Post Re: Cannot Upload Pics 
 
No, no real reason to use nuffload, I just thought I would try it to see if that would work. I get an error message like this when I don't use nuffload:

Spoiler: [ Show ]


Obviously in debug mode.

Before, I was getting an error message that said something like No Picture Selected For Upload, but that did not happen the last time I tried. I got a blank screen and no redirect. So I enabled debug mode. It looks to me like there is a permissions issue, yes?
 



 
Edited by KugeLSichA, Sun 22 Jul, 2007 12:17: added spoiler tag because of long qoute text
#3  Sat 21 Jul, 2007 03:41
william_hunterSend private message  
Back to topPage bottom
This forum is locked: you cannot post, reply or edit topics.  This topic is locked: you cannot edit posts or make replies.  Page 1 of 1
 


Display posts from previous:    

HideWas this topic useful?

Link this topic
URL
BBCode
HTML

Home » Forum » phpBB Mods And Styles » Archived phpBB Topics (Styles, Mods, Support)

The time now is Thu 04 Sep, 2025 23:20 • All times are UTC + 1 Hour [DST enabled]
View previous topic Recent Topics Enable KB mode Download Topic Printable Version Email to a Friend View next topic




 
Permissions List
You cannot post new topics
You cannot reply to topics
You cannot edit your posts
You cannot delete your posts
You cannot vote in polls
You cannot attach files
You can download files
You cannot post calendar events

  

 
 Powered by Icy Phoenix based on phpBB
Lo-Fi Version - Privacy Policy - Cookie Policy
Generation Time: 0.1674s (PHP: 11% SQL: 89%)
SQL queries: 11 - Debug Off - GZIP Enabled
Design by Luca Libralato 
  cron