diff options
author | Endi Sukma Dewata <edewata@redhat.com> | 2012-11-21 20:20:55 -0500 |
---|---|---|
committer | Endi Sukma Dewata <edewata@redhat.com> | 2012-11-21 20:20:55 -0500 |
commit | b6c62065fada8ab55f012cb161792718ba823ea8 (patch) | |
tree | db522598550a1205bd11fea4943d1b4d649ce46b /base/tps/forms/index.cgi | |
parent | 03f8694cc9cd64c9b120dba13bb21f34f544c0e8 (diff) | |
download | pki-b6c62065fada8ab55f012cb161792718ba823ea8.tar.gz pki-b6c62065fada8ab55f012cb161792718ba823ea8.tar.xz pki-b6c62065fada8ab55f012cb161792718ba823ea8.zip |
Merged TPS CGI scripts.
Diffstat (limited to 'base/tps/forms/index.cgi')
-rwxr-xr-x | base/tps/forms/index.cgi | 76 |
1 files changed, 0 insertions, 76 deletions
diff --git a/base/tps/forms/index.cgi b/base/tps/forms/index.cgi deleted file mode 100755 index 0e643166b..000000000 --- a/base/tps/forms/index.cgi +++ /dev/null @@ -1,76 +0,0 @@ -#!/usr/bin/perl -# -# --- BEGIN COPYRIGHT BLOCK --- -# This program is free software; you can redistribute it and/or modify -# it under the terms of the GNU General Public License as published by -# the Free Software Foundation; version 2 of the License. -# -# This program 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 General Public License for more details. -# -# You should have received a copy of the GNU General Public License along -# with this program; 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 --- -# -# -# -# - -package op; - -use lib $ENV{DOCUMENT_ROOT} . "/../lib/perl"; - -use CGI; -use PKI::Service::Op; -use Template::Velocity; -use PKI::Base::Conf; -use PKI::Base::Registry; - -use vars qw (@ISA); -use PKI::Service::Op; -@ISA = qw(PKI::Service::Op); - -sub new { - my $self = {}; - bless ($self); - return $self; -} - -sub process() -{ - my $self = shift; - - my $q = CGI->new(); - - my $docroot = PKI::Base::Registry->get_docroot(); - my $parser = PKI::Base::Registry->get_parser(); - my $cfg = PKI::Base::Registry->get_config(); - - $self->debug_params($cfg, $q); - - $::symbol{machineName} = $cfg->get("service.machineName"); - $::symbol{non_clientauth_securePort} = $cfg->get("service.non_clientauth_securePort"); - $::symbol{securePort} = $cfg->get("service.securePort"); - $::symbol{unsecurePort} = $cfg->get("service.unsecurePort"); - - my $result = $parser->execute_file("index.vm"); - - my $xml = $q->param('xml'); - if ($xml eq "true") { - print "Content-Type: text/xml\n\n"; - print $self->xml_output(\%::symbol); - } else { - print "Content-Type: text/html\n\n"; - print "$result"; - } -} - - -my $op = op->new(); -$op->execute(); |