#!/usr/bin/perl use CGI qw(:standard); &decode_vars; $title=$fields{'title'}; $affiliatenum=$fields{'affiliatenum'}; $titleurl=$fields{'titleurl'}; $navigation=$fields{'navigation'}; if($navigation == 'nav') { $navigation = "$navigation.html"; } else { $navigation = "bg01/$navigation.html"; } $open=$fields{'open'}; # handle custom left nav settings $custom = ''; if($fields{'a'} ne '') { $custom .= "&a=" . $fields{'a'}; } if($fields{'b'} ne '') { $custom .= "&b=" . $fields{'b'}; } if($fields{'c'} ne '') { $custom .= "&c=" . $fields{'c'}; } if($fields{'h'} ne '') { $custom .= "&h=" . $fields{'h'}; } print "Content-type: text/html\n\n"; print <<"END";