Implementing file upload like CURL

[Anonymous]

My client has some CGI solution to uploading files in your server. Is a perl script who deals with curl clients, sending requests with files to upload.

In Curl manual (http://www.hmug.org/man/1/curl.php), the solutin for upload files is described as using -F clause, "This causes curl to POST data using the Content-Type multipart/form-data according to RFC1867"

I try to use HttpClient and java.net solutions, and I write some code. But I had two problems:
-> In some cases, parameters ('action', 'filename', etc) are not readed from CGI
-> If parameters was loaded OK, the file was not found !



My first code, using HttpClient (based in PostMethod class to do the POST):

public boolean send(String dirDestino, String fileName, String hash)
{
boolean status = false;
int executeMethod;
String fileResp = null;
try {
File fl = new File(fileName);
if(fl.canRead() && fl.isFile()){
PostMethod filePost = new PostMethod(URL_SERVER+URL_TRANSFER);
 
FilePart fp = new FilePart("file", new File(fileName));
Part[] parts = {new StringPart("action", "snd"),
new StringPart("dirname", dirDestino),
new StringPart("filename", new File(fileName).getName()),
new StringPart("md5sum", hash),
fp};
filePost.setRequestEntity( new MultipartRequestEntity(parts, filePost.getParams()) );
HttpClient client = new HttpClient();
        executeMethod = client.executeMethod(filePost);
        InputStream in = filePost.getResponseBodyAsStream();
        if(in != null){
        fileResp = this.writeTempFile(in, "response", new File(TEMP_DIR).getAbsolutePath());
        }
    }
} catch (Exception e) {
System.out.println("HttpTransfer::send:exception "+e.toString());
}
return(false);
}

My next try was to write in an outputstream:

public boolean sendOutStream(String dirDestino, String fileName, String hash)
{
String fileResp = null;
boolean ret=false;
try {
URL url = new URL(URL_SERVER+URL_TRANSFER);
URLConnection connection = url.openConnection();
connection.setDoOutput(true);
OutputStream os = connection.getOutputStream();
FilePart fp = new FilePart("text", new File(fileName));
StringPart sAction= new StringPart("action", "snd");
StringPart sDir= new StringPart("dirname", dirDestino);
StringPart sFile= new StringPart("filename", new File(fileName).getName());
StringPart sMD5= new StringPart("md5sum", hash);
if(os != null){
sAction.send(os);
sDir.send(os);
sFile.send(os);
sMD5.send(os);
fp.send(os);
os.close();
connection.connect();
}

InputStream in = connection.getInputStream(); 
        if(in != null){
        fileResp = this.writeTempFile(in, "response", new File(TEMP_DIR).getAbsolutePath());
        }
    } catch (Exception e) {
System.out.println("HttpTransfer::sendOutStream:exception "+e.toString());
    }
    return(ret);
}

In this two examples, parameters are readed, but not the file.
Because the perl CGI reads the file as standard in (some like "$_"), I don�t know how this solution could be implemented.

Has someone leads with curl or another similar solution (in CGI) to uploading files ?