|
A postscript file is created when you choose 'print-to-file'
using a postscript printer driver.
This form converts printer-specific postscript files into more portable PDF documents.
|
HEAD
# Send the file upload form
cat <<-UPLOAD
Select a postscript file and click 'Convert'
to convert it into a PDF document.
UPLOAD
# Determine action from content type (if any)
content=`echo $CONTENT_TYPE | cut -d';' -f1 | tr A-Z a-z`
case "$content" in
multipart/form-data)
# Process uploaded file
# Get MIME multipart boundary string
boundary=`echo $CONTENT_TYPE | sed 's,^.*boundary=,,'`
# Get a temporary file
if
! TEMPFILE=`mktemp $TEMP_DIR/ps2pdf.XXXXXX`
then
log "Cannot create temporary file, aborting"
else
# Read all form data from stdin into temporary file
dd bs=1 count=$CONTENT_LENGTH 2>/dev/null > $TEMPFILE
# Get original postscript filename from temporary file
fullname=`grep -i -m 1 "^Content-Disposition: form-data;" $TEMPFILE |
sed 's,^.*filename=",,;s,".*$,,'`
# Remove path from original postscript filename
fname=`echo "$fullname" | sed 's,^.*\\\,,;s,^.*/,,;s,[.][^.]*$,,'`.pdf
# Valid filename?
if [ "$fname" != ".pdf" ]
then
# Create personal web folder for user (if necessary)
[ ! -e "$USER_DIR" ] && mkdir "$USER_DIR" && chmod 770 "$USER_DIR"
# Extract postscript from temporary file and convert to a pdf file
awk '
BEGIN{x=0;h=0}
{
if (x==0) {
if (/^--'$boundary'[\r]?$/) x=1
} else if (x==1) {
if (/^--'$boundary'--[\r]?$/) { x=2; h=0 }
else if (h==0) { if (/^[\r]?$/) h=1; }
else print
}
}' $TEMPFILE | $ps2pdf - - > "$USER_DIR/$fname"
chmod 644 "$USER_DIR/$fname"
fsize=`stat -c %s "$USER_DIR/$fname"`
# Log the conversion
log "$REMOTE_ADDR|$fullname|$CONTENT_LENGTH|$fname|$fsize"
fi
# Delete temporary file
! $DEBUG && rm -f $TEMPFILE
fi
;;
esac
# Send info about current converted documents
cat <<-DOCS
Converted documents are stored on the server
for $FLUSH_MIN minutes for you to download.
These converted documents have been temporarily saved on the server
(most recent first):
|
Listing correct as of: `date "+%h %d %H:%M"` |
|---|
DOCS
# Send links to all converted documents
if [ -d "$USER_DIR" ] && [ `ls "$USER_DIR" 2>/dev/null | wc -l` -gt 0 ]
then
ls -gGht "$USER_DIR" | grep -v "^total" |
sed 's,^[^[:space:]]\+[[:space:]]\+[^[:space:]]\+,,' |
while read size month day time pdf; do
cat <<-LIST
| $pdf |
$size | $month $day $time |
LIST
done
else
cat <<-EMPTY
| No converted documents |
EMPTY
fi
# Send end of converted documents list and page footer
cat <<-FOOT
|
To save a permanent copy of a document,
right-click on the filename and select 'Save ... As'.
|