I have a pdf document that I CANNOT let cache on the users machine due to
it's sensitive nature. I have played with different headers to resolve this
but to no avail. -pragma => 'no-cache' and -expires => '-1d'
Below is a script that prints the pdf to the browser.
This is extremely important, any help would be GREATLY appreciated.
byron#!/usr/local/bin/perl -w
use CGI;
use strict;
use Salu;
my $q = new CGI;
my $BUFFER_SIZE = 4_096;
my $IMAGE_DIRECTORY = $q->param('path');
my $buffer = '';
my $flag=0;
if ( $q->param('info') )
{
print $q->header( -type => "application/pdf");
$flag = 1;
}
if ( $ENV{'HTTP_REFERER'} =~ /neuroresults.cgi$/ )
{
print $q->header( -type => "application/pdf");
$flag = 1;
}
if ($flag == 0)
{
print "Location: /error.htm\n\n";
}
binmode STDOUT;
$IMAGE_DIRECTORY =~ s/^"//;
$IMAGE_DIRECTORY =~ s/"$//;
open (IMAGE, $IMAGE_DIRECTORY) or die "Can't open the image \n";
while (read( IMAGE, $buffer, $BUFFER_SIZE))
{
print $buffer;
}
close IMAGE;
exit(1);
_______________________________________________________
Send a cool gift with your E-Card
http://www.bluemountain.com/giftcenter/
_______________________________________________
Perl-Unix-Users mailing list. To unsubscribe go to
http://listserv.ActiveState.com/mailman/subscribe/perl-unix-users
