i wrote the script... apache web server, files are being created in the windows(98) directory that the script resides in... heres part of the code...
if ($Data[3] eq "recieve") {
$Data[11] = $fHandle->upload($Label[11]);
$Data[12] = $fHandle->upload($Label[12]);
if ((length($Data[11]) > 4)&&(lc(substr($Data[11],length($Data[11])
+ - 4)) eq "\.jpg")) {
open (FULLSIZE, ">".$Root."/records/classifieds/fullsize/".$Data
+[2]."/".$Data[10]."\.jpg");
binmode(FULLSIZE);
while (read($Data[11], $fBuffer, 1024)) {print FULLSIZE $fBuffer
+}
close (FULLSIZE);
if ((length($Data[12]) > 4)&&(lc(substr($Data[12],length($Data[1
+2]) - 4)) eq "\.jpg")) {
open (THUMBNAIL, ">".$Root."/records/classifieds/thumbnail/".
+$Data[2]."/".$Data[10]."\.jpg");
binmode(THUMBNAIL);
while (read($Data[12], $fBuffer, 1024)) {print THUMBNAIL $fBu
+ffer}
close (THUMBNAIL);
goto RecieveDone;
}
copy($Root."/records/classifieds/fullsize/".$Data[2]."/".$Data[1
+0]."\.jpg", $Root."/records/classifieds/thumbnail/".$Data[2]."/".$Dat
+a[10]."\.jpg");
}
RecieveDone:
$Data[11] = $Data[12] = "";
@Data = sub::clearcarry(0,@Data);
@Data = sub::pushcommand("preview",@Data);
goto AllDone;
}
you mean there's any easier way?
|