#!/usr/bin/perl
##
##  formtgp.pl -- sets a partner ID cookie and shows the addtgp.html file
##

  use CGI;
  use CGI::Cookie;
  $query = new CGI;

  $partner = $query->param('partner');
  my $c = new CGI::Cookie(-name    =>  'partner',
                          -value   =>  $partner,
                          -expires =>  '+2M');
  print "Set-Cookie: $c\n";
  print "Content-Type: text/html\n\n";

  open(FH,"formtgp.html");
  while(<FH>) {
    print;
  }