I have perl script which will make a zip file and create a HTML form with asubmit button to send the zip file client. When user click the download button the zip file will be downloaded. But the problem is now the downloaded zip file is corrupted.
here the scripts i wrote.
To create the Zip file. - #!/perl/bin/Perl.exe
-
-
use CGI;
-
-
use Archive::Zip qw( :ERROR_CODES );
-
-
print "Content-type: text/html \n\n";
-
-
-
-
-
my $rme = new CGI;
-
my $zip = Archive::Zip->new();
-
my $file_name="";
-
my $zipFile="";
-
-
#print "Searching file_name :: $file_name.....\n";
-
-
#To check whether the given file is available in the directory or not
-
-
opendir MYDIR, ".";
-
@contents = readdir MYDIR;
-
-
-
foreach(@contents)
-
{
-
-
for($i = 0; $i < 140; ++$i)
-
{
-
#$zip->read("tst.zip") == AZ_OK or die "read error\n";
-
-
-
$file_name="IOS_".$i.".xml";
-
if($_ eq $file_name)
-
{
-
open(FILE1,$file_name);
-
open(FILE,$file_name) or die "ERROR: Cannot Open file ($!)";
-
while(<FILE>)
-
{
-
-
-
print FILE1 "$_";
-
}
-
$zip->addFile($file_name);
-
unless ( $zip->writeToFileNamed('someFile.zip') == AZ_OK )
-
{
-
die 'write error';
-
}
-
print "************";
-
last;
-
}
-
}
-
-
}
-
#print ".$zip.".zip";
-
print "<html><body>";
-
print "<form action='/cgi-bin/filesave.pl'>";
-
print "<select size='1' name='ID'>";
-
print "<option value='someFile.zip'>someFile.zip</option> ";
-
print "<option value='IOS_124.xml'>IOS_124.xml</option> ";
-
print "</select>";
-
print "<input type='submit' value='Submit' name='B1'>";
-
print "</form></body></html>";
-
To download the zip file - #!/perl/bin/Perl.exe
-
#print "Content-type: text/html\n\n";
-
use CGI ':standard';
-
use CGI::Carp qw(fatalsToBrowser);
-
-
my $files_location;
-
my $ID;
-
my @fileholder;
-
print "hello";
-
#$files_location = "/cgi";
-
-
$ID = param('ID');
-
-
if ($ID eq '') {
-
-
print "You must specify a file to download.";
-
} else {
-
-
open(DLFILE, "<$ID") || Error('open', 'file');
-
@fileholder = <DLFILE>;
-
close (DLFILE) || Error ('close', 'file');
-
-
-
-
print "Content-Type:application/x-octet-stream\n";
-
print "Content-Disposition:attachment;filename=$ID\n\n";
-
print "Content-Length;length <DLFILE>";
-
print @fileholder
-
}
Can anybody help me on this?
4  3445   KevinADC 4,059
Recognized Expert Specialist
I have perl script which will make a zip file and create a HTML form with asubmit button to send the zip file client. When user click the download button the zip file will be downloaded. But the problem is now the downloaded zip file is corrupted.
here the scripts i wrote.
To create the Zip file.
#!/perl/bin/Perl.exe
use CGI;
use Archive::Zip qw( :ERROR_CODES );
print "Content-type: text/html \n\n";
my $rme = new CGI;
my $zip = Archive::Zip->new();
my $file_name="";
my $zipFile="";
#print "Searching file_name :: $file_name..... \n";
#To check whether the given file is available in the directory or not
opendir MYDIR, ".";
@contents = readdir MYDIR;
foreach(@conten ts)
{
for($i = 0; $i < 140; ++$i)
{
#$zip->read("tst.zip" ) == AZ_OK or die "read error\n";
$file_name="IOS _".$i.".xml" ;
if($_ eq $file_name)
{
open(FILE1,$fil e_name);
open(FILE,$file _name) or die "ERROR: Cannot Open file ($!)";
while(<FILE>)
{
print FILE1 "$_";
}
$zip->addFile($file_ name);
unless ( $zip->writeToFileNam ed('someFile.zi p') == AZ_OK )
{
die 'write error';
}
print "********** **";
last;
}
}
}
#print ".$zip.".zi p";
print "<html><bod y>";
print "<form action='/cgi-bin/filesave.pl'>";
print "<select size='1' name='ID'>";
print "<option value='someFile .zip'>someFile. zip</option> ";
print "<option value='IOS_124. xml'>IOS_124.xm l</option> ";
print "</select>";
print "<input type='submit' value='Submit' name='B1'>";
print "</form></body></html>";
To download the zip file
#!/perl/bin/Perl.exe
#print "Content-type: text/html\n\n";
use CGI ':standard';
use CGI::Carp qw(fatalsToBrow ser);
my $files_location ;
my $ID;
my @fileholder;
print "hello";
#$files_locatio n = "/cgi";
$ID = param('ID');
if ($ID eq '') {
print "You must specify a file to download.";
} else {
open(DLFILE, "<$ID") || Error('open', 'file');
@fileholder = <DLFILE>;
close (DLFILE) || Error ('close', 'file');
print "Content-Type:applicatio n/x-octet-stream\n";
print "Content-Disposition:att achment;filenam e=$ID\n\n";
print "Content-Length;length <DLFILE>";
print @fileholder
}
Can anybody help me on this?
See if this helps:
[code] $size = -s $ID;
open(DLFILE, "<$ID") || Error('open', 'file'); binmode DLFILE;
@fileholder = <DLFILE>;
close (DLFILE) || Error ('close', 'file'); -
print "Content-Type:application/x-download\n";
-
print "Content-Length: $size\n";
-
print "Content-Disposition:attachment;filename=$ID\n\n";
-
print @fileholder
-
}
See if this helps:
$size = -s $ID;
open(DLFILE, "<$ID") || Error('open', 'file');
binmode DLFILE;
@fileholder = <DLFILE>;
close (DLFILE) || Error ('close', 'file');
print "Content-Type:application/x-download\n";
print "Content-Length: $size\n";
print "Content-Disposition:att achment;filenam e=$ID\n\n";
print @fileholder
}
Hi
Its working fine now .Thanks for your help.
Hi,
Will this same script work in solaris plat form or we need to do some changes?
KevinADC 4,059
Recognized Expert Specialist
Hi,
Will this same script work in solaris plat form or we need to do some changes?
If it does not work I guess you may need to make some changes, but I wouldn't know what changes.
Sign in to post your reply or Sign up for a free account.
Similar topics | |
by: Brandon Walters |
last post by:
I wrote a file download module for my website. The reason for the file
download module is that my website downloads work on a credit based system.
So I need to keep track of and limit daily downloads.
It uses fpassthru() and some headers() to send a file to the requesting
user. The get.php file that I wrote (the file download module if you will)
works like a charm for .ZIP files and .TXT files. However, when .EXE files
are downloaded...
|
by: Joseph |
last post by:
Hi
I'm writing a commercial program which must be reliable. It has to do
some basic reading and writing to and from files on the hard disk,
and also to a floppy.
I have foreseen a potential problem. The program may crash
unexpectedly while writing to the file. If so, my program should
detect this during startup, and then (during startup) probably delete the
data added to the file and redo the writing operation.
|
by: Stuart McGraw |
last post by:
I just spent a $*#@!*&^&% hour registering at ^$#@#%^
Sourceforce and trying to submit a Python bug report
but it still won't let me. I give up. Maybe someone who
cares will see this post, or maybe it will save time for
someone else who runs into this problem...
================================================
Environment:
- Microsoft Windows 2000 Pro
|
by: Prakash |
last post by:
Hi,
We face problems uploading excel (with macros) documents using HTML
File Upload.
The file contents are corrupted while viewing the same. However, we
are able to upload excel (w/o. macros) documents successfully. Is
there anything we have to take care of, while handling uploads of
excel documents with macros?
Thanks in advance,
|
by: WKC |
last post by:
Recently, one of our database's mdf and ldf was corrupted. We were able to
bring back the database with the capability of importing and querying the
data. However, the data is not the full list. Some of the data are still
missing because the tables we want still has sone 'chain mis linkage' error
when we did a DBCC checkdb/checktable. DBCC couldn't fix those errors
either. We're pretty sure that there are some data still burry under the...
| | |
by: Bob Darlington |
last post by:
I have a repair and backup database routine which runs when a user closes
down my application.
It works fine in my development machine, but breaks on a client's at the
following line:
If Dir(strLDB) <> "" Then Kill (strLDB)
where strLDB is the path to the ldb file.
The client advises that the ldb doesn't lurk after the program closes.
Any ideas?
|
by: Atara |
last post by:
My application starts with:
Module mmcMain
Public Sub Main()
Debug.WriteLine("Main begin")
Dim splashForm As New mcDlgs.cmcDlgSplash2
splashForm.Show()
....
|
by: Jeremy Chaney |
last post by:
It appears that my user.config file got corrupted causing my
"InitializeComponent" routine to throw the exception "Root element is
missing." when I start my app.
I figure I can just go into Explorer and delete the file to get things
working again, but I'd rather just catch the exception and resolve the
error programatically. I tried "Properties.Settings.Default.Reset();"
but that just throws the exception too. Does anyone know how I can...
|
by: =?Utf-8?B?U1VOTlk=?= |
last post by:
Hi, i am uploading a .docx file into sql2005 and later when i retrieve the
file from the database and i open it, i get a error message "The file is
corrupted and cannot be open". I am not facing this issue when i store and
retrieve files of type .doc
i am storing the file in a column of datatype image.
Here is the code where i insert the file into database. Am sure the code is
working. its just not working for .docx
protected void...
|
by: Wayne |
last post by:
I have an Access 2003 data file that has now corrupted twice in a
week. The database is extremely simple with one main data table and a
few lookup tables. The lookup tables are linked to the main table via
relationships. Each user has their own copy of the frontend which
links back to the data file on the server.
The corrupted data file repairs OK but on both occasions 2
relationships have disappeared in the Relationships Window. When...
|
by: Hystou |
last post by:
Most computers default to English, but sometimes we require a different language, especially when relocating. Forgot to request a specific language before your computer shipped? No problem! You can effortlessly switch the default language on Windows 10 without reinstalling. I'll walk you through it.
First, let's disable language synchronization. With a Microsoft account, language settings sync across devices. To prevent any complications,...
| | |
by: Oralloy |
last post by:
Hello folks,
I am unable to find appropriate documentation on the type promotion of bit-fields when using the generalised comparison operator "<=>".
The problem is that using the GNU compilers, it seems that the internal comparison operator "<=>" tries to promote arguments from unsigned to signed.
This is as boiled down as I can make it.
Here is my compilation command:
g++-12 -std=c++20 -Wnarrowing bit_field.cpp
Here is the code in...
|
by: jinu1996 |
last post by:
In today's digital age, having a compelling online presence is paramount for businesses aiming to thrive in a competitive landscape. At the heart of this digital strategy lies an intricately woven tapestry of website design and digital marketing. It's not merely about having a website; it's about crafting an immersive digital experience that captivates audiences and drives business growth.
The Art of Business Website Design
Your website is...
|
by: tracyyun |
last post by:
Dear forum friends,
With the development of smart home technology, a variety of wireless communication protocols have appeared on the market, such as Zigbee, Z-Wave, Wi-Fi, Bluetooth, etc. Each protocol has its own unique characteristics and advantages, but as a user who is planning to build a smart home system, I am a bit confused by the choice of these technologies. I'm particularly interested in Zigbee because I've heard it does some...
|
by: isladogs |
last post by:
The next Access Europe User Group meeting will be on Wednesday 1 May 2024 starting at 18:00 UK time (6PM UTC+1) and finishing by 19:30 (7.30PM).
In this session, we are pleased to welcome a new presenter, Adolph Dupré who will be discussing some powerful techniques for using class modules.
He will explain when you may want to use classes instead of User Defined Types (UDT). For example, to manage the data in unbound forms.
Adolph will...
|
by: conductexam |
last post by:
I have .net C# application in which I am extracting data from word file and save it in database particularly. To store word all data as it is I am converting the whole word file firstly in HTML and then checking html paragraph one by one.
At the time of converting from word file to html my equations which are in the word document file was convert into image.
Globals.ThisAddIn.Application.ActiveDocument.Select();...
|
by: TSSRALBI |
last post by:
Hello
I'm a network technician in training and I need your help.
I am currently learning how to create and manage the different types of VPNs and I have a question about LAN-to-LAN VPNs.
The last exercise I practiced was to create a LAN-to-LAN VPN between two Pfsense firewalls, by using IPSEC protocols.
I succeeded, with both firewalls in the same network. But I'm wondering if it's possible to do the same thing, with 2 Pfsense firewalls...
| | |
by: muto222 |
last post by:
How can i add a mobile payment intergratation into php mysql website.
|
by: bsmnconsultancy |
last post by:
In today's digital era, a well-designed website is crucial for businesses looking to succeed. Whether you're a small business owner or a large corporation in Toronto, having a strong online presence can significantly impact your brand's success. BSMN Consultancy, a leader in Website Development in Toronto offers valuable insights into creating effective websites that not only look great but also perform exceptionally well. In this comprehensive...
| |
