#!/usr/local/bin/perl -w
#
# webinfo.pl
# jms1 2001-11-06
#
# generates an FDF file, which should trigger the browser to fire up
# acrobat or acrobat viewer to combine the data into a finished PDF file

require 5.003 ;
use strict ;

use CGI qw ( :standard ) ;
use CGI::Carp "fatalsToBrowser" ;
$CGI::DISABLE_UPLOADS = 1 ;

###############################################################################
#
# configuration

###############################################################################
###############################################################################
###############################################################################
#
# do the deed

print <<EOF ;
Content-type: application/vnd.fdf

%FDF-1.2
1 0 obj
<< /FDF
<< /Fields
[
EOF

for my $f ( param() )
{
	my $v = ( param ( $f ) || "" ) ;

	print <<EOF ;
<< /V ($v)/T ($f)>>
EOF
}

print <<EOF ;
] 
/F (http://www.jms1.net/pdf/webinfo.pdf)
>> 
>> 
endobj
trailer
<<
/Root 1 0 R 

>>
%%EOF
EOF