Hai friends,
I have one doubt that if we click a link then a prompt should come as Open file (or) Save file and if we click Save file the file should be downloaded into the default path of the current system.
in perl i written the code as below:
-
use Text::CSV;
-
use Apache::Request;
-
use Apache::File;
-
-
sub handler
-
{
-
my $r = Apache::Request->new(shift);
-
my $download = $r->param('download');
-
if($download eq '' )
-
{
-
print <<HTML;
-
<html>
-
<head>
-
<script type='text/javascript'>
-
function transfer(frm)
-
{
-
var url = 'http://10.202.1.22/practice/newldap?download=yes';
-
document.frm.action = url;
-
document.frm.submit();
-
}
-
</script>
-
-
# In this area a csv file is created
-
-
<a href='javascript:transfer(this.form)' class='Download'>File in CSV Format</a>
-
</form>
-
</center>
-
</body>
-
</html>
-
HTML
-
}
-
elsif($download eq 'yes')
-
{
-
# To make the browser for downloading the file
-
-
$r->send_http_header('application/vnd.ms-excel');
-
open FH, "</tmp/$date.csv";
-
my $le = $r->send_fd(FH);
-
}
-
-
return OK;
-
}
-
1;
-
The above code is working but when it comes to CGI/Perl programming how can i do that, it would be helpful if anybody replied with sample code.
It is very urgent friends, please help me.
