Upload CSV file from .ipl

Hi,

I'm trying to do an upload & parsing of CSV file & data from an .ipl form.

In the form I have < input type="file" name="dealer_code_csv" / > and set the enctype in a javascript like:


document.forms['callout_form'].setAttribute('enctype', 'multipart/form-data', 0);

When the condition meets, my Perl code is:



        use strict;
 my $csv = Text::CSV->new();
 my $cgiCSV = new CGI;

 print $cgiCSV->header();
 my $h = $cgiCSV->upload('dealer_code_csv');

I tried to print out the filename ($h) but it doesn't return me anything. Is my code correct?

At the top most of this .ipl file I'm using $cgi = TeamSite::CGI_lite->new(); only in the condition of a csv upload file, it will use the above code. Is it ok to do this? Could this be the reason why I can't get the file?

Please help. Thanks!

TS Info : Version 6.5 on Solaris

Find more posts tagged with

Comments

Adam Stoller

I'm not sure of the exact source of your problems, but:

jihan

Hi,

The < input type="file" > is getting a file from local machine instead of TS workarea.

Is it do-able? What module can I use?

~~~~

I did a simple test.ipl (not using teamsite stuff) and put it in server. It works. Attach is my test file.

Tried to do the same in the actual file but it can't get the uploaded filename. When I try to do a javascript printout of the input file value, it returns me as "C:\fakepath\file.csv".

Thanks

Adam Stoller

If it works outside of TeamSite, it should work within TeamSite. If not, then there's probably something wrong with the script and you'll have to continue working on debugging it.

jihan

For the actual file I'm working on, the form is submitted through Javascript.

< input type="submit" name="Search" value="Search" onclick="javascript&colon;searchDealerHandler();" / >


function searchDealerHandler(){
  document.callout_form.action = "DP_SearchDealers_2.ipl";
  document.callout_form.method = "POST";
  document.callout_form.enctype = "multipart/form-data";
  document.callout_form.submit();
}

I've also tried with " document.forms['callout_form'].submit(); " but I still can't get the upload file.

Adam Stoller

...


function searchDealerHandler(){
  document.callout_form.action = "DP_SearchDealers_2.ipl";
  document.callout_form.method = "POST";
  document.callout_form.enctype = "multipart/form-data";
  document.callout_form.submit();
}

If DB_Search_Dealers_2.ipl is located in IWHOME/httpd/iw-bin/ - then action should probably be:

"/iw-bin/DP_SearchDealers_2.ipl"

If the script is not located there, then try putting it there and making the above adjustment to your code.

jihan

Hi,

The perl code is already in IWHOME/httpd/iw-bin/, tried to modify to /iw-bin/DP_SearchDealers_2.ipl but still no good.

I tried to put my form tag as below


< form name="callout_form" method="POST" enctype="multipart/form-data" >

and log showed that there's Malformed multipart POST error.


[error] [client 172.16.4.28] malformed header from script. Bad header=Malformed multipart POST: /app/iw-home/httpd/iw-bin/DP_SearchDealers_2.ipl
[Thu Mar 17 11:35:26 2011] DP_SearchDealers_2.ipl: Malformed multipart POST

If I change multipart to "application/x-www-form-urlencoded" there's no error, but my upload function doesn't work.

~~~~~~~

I tried to break down the whole file and found something:

1) When I use $cgi = TeamSite::CGI_lite->new(); $cgi->parse_data(); this will give error when doing upload. In the same file I'm using 2 CGI, 1 is TS::CGI_lite and 2 is normal perl CGI. So for my upload section, I have:


my $query = new CGI; 
my $h = $query->upload('dealer_code_csv');

When I comment out $cgi->parse_data(); everything else in the form doesn't work.

2) When I change upload to use TS::CGI_lite like below


$cgi = TeamSite::CGI_lite->new(); 
$cgi->parse_data(); 
my $h = $cgi->upload('dealer_code_csv');

there's an error that says: "Can't locate object method "upload" via package "TeamSite::CGI_lite" at /app/iw-home/httpd/iw-bin/test5.ipl line 291."

Line 291 is "my $h = $cgi->upload('dealer_code_csv');"

So what other ways should I do now?

Please help!

Thanks

Adam Stoller

It's gotten a bit difficult to follow what you did when / in combination in with what.

I believe the last time I worked on a file upload script I used something like this to assist me in getting the code right (changing things like "/cgi-bin/" to "/iw-bin/", etc.

Try starting over following the instructions in that page and see if you can get it to function, then add whatever else you need around it after that.

jihan

Hi,

Thanks for the reference, but I still can't get the upload file functioning. Looks like the cannot have an enctype="multipart/forms-data" or else it will give error.

Am trying another way of choosing a file. User import csv file into teamsite 1st, and then in the DP_SearchDealers_2.ipl browse button will open up teamsite's workarea folders.

I know this can be done in a datacapture.cfg where we can call a , but can it be done from an .ipl file?

Thanks

Adam Stoller

I've done it with a .ipl (in IWHOME/httpd/iw-bin/) as a callout from a DCT - and I'm pretty sure I used the enctype="multipart/forms-data" - so, I know it can be done. There's probably something else that's wrong with your code, it just takes patience and perseverance to figure out what it is.

jihan

Hi,

So this means a workarea file browse from .ipl can't be done?

Back to the earlier question about file upload. I'm attaching here a sample code. The file uploads successfully and I can print out the name of the file, when I'm NOT using:


use TeamSite::Config;
use TeamSite::CGI_lite;
$cgi = TeamSite::CGI_lite->new();
$cgi->parse_data();

Could it be there's a conflict between TS' CGI lite & normal CGI? The error says " Malformed multipart POST "

Thanks

ISCBorisB

Hi,

So this means a workarea file browse from .ipl can't be done?

Back to the earlier question about file upload. I'm attaching here a sample code. The file uploads successfully and I can print out the name of the file, when I'm NOT using:
use TeamSite::Config;
use TeamSite::CGI_lite;
$cgi = TeamSite::CGI_lite->new();
$cgi->parse_data();
Could it be there's a conflict between TS' CGI lite & normal CGI? The error says " Malformed multipart POST "

Thanks

Do not use both CGI and TeamSite::CGI_lite within same module. Although it is possible with
some extra coding it's a serious headache that you do not want. If you need something not
covered in CGI_lite drop it completely and use only CGI instead.

jihan

Hi,

Thanks for the tips, but can you please briefly explain to me what's the extra coding and the headache that's coming if I were to proceed with it?

ISCBorisB

can you please briefly explain to me what's the extra coding [...] if I were to proceed with it?

Very briefly...

The key problem is that for the POST method both Modules try to read STDIN Stream. (GET Method is entirely
different story). Depending on your code, whoever does it first wins. If you really want both you'll have to
"save/restore" both STDIN Stream and CONTENT_LENGTH Environment variable before/after parsing posted Data.

That said - as designed, CGI_lite is not compatible with CGI. CGI provides all CGI_lite functionality and much more.
Once again, if you need something not covered in CGI_lite, discard CGI_lite altogether and use only CGI.

jihan

Ermm okay..

Does Teamsite has a CGI module instead of TeamSite::CGI_lite? I'm using TS 6.5 SP2.

ISCBorisB

Ermm okay..

Does Teamsite has a CGI module instead of TeamSite::CGI_lite? I'm using TS 6.5 SP2.

Yes, it has both. Note that your problem (whatever it is) may or may not had been caused by CGI/CGI_lite conflict

jihan

may not had been caused by CGI/CGI_lite conflict

It's really been days of debugging to find out what could be the cause of this.. for now, we're using a workaround.

Thanks for the input!