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[12]) - 4)) eq "\.jpg")) {
         open (THUMBNAIL, ">".$Root."/records/classifieds/thumbnail/".$Data[2]."/".$Data[10]."\.jpg");
         binmode(THUMBNAIL);
         while (read($Data[12], $fBuffer, 1024)) {print THUMBNAIL $fBuffer}
         close (THUMBNAIL);
         goto RecieveDone;
         }
      copy($Root."/records/classifieds/fullsize/".$Data[2]."/".$Data[10]."\.jpg", $Root."/records/classifieds/thumbnail/".$Data[2]."/".$Data[10]."\.jpg");
      }
RecieveDone:
   $Data[11] = $Data[12] = "";
   @Data = sub::clearcarry(0,@Data);
   @Data = sub::pushcommand("preview",@Data);
   goto AllDone;
   }