Metacat

  print "Content-type: text/html\n\n";

  # process the template files:

  my $templateVars = { stage => "register", cfg => $cfg };

  $$templateVars{'orgList'} = \@orglist;

  $template->process( "@defaultHeader@", $templateVars);

  $template->process( "@register@", $templateVars);

    my $allParams = { 'givenName' => $query->param('givenName'), 

                      'sn' => $query->param('sn'),

                      'mail' => $query->param('mail'), 

                      'uid' => $query->param('uid'), 

                      'userPassword' => $query->param('userPassword'),