ecuguru has asked for the wisdom of the Perl Monks concerning the following question:
sub kmzLoader(){ my ($KmlLoaderFile)=@_; open (DEST, "<$KmlLoaderFile") || warn "kmlLoader:: Can't load fil +e"; my @dataBuff = <DEST>; close DEST; $zipData = join ("\r",@dataBuff); } sub outKmz(){ print <<"OUTZIP"; Content-Type: application/vnd.google-earth.kmz Content-Disposition: attachment; filename="$fileName" $zipData OUTZIP }
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Open Zip and send to user in http session
by timos (Beadle) on Mar 18, 2006 at 11:08 UTC | |
|
Re: Open Zip and send to user in http session
by holli (Abbot) on Mar 18, 2006 at 13:34 UTC | |
by ecuguru (Monk) on Mar 19, 2006 at 21:32 UTC | |
by ecuguru (Monk) on Mar 20, 2006 at 05:18 UTC |