acl/cert_output.cgi

   1 #!/usr/local/bin/perl
   2 # cert_issue.cgi
   3
   4 require './acl-lib.pl';
   5 &ReadParse();
   6 print "Content-type: application/x-x509-user-cert\n\n";
   7 open(OUT, $in{'file'});
   8 while(<OUT>) {
   9         print;
  10         }
  11 close(OUT);
  12 unlink($in{'file'});
  13