RE: The List
potentially a very dumb question, but how does someone now subscribe to the london-pm list. Is it the same as:- subscribe london-list to [EMAIL PROTECTED] Thanks Jon Jon Galliers Programmer Design Net ***
RE: Teaching Java and Perl
I've been reading this discussion with interest[1], as we are in just that process of deciding how best to develop 'web solutions' fast enough for clients, bless their sweet hearts, and whether Java or Perl is the best 'tool' for the job. My personal feelings echo sentiments expressed earlier in that Perl tends not to be taught, it's learnt by people who need it to provide a solution to a particular solution, whereas Java is formally taught and is then used to provide solutions whether or not it is the right tool or not. I'm still fairly new to Perl, and even newer to Java so I'm probably not the best judge, but you have on one hand a proprietary language intensively promoted by a large IT corporation, and on the other a 'free' language promoted by the people who use it and find it infinitely useful. In this arena Perl is always going to appear a non-commercial, or non-enterprise solution where we have a whole IT infrastructure purchased by middle management who have a sketchy understanding of programming technology and who, on the whole, have been formally taught. However, does this mean that Perl has to become a 'commercial' application to compete? When you consider the spread and use of Perl has without formal commercial support I don't think so. Jon Galliers Design Net [1]and thinking I should contribute something to this list, even if it is an incoherent ramble, and vowing that I'll make more effort to get to the next meeting.
?party animals
As I've never met you all in person (hopefully to be rectified on February 1st, can't come tonight as we're boarding the loft..don't ask) I don't know how big a party animal you all are, however some of you may be interested that Linkdup/Uploaded are having a party on February 1st at the Strongrooms Bar EC1 that goes on till 2am; details from their website at http://weare.preloaded.com . ********* Jon Galliers [EMAIL PROTECTED] Programmer Perl/C++/MySQL/DB2/Java Design Net http://www.design.net.uk Tel: +44(0)870 240 0088 Fax: +44(0)870 240 0099 *
Fwd: Re: yapc::Europe::19101?
I have a real fear that this is a really stupid question, however I'm
having real problems using Archive::Zip. All I'm trying to do is running a
test script which will create a zip file (called 'download.zip') containing
a small text file ('test.txt'). Could anyone point me in the right
direction. I've gone through the documentation which is not to clear, well
for me anyway. I've used Archive::Tar before without any problems. Could
someone point me in the right direction.
#!/usr/bin/perl -w
use strict;
use Archive::Zip qw( :ERROR_CODES :CONSTANTS );
use Compress::Zlib;
my $member;
my $zip = Archive::Zip->new();
die "couldn't create member", $member = $zip->memberNamed( 'test.txt' );
die "compression method error", $member->desiredCompressionMethod(
COMPRESSION_DEFLATED ) or die "couldn't set compression method $!";
die 'write error', $zip->writeToFileNamed( 'download.zip' ) != AZ_OK ;
TIA
Jon
*
Jon Galliers [EMAIL PROTECTED]
Programmer Perl/C++/MySQL/DB2/Java
Design Net http://www.design.net.uk
Tel: +44(0)870 240 0088
Fax: +44(0)870 240 0099
*
Re: Archive::Zip
cheers, sorted
>Try something like:
>
> use strict;
> use Archive::Zip qw( :ERROR_CODES :CONSTANTS );
>
> my $zip = Archive::Zip->new();
> my $member = $zip->addFile("boris.pl");
> $member->desiredCompressionLevel(9);
> $zip->writeToFileNamed("boris.zip") == AZ_OK or die "Zip write error";
>
>
>
>Greg
Thanks
Jon
*
Jon Galliers [EMAIL PROTECTED]
Programmer Perl/C++/MySQL/DB2/Java
Design Net http://www.design.net.uk
Tel: +44(0)870 240 0088
Fax: +44(0)870 240 0099
*
Re: The Natives are Revolting
I know you're all probably bored with this, but I was even more bored and
checked out the site further
>(Although "Chris"'s website http://storedscripts.virtualave.net/ is quite,
>um, entertaining ...)
It seems Burak Kanber (bk?) is Chris's best friend.
Not bad for a 13 year old though, ('legal' disclaimers excepted). They both
should really get out more (and I should get on with some work).
Jon
Re: Server Upgrade
I have a spare pc100 DIMM, 128Mb, CAS2. Could you use this. Thanks Jon * Jon Galliers [EMAIL PROTECTED] Programmer Perl/C++/MySQL/DB2/Java Design Net http://www.design.net.uk Tel: +44(0)870 240 0088 Fax: +44(0)870 240 0099 *
(possible) zip and file download problem
I asked a question a couple of weeks ago about using Archive::Zip, and
although my script does work, I still have a few queries about it; I wonder
if anyone can shed any light.
The basic idea is that there are files of multiple formats (.doc, .pdf,
.etc) that need to be downloaded through a users browser. It also needs to
be downloaded through the program logic, and not as a simple link.
The main problem is that the zipped file downloads as "NameOfCGIFile.zip"
and not "download.zip". I am also slightly more concerned about my
(possibly pitiful) attempts at file locking, and the consequences of many
users trying to download files at the same time. I've been playing around
with this for some time, but I can't find a better way to do this.
($file - name from database query)
my $zip = Archive::Zip->new() or die "couldn't create zip $!";
$zip->addFile("/web/www.website.com/docs/$file") or die "couldn't add file $!";
$zip->writeToFileNamed('/web/www.website.com/docs/download.zip');# possible
lock error";
open (DOCZIP, "/web/www.website.com/docs/download.zip") or die "couldn't
open file $!";
flock (DOCZIP, 2);
print "Content-type:application/x-zip-compressed\n\n";
my $fileData;
while (read(DOCZIP, $fileData, 1024)) {
print $fileData;
}
unlink ("/web/www.website.com/docs/download.zip") or die "couldn't delete
file $!";
close(DOCZIP);
tia
Jon
*
Jon Galliers [EMAIL PROTECTED]
Programmer Perl/C++/MySQL/DB2/Java
Design Net http://www.design.net.uk
Tel: +44(0)870 240 0088
Fax: +44(0)870 240 0099
*
Re: (possible) zip and file download problem
At 01:04 PM 4/23/01 +0200, you wrote: >On Mon, Apr 23, 2001 at 12:06:06PM +0100, Jon Galliers wrote: > > The main problem is that the zipped file downloads as "NameOfCGIFile.zip" > > and not "download.zip". > >I think you might like to have a look at the Content-Disposition MIME >header. > >Something like this: > >print "Content-type:application/x-zip-compressed\n" . > "Content-Disposition: attachment; filename=$file\n\n"; > >-- >Niklas Nordebo -><- [EMAIL PROTECTED] -><- +447966251290 Cheers, that worked a treat. I must admit I've never even heard of "Content-Disposition:", what exactly is it, and where can i find out more information? Again, Thanks Jon * Jon Galliers [EMAIL PROTECTED] Programmer Perl/C++/MySQL/DB2/Java Design Net http://www.design.net.uk Tel: +44(0)870 240 0088 Fax: +44(0)870 240 0099 *
Re: LCN June
did anyone on the list work at razorfish uk?
RE: downloady filenames
This seemed to work. print "Content-type:application/whatever\n"."Content-Disposition: attachment; filename=$file\n\n" Thanks Jon ***** Jon Galliers [EMAIL PROTECTED] Programmer Perl/C++/MySQL/DB2/Java Design Net http://www.design.net.uk Tel: +44(0)870 240 0088 Fax: +44(0)870 240 0099 *
