Jkltng has asked for the wisdom of the Perl Monks concerning the following question:
#!/usr/bin/perl -w use strict; my $dir = "/home/sitedirectory/document_repository/"; my $file = "company_logo.eps"; my $mimetype = "application/postscript"; open(FILE,"$dir$file"); binmode(FILE, ':raw'); my $output; my $buffer; while (read(FILE,$buffer,1024)) { $output .= $buffer; } my $length = length($output); print qq{Content-Disposition:attachment; filename="$file"\n\n}; print "Content-type: $mimetype\n\n"; print qq{Content-Length: $length\n\n}; print $output; exit;
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Print .eps files via https
by cjb (Friar) on Jan 23, 2012 at 16:43 UTC | |
|
Re: Print .eps files via https
by Anonymous Monk on Jan 23, 2012 at 17:12 UTC | |
by Anonymous Monk on Jan 23, 2012 at 20:11 UTC |