#!/usr/local/bin/perl # cert_form.cgi require './acl-lib.pl'; &ui_print_header(undef, $text{'cert_title'}, "", undef, undef, undef, undef, undef, undef, "language=VBSCRIPT onload='postLoad()'"); eval "use Net::SSLeay"; print "
$text{'cert_msg'}
\n"; if ($ENV{'SSL_USER'}) { print &text('cert_already', "$ENV{'SSL_USER'}"), "
\n"; } if ($ENV{'HTTP_USER_AGENT'} =~ /Mozilla/i) { # Output a form that works for netscape and mozilla print "
\n"; } else { # Unsupported browser! print "",&text('cert_ebrowser', "$ENV{'HTTP_USER_AGENT'}"),"
\n"; } &ui_print_footer("", $text{'index_return'});