<?
// set up the data to be exported as a CSV file
$my_data = '"Name","Phone Number","Age"';
$my_data .= "\n";
$my_data .= '"Jane Doe","555-123-4567",27';
$my_data .= "\n";
$my_data .= '"John Smith","555-123-5678",25';
$my_data .= "\n";
$my_data .= '"Samuel Smith","555-123-6789",32';
$my_data .= "\n";
// set up the file name for the exported file
$output_file = 'MyAddressBook.csv';
// send the headers off
if(ini_get('zlib.output_compression')) ini_set('zlib.output_compression', 'Off');
header('Last-Modified: '.gmdate('D, d M Y H:i:s') . ' GMT');
header('Cache-Control: no-store, no-cache, must-revalidate');
header('Cache-Control: pre-check=0, post-check=0, max-age=0');
header('Content-Transfer-Encoding: none');
header('Content-Type: application/octet-stream');
header('Content-Disposition: attachment; filename="' . $output_file . '"');
// send the data
echo $my_data;
// stop all further processing
exit();
?>#!/usr/bin/perl
# Location of the source data files, relative to the root directory
# ending in a trailing slash. This can be outside your web space.
$DATA_DIR = "/some/path/here/";
if ($ENV{'PATH_INFO'} =~ /([^\/]*)$/) {
$file = $1;
}
$path="$DATA_DIR$file";
if ( -f $path && -r $path ) {
# Add other headers in here if you need/want them
print "Content-Transfer-Encoding: none\n";
print "Content-Dispostion: attachment; filename=$file;\n";
print "Content-Type: application/octet-stream\n\n";
open(FILE, $path);
print <FILE>;
close(FILE);
} else {
print "Status: 404 Not Found\n\n";
}<a href="/cgi-bin/download.pl/myfile.csv">Downoad file</a>