ok

#!/usr/local/bin/perl

use CGI;
$q = new CGI;

$file = $q->param('file');

#####

 $up = $q->upload("$file");
     while (<$up>) {
       print;
     }  

exit:
[download]

i have this one , but it aint work, it shows "500 error"

there must be something missing, what??
pics of peolple, "JPG", its for a site About my city, buissnes listing, partys, disco, peolple,

thath kind of stuff

Calilo

Hi again,
try exit; instead exit:
You have to write html headers too
It is also recommended to use strict and warnings.


#!/usr/local/bin/perl -w

use CGI;
use strict;

my $q = new CGI;

print $q->header;
print $q->start_html("Example");
my $file = $q->param('file');
my $up = $q->upload("$file");
     while (<$up>) {
       print;
     }  

exit;
[download]

Last, but not less important, check the permissions. Maybe you shouldn't be able to write.
Check the error 500 with Netscape. It brings useful information about the error.
It is probably syntax error

Hope this help
Hopes

 # Read a text file and print it out
    while (<$filename>) {
       print;
    }

    # Copy a binary file to somewhere safe
    open (OUTFILE,">>/usr/local/web/users/feedback");
    while ($bytesread=read($filename,$buffer,1024)) {
       print OUTFILE $buffer;
    }
[download]

but im not sure this is all i need, i seem to small for me,

i need it for uploaing pics, actually.

so?? help available?

Hmmm, what kind of pics?

# Read a text file and print it out
    while (<$file>) {
       print;
    
    # Copy a binary file to somewhere safe
    open (OUTFILE,">>/usr/local/web/users/feedback");
    while ($bytesread=read($file,$buffer,1024)) {
       print OUTFILE $buffer;
    }  }
[download]

Calilo

You don't need the first part:

while (<$file>) {
       print;
[download]

Just the second part:


# Copy a binary file to somewhere safe
open (OUTFILE,">>/usr/local/web/users/feedback");
while ($bytesread=read($file,$buffer,1024)) {
     print OUTFILE $buffer;
}
close(OUTFILE); #Always make sure to close the file or it won't work.
[download]

Also make sure that the directory you write to has write permissions by the webserver and finally make sure the HTML form you have to do the uploading has type="multipart/form-data" in the form tag.

Hope that helps. UPDATE: That should be enctype="multipart/form-data"

#!/usr/bin/perl -w

use CGI;
use strict;

my $q = new CGI;

print $q->header;
print $q->start_html("File Uploaded");
my $file = $q->param('file');
my $up = $q->upload("$file");
     while (<$up>) {
       print;
     }  
my $buffer;
my $bytesread;


# Copy a binary file to somewhere safe
open (OUTFILE,">>/var/www/html/fotos/misc/try1.txt");
while ($bytesread=read($file,$buffer,1024)) {
     print OUTFILE $buffer;
}
close(OUTFILE); #Always make sure to close the file or it won't work.



exit;
[download]

what may it be???