From d8f56d81126bdb7d60afeaf2015b598132884d83 Mon Sep 17 00:00:00 2001 From: Endi Sukma Dewata Date: Wed, 21 Nov 2012 14:30:45 -0500 Subject: 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 --- base/tps/forms/esc/cgi-bin/sow/enroll.cgi | 246 ------------------------------ 1 file changed, 246 deletions(-) delete mode 100755 base/tps/forms/esc/cgi-bin/sow/enroll.cgi (limited to 'base/tps/forms/esc/cgi-bin/sow/enroll.cgi') diff --git a/base/tps/forms/esc/cgi-bin/sow/enroll.cgi b/base/tps/forms/esc/cgi-bin/sow/enroll.cgi deleted file mode 100755 index 8a6431e52..000000000 --- a/base/tps/forms/esc/cgi-bin/sow/enroll.cgi +++ /dev/null @@ -1,246 +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/ -# -######################################################################## - -[REQUIRE_CFG_PL] - -use CGI; -use Mozilla::LDAP::Conn; -use PKI::TPS::Common; - -$gQuery = new CGI; - -sub authorize -{ - my $client_dn = $ENV{'SSL_CLIENT_S_DN'}; - $client_dn =~ tr/A-Z/a-z/; # all lower cases - $client_dn =~ s/\s+//g; # remove all spacing - - if (&is_agent($client_dn)) { - return 1; - } - return 0; -} - -sub DoPage -{ - if (!&authorize()) { - print $gQuery->redirect("/cgi-bin/sow/noaccess.cgi"); - return; - } - - $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); - my $ldap_host = get_ldap_host(); - my $ldap_port = get_ldap_port(); - my $secureconn = get_ldap_secure(); - my $basedn = get_base_dn(); - my $port = get_port(); - my $host = get_host(); - my $secure_port = get_secure_port(); - my $certdir = get_ldap_certdir(); - - ExitError("Failed to load enrollment page!") if (!open(ENROLL_FILE, "< enroll.html")); - - print $gQuery->header(); - - my $uid = $gQuery->param("uid"); - - my $conn = PKI::TPS::Common::make_connection( - {host => $ldap_host, port => $ldap_port, cert => $certdir}, - $secureconn); - - ExitError("Failed to connect to the database. $msg") if (!$conn); - - my $entry = $conn->search ( $basedn, - "sub", - "uid=$uid", - 0 - ); - - if (!$entry) { - $conn->close(); - ExitError("User $uid not found"); - } - - my $givenName = ($entry->getValues("givenName"))[0] || "-"; - my $cn = ($entry->getValues("cn"))[0] || "-"; - my $sn = ($entry->getValues("sn"))[0] ||"-"; - $uid = ($entry->getValues("uid"))[0] || "-"; - my $mail = ($entry->getValues("mail"))[0] || "-"; - my $phone = ($entry->getValues("telephoneNumber"))[0] || "-"; - my $departmentNumber = ($entry->getValues("departmentNumber"))[0] || ""; - my $employeeNumber = ($entry->getValues("employeeNumber"))[0] || ""; - - while ($l = ) - { - $l =~ s/\$mail/$mail/g; - $l =~ s/\$uid/$uid/g; - $l =~ s/\$givenName/$givenName/g; - $l =~ s/\$sn/$sn/g; - $l =~ s/\$cn/$cn/g; - $l =~ s/\$phone/$phone/g; - $l =~ s/\$departmentNumber/$departmentNumber/g; - $l =~ s/\$employeeNumber/$employeeNumber/g; - $l =~ s/\$host/$host/g; - $l =~ s/\$port/$port/g; - $l =~ s/\$secure_port/$secure_port/g; - print $l; - } - - close(ENROLL_FILE); -} - -&DoPage(); -- cgit