diff options
Diffstat (limited to 'base/tps/forms/esc/cgi-bin/home')
-rwxr-xr-x | base/tps/forms/esc/cgi-bin/home/cachain.cgi | 52 | ||||
-rwxr-xr-x | base/tps/forms/esc/cgi-bin/home/enroll.cgi | 183 | ||||
-rwxr-xr-x | base/tps/forms/esc/cgi-bin/home/index.cgi | 51 |
3 files changed, 0 insertions, 286 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>" -} diff --git a/base/tps/forms/esc/cgi-bin/home/enroll.cgi b/base/tps/forms/esc/cgi-bin/home/enroll.cgi deleted file mode 100755 index c0f4bcabf..000000000 --- a/base/tps/forms/esc/cgi-bin/home/enroll.cgi +++ /dev/null @@ -1,183 +0,0 @@ -#! /usr/bin/perl -w -# -# --- 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 --- -# -######################################################################## -# -# Script: esc.cgi -# Author: Kin Blas () -# Date: 12/19/2003 -# -# CGI.pm Docs: -# -# http://stein.cshl.org/WWW/software/CGI/ -# -######################################################################## - -use CGI; - -$gQuery = new CGI; - -$gQueryAction = "default"; -$gQueryOverrideAction = "default"; - -@gCookieNames = ("ascScreenName", - "ascSubscriptionType", - "ascBindings"); - -$gQueryAction = $gQuery->param("action") if (defined $gQuery->param("action")); - -$gQueryOverrideAction = $gQuery->param("override_action") - if (defined $gQuery->param("override_action")); - -if ($gQueryOverrideAction ne "default") -{ - $gQueryAction = $gQueryOverrideAction; -} - -######################################################################## -# -# If no action was provided, we default to showing our -# admin page! -# -# http://www.foo.com/esc.cgi -# -######################################################################## - -if ($gQueryAction eq "default") -{ - GenerateEnrollmentPage(); - exit 0; -} - - - -sub ExitError -{ - my($str) = @_; - print $gQuery->header(), $gQuery->start_html(), $str, $gQuery->end_html(); - exit 0; -} - -sub GetScreenName -{ - my $sn = ""; - - if (defined $gQuery->param("screenname")) - { - $sn = $gQuery->param("screenname"); - } else { - $sn = "default"; - } - - return $sn; -} - -sub GetKeyType -{ - my $keyType = 0; - - if (defined $gQuery->param("keytype")) - { - $keyType = $gQuery->param("keytype"); - } - - return $keyType; -} - -sub GetKeyID -{ - my $keyID = ""; - - if (defined $gQuery->param("keyid")) - { - $keyID = $gQuery->param("keyid"); - } - - return $keyID; -} - -sub GetKeyLabelArg -{ - my $keyLabel = ""; - - if (defined $gQuery->param("keylabel")) - { - $keyLabel = $gQuery->param("keylabel"); - } - - return $keyLabel; -} - -sub HaveScreenName -{ - return 1 if (GetScreenName() ne ""); - return 0; -} - -sub IsSubscriber -{ - my $subType = $gUserObj{'SUBSCRIPTION'}; - return 1 if ($subType eq "HouseKey" || $subType eq "NetKey"); - - return 0; -} - -sub GetNextAction -{ - my($nextActn) = "default"; - - if (defined $gQuery->param('nextaction')) - { - $nextActn = $gQuery->param('nextaction'); - } - elsif (defined $gQuery->param('action')) - { - $nextActn = $gQuery->param('action'); - } - - return $nextActn; -} - -sub GenerateEnrollmentPage -{ - my ($l); - - ExitError("Failed to load enrollment page!") if (!open(ENROLL_FILE, "< Enroll.html")); - - print $gQuery->header(); - - while ($l = <ENROLL_FILE>) - { - if ($l =~ /<!-- *SECURECOOL_SCREENNAME *-->/) - { - my $sn = GetScreenName(); - $l =~ s/<!-- *SECURECOOL_SCREENNAME *-->/$sn/g; - print $l; - } - else - { - print $l; - } - } - - close(ENROLL_FILE); -} diff --git a/base/tps/forms/esc/cgi-bin/home/index.cgi b/base/tps/forms/esc/cgi-bin/home/index.cgi deleted file mode 100755 index 1e54a8354..000000000 --- a/base/tps/forms/esc/cgi-bin/home/index.cgi +++ /dev/null @@ -1,51 +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 --- -# -# -# -# -print "Content-type: text/xml\n\n"; -print "<\?xml version=\"1.0\" encoding=\"UTF-8\"\?>"; -print "<ServiceInfo>"; -print "<IssuerName>"; -print "Fedora Project"; # Vendor -print "</IssuerName>\n"; -print "<Services>"; -print "<Operation>"; -print "http://[SERVER_NAME]:[PORT]/nk_service"; -print "</Operation>"; -print "<UI>"; -print "http://[SERVER_NAME]:[PORT]/cgi-bin/home/enroll.cgi"; -print "</UI>"; -print "<EnrolledTokenBrowserURL>"; -print "http://www.fedora.redhat.com"; # Company URL -print "</EnrolledTokenBrowserURL>"; -print "<EnrolledTokenURL>"; -print "</EnrolledTokenURL>"; -print "<TokenType>"; -print "userKey"; -print "</TokenType>"; -#print "<CAChainUI>"; -#print "http://[SERVER_NAME]:[PORT]/cgi-bin/home/cachain.cgi"; -#print "</CAChainUI>"; -print "</Services>"; -print "</ServiceInfo>"; |