diff options
| author | Endi Sukma Dewata <edewata@redhat.com> | 2012-11-21 14:30:45 -0500 |
|---|---|---|
| committer | Endi Sukma Dewata <edewata@redhat.com> | 2012-12-03 11:40:31 -0500 |
| commit | d8f56d81126bdb7d60afeaf2015b598132884d83 (patch) | |
| tree | b790342d055d32207b0513bd987b4a1e90117ee2 /base/tps/forms/esc/cgi-bin/home/cachain.cgi | |
| parent | 538dee3554b0a84497afa78770706a5ad4a8ff52 (diff) | |
| download | pki-d8f56d81126bdb7d60afeaf2015b598132884d83.tar.gz pki-d8f56d81126bdb7d60afeaf2015b598132884d83.tar.xz pki-d8f56d81126bdb7d60afeaf2015b598132884d83.zip | |
Reorganized TPS templates and scripts.
The templates, JS, and CGI scripts for TPS have been moved
into the TPS core package. Removed unused cfg.pl.
Ticket #407
Diffstat (limited to 'base/tps/forms/esc/cgi-bin/home/cachain.cgi')
| -rwxr-xr-x | base/tps/forms/esc/cgi-bin/home/cachain.cgi | 52 |
1 files changed, 0 insertions, 52 deletions
diff --git a/base/tps/forms/esc/cgi-bin/home/cachain.cgi b/base/tps/forms/esc/cgi-bin/home/cachain.cgi deleted file mode 100755 index ddbf5e6ae..000000000 --- a/base/tps/forms/esc/cgi-bin/home/cachain.cgi +++ /dev/null @@ -1,52 +0,0 @@ -#!/usr/bin/perl -# -# --- BEGIN COPYRIGHT BLOCK --- -# This library is free software; you can redistribute it and/or -# modify it under the terms of the GNU Lesser General Public -# License as published by the Free Software Foundation; -# version 2.1 of the License. -# -# This library is distributed in the hope that it will be useful, -# but WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -# Lesser General Public License for more details. -# -# You should have received a copy of the GNU Lesser General Public -# License along with this library; if not, write to the Free Software -# Foundation, Inc., 51 Franklin Street, Fifth Floor, -# Boston, MA 02110-1301 USA -# -# Copyright (C) 2007 Red Hat, Inc. -# All rights reserved. -# --- END COPYRIGHT BLOCK --- -# -# -# - -use LWP::UserAgent; - -my $cfg = "../../conf/CS.cfg"; -my $cahostport = `grep conn.ca1.hostport $cfg | cut -c19-`; - -chomp($cahostport); - -my $url = "https://$cahostport/ca/ee/ca/getCAChain?op=download&mimeType=application/x-x509-ca-cert"; - -my $agent = LWP::UserAgent->new; -$agent->timeout(30); - -my $request = HTTP::Request->new('GET', $url); -my $response = $agent->request($request); - -if ($response->is_success) { - print "Content-type: application/x-x509-ca-cert\n\n"; - print $response->content; - -} else { - print "Content-type: text/html\n\n"; - print "<html>"; - print "<link rel=stylesheet href='/esc/home/style.css' type='text/css'>"; - print "<center><h2>Error Importing CA Chain Information!</h2></center>"; - print "<center><h2>Please try again later.</h2></center>"; - print "</html>" -} |