CGI/Perl Guide | Learning Center | Forums | Advertise | Login
Site Search: in

  Main Index MAIN
INDEX
Search Posts SEARCH
POSTS
Who's Online WHO'S
ONLINE
Log in LOG
IN

Home: Perl Programming Help: Beginner:
Distorting Images

 



wickedxter
User

Mar 29, 2001, 2:54 PM

Post #1 of 1 (378 views)
Distorting Images Can't Post

This is the oddest thing.. when uploading images the images are all distorted and dont know why..

$filename = $file;
$filename =~ s/^.*[\\\/]([^\\\/]+)$/$1/g;
&Headder;
if(-e "$UploadDir/$filename"){ &error("The File exist already!"); }
open(NEWFILE,">$UploadDir/$filename") || &error("Can't make file: $filename");
while(read($file,$buffer,1024)){

print NEWFILE $buffer;
}
close(NEWFILE) || &error("Can't close $filename");


 
 


Search for (options) Powered by Gossamer Forum v.1.2.0

Web Applications & Managed Hosting Powered by Gossamer Threads
Visit our Mailing List Archives