#!/usr/bin/perl # ##### Begin: header information and copyright notice ##### # # MasterPFP Version 1.2 # by William Bontrager, # a programmer at willmaster.com. # Version 1.0 completed: February 7, 2000 # Version 1.2 completed: September 2, 2000 # Programmer's Website: http://www.willmaster.com/ # Programmer's Email: programmer@willmaster.com # # Copyright 2000 by William Bontrager. All rights reserved. # # This program is designed to display a printer friendly version of your page. # # This program may be used and modified free of charge by anyone so long as # this header information, including copyright notice, remains intact. By using # and/or modifying this program you agree to indemnify William Bontrager and his # associates from any liability that might arise from its use and/or modification. # # Selling the code for this program without prior written consent from the # copyright owner is expressly forbidden. You must have permission before # redistributing this program. In all cases, this header information and # copyright notice must remain intact. # # # Before you install this program, you must agree to the License Agreement. # The License Agreement is linked from the index page at http://willmaster.com/master # # ##### End: header information and copyright notice ##### # # HTML page instructions: # # # Before you install this program, you must agree to the License Agreement. # The License Agreement is linked from the index page at http://willmaster.com/master # # # (1) # The program will display everything up to the first tag. It # will replace your tag with

# Then it will display whatever is between any # # and # # tag sets. You may have as many of those tag sets as you wish, allowing # you to be selective about what the user will print. Last, the program # will finish the page with

# # (2) # Any images that you will display on the printer friendly page must use # the complete http:// URL rather than a relative URL. Examples -- # this:

# not this:

# # (3) # The link to MasterPFP must end with: # ?doc=thispage.html # where "thispage.html" is the page the program is to display a printer # friendly version of. You can specify the page as either a complete # http://... URL or as a file on your server. # # If you elect to use the complete http://... URL, it would look something # like this: # ?doc=http://www.domain.com/stuff/thispage.html # # If you elect to specify the page as a file on your server, then if # the page is in a subdirectory, the subdirectory must be specified. # Example, http://www.domain.com/stuff/thispage.html would be: # ?doc=stuff/thispage.html # # (4) # Optionally, you can direct the program to display the URL at the top # and/or bottom of the printer friendly page. You do this by appending # additional data to the link. The addition data can be # &top=http://www.domain.com/stuff/thispage.html # and/or # &bottom=http://www.domain.com/stuff/thispage.html # The URL in the additional data is to the regular page. # # The following examples show the several different valid link formats. # Just replace the URL, program name/location, and web page name with # what is appropriate for you: # # Click # for printer friendly page # # Click # for printer friendly page # # Click # for printer friendly page # # Click # for printer friendly page # # Click # for printer friendly page # # Click # for printer friendly page # # Click # for printer friendly page # # Click # for printer friendly page # # Click # for printer friendly page # # Click # for printer friendly page # # Click # for printer friendly page # # Click # for printer friendly page # # Script installation instructions: # # (1) Ensure the first line of this file points to Perl 5+ # # (2) The $imagefix = '__________'; line, below, tells the program what to do, # if anything, with the images on the printer friendly version of your page. # Any of the following values can be between the apostrophes (single quotes): # $imagefix = ''; # $imagefix = '-'; # $imagefix = '[IMAGE]'; # $imagefix = '[Image]'; # $imagefix = '[Image Location]'; # $imagefix = 'anything else'; # # The first example (nothing between the apostrophes) tells the program # to do nothing with the images on the printer friendly version of your page. # # The second example (a hyphen or minus sign between the apostrophes) tells # the program to remove the images on the printer friendly version of your page. # # The third through sixth examples (anything other than the first two examples # between the apostrophes) each tells the program to replace the images on # the printer friendly version of your page with whatever is between the # apostrophes. In other words, if it is not either the first or second example # then the program will replace the images on your page with whatever you put # between the apostrophes. And you can include HTML code (demonstrated in the # fourth example). # # The live $imagefix = '__________'; line is the next line below. $imagefix = ''; # (3) Upload the program to your server as ASCII/plain text. (A reminder: All # edits must be done with an ASCII/plain text word processor.) # # (4) CHMOD the program to 755 (does not apply to NT servers). # # That's it. You're ready to test it! # ### ### ### DO NOT CHANGE ANTHING BELOW THIS POINT ### ### ### require 5; use LWP::Simple; @doc = split(/&/,$ENV{QUERY_STRING}); for (@doc) { my ($n,$v) = split(/=/,$_); $n =~ tr/+/ /; $v =~ tr/+/ /; $n =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; $v =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; $v =~ s/\