Home •  Forum •  FAQ •  Search •  Recent Topics •  Memberlist •  Register •  Log in 
Forum » phpBB Mods And Styles » Archived phpBB Topics (Styles, Mods, Support)

FAP SUPPORT - Cannot Upload Pics

This topic is locked: you cannot edit posts or make replies.

 

william_hunter
Quote
Posts: 2
Fri 20 Jul, 2007 15:30
Subject: FAP SUPPORT - Cannot Upload Pics
Hi, new user, first post :shock:

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?

Profile PM
Artie
Quote
Posts: 833 Location: Lone Star State
Sat 21 Jul, 2007 00:57
Subject: 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

Profile PM  
william_hunter
Quote
Posts: 2
Sat 21 Jul, 2007 03:41
Subject: 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?

Profile PM
This topic is locked: you cannot edit posts or make replies.
 

Page 1 of 1


  
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

   

This is a "Lo-Fi" version of our main content. To view the full version with more information, formatting and images, please click here.

Powered by Icy Phoenix based on phpBB
Generation Time: 1.8138s (PHP: 3% SQL: 97%)
SQL queries: 11 - Debug Off - GZIP Enabled