← Back
Editing: cert_output.cgi
#!/usr/bin/perl # cert_issue.cgi use strict; use warnings; no warnings 'redefine'; no warnings 'uninitialized'; require './acl-lib.pl'; ## no critic our (%in, %text, %config, %access); &ReadParse(); my $tempdir = &tempname(); $tempdir =~ s/\/[^\/]+$//; &is_under_directory($tempdir, $in{'file'}) || &error($text{'cert_etempdir'}); print "Content-type: application/x-x509-user-cert\n\n"; print &read_file_contents($in{'file'}); &unlink_file($in{'file'});
Save File
Cancel