From 5685366bab1cb72fc96855f450b162b6e1ae3aeb Mon Sep 17 00:00:00 2001 From: Endi Sukma Dewata Date: Wed, 21 Nov 2012 20:20:55 -0500 Subject: Merged TPS CGI scripts. --- base/tps/forms/esc/cgi-bin/demo/enroll.cgi | 183 ------------------ base/tps/forms/esc/cgi-bin/demo/index.cgi | 47 ----- base/tps/forms/esc/cgi-bin/home/cachain.cgi | 52 ------ base/tps/forms/esc/cgi-bin/home/enroll.cgi | 183 ------------------ base/tps/forms/esc/cgi-bin/home/index.cgi | 51 ----- base/tps/forms/esc/cgi-bin/so/enroll.cgi | 193 ------------------- base/tps/forms/esc/cgi-bin/so/index.cgi | 48 ----- base/tps/forms/esc/cgi-bin/sow/ajax-list.cgi | 79 -------- base/tps/forms/esc/cgi-bin/sow/cfg.pl | 174 ----------------- base/tps/forms/esc/cgi-bin/sow/enroll.cgi | 246 ------------------------- base/tps/forms/esc/cgi-bin/sow/enroll_temp.cgi | 246 ------------------------- base/tps/forms/esc/cgi-bin/sow/format.cgi | 207 --------------------- base/tps/forms/esc/cgi-bin/sow/formatso.cgi | 207 --------------------- base/tps/forms/esc/cgi-bin/sow/index.cgi | 42 ----- base/tps/forms/esc/cgi-bin/sow/is_agent.cgi | 69 ------- base/tps/forms/esc/cgi-bin/sow/is_user.cgi | 71 ------- base/tps/forms/esc/cgi-bin/sow/main.cgi | 70 ------- base/tps/forms/esc/cgi-bin/sow/noaccess.cgi | 56 ------ base/tps/forms/esc/cgi-bin/sow/read.cgi | 128 ------------- base/tps/forms/esc/cgi-bin/sow/read_temp.cgi | 125 ------------- base/tps/forms/esc/cgi-bin/sow/search.cgi | 70 ------- base/tps/forms/esc/cgi-bin/sow/search_temp.cgi | 70 ------- base/tps/forms/esc/cgi-bin/sow/seturl.cgi | 207 --------------------- base/tps/forms/esc/cgi-bin/sow/welcome.cgi | 57 ------ 24 files changed, 2881 deletions(-) delete mode 100755 base/tps/forms/esc/cgi-bin/demo/enroll.cgi delete mode 100755 base/tps/forms/esc/cgi-bin/demo/index.cgi delete mode 100755 base/tps/forms/esc/cgi-bin/home/cachain.cgi delete mode 100755 base/tps/forms/esc/cgi-bin/home/enroll.cgi delete mode 100755 base/tps/forms/esc/cgi-bin/home/index.cgi delete mode 100755 base/tps/forms/esc/cgi-bin/so/enroll.cgi delete mode 100755 base/tps/forms/esc/cgi-bin/so/index.cgi delete mode 100755 base/tps/forms/esc/cgi-bin/sow/ajax-list.cgi delete mode 100755 base/tps/forms/esc/cgi-bin/sow/cfg.pl delete mode 100755 base/tps/forms/esc/cgi-bin/sow/enroll.cgi delete mode 100755 base/tps/forms/esc/cgi-bin/sow/enroll_temp.cgi delete mode 100755 base/tps/forms/esc/cgi-bin/sow/format.cgi delete mode 100755 base/tps/forms/esc/cgi-bin/sow/formatso.cgi delete mode 100755 base/tps/forms/esc/cgi-bin/sow/index.cgi delete mode 100755 base/tps/forms/esc/cgi-bin/sow/is_agent.cgi delete mode 100755 base/tps/forms/esc/cgi-bin/sow/is_user.cgi delete mode 100755 base/tps/forms/esc/cgi-bin/sow/main.cgi delete mode 100755 base/tps/forms/esc/cgi-bin/sow/noaccess.cgi delete mode 100755 base/tps/forms/esc/cgi-bin/sow/read.cgi delete mode 100755 base/tps/forms/esc/cgi-bin/sow/read_temp.cgi delete mode 100755 base/tps/forms/esc/cgi-bin/sow/search.cgi delete mode 100755 base/tps/forms/esc/cgi-bin/sow/search_temp.cgi delete mode 100755 base/tps/forms/esc/cgi-bin/sow/seturl.cgi delete mode 100755 base/tps/forms/esc/cgi-bin/sow/welcome.cgi (limited to 'base/tps/forms/esc/cgi-bin') diff --git a/base/tps/forms/esc/cgi-bin/demo/enroll.cgi b/base/tps/forms/esc/cgi-bin/demo/enroll.cgi deleted file mode 100755 index c0f4bcabf..000000000 --- a/base/tps/forms/esc/cgi-bin/demo/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 = ) - { - if ($l =~ //) - { - my $sn = GetScreenName(); - $l =~ s//$sn/g; - print $l; - } - else - { - print $l; - } - } - - close(ENROLL_FILE); -} diff --git a/base/tps/forms/esc/cgi-bin/demo/index.cgi b/base/tps/forms/esc/cgi-bin/demo/index.cgi deleted file mode 100755 index c9a1d21dd..000000000 --- a/base/tps/forms/esc/cgi-bin/demo/index.cgi +++ /dev/null @@ -1,47 +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 ""; -print ""; -print "Fedora Project"; # Vendor -print "\n"; -print ""; -print ""; -print "http://[SERVER_NAME]:[PORT]/nk_service"; -print ""; -print ""; -print "http://[SERVER_NAME]:[PORT]/cgi-bin/demo/enroll.cgi"; -print ""; -print ""; -print ""; -print ""; -print ""; -print ""; -print "userKey"; -print ""; -print ""; -print ""; 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 ""; - print ""; - print "

Error Importing CA Chain Information!

"; - print "

Please try again later.

"; - print "" -} 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 = ) - { - if ($l =~ //) - { - my $sn = GetScreenName(); - $l =~ s//$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 ""; -print ""; -print "Fedora Project"; # Vendor -print "\n"; -print ""; -print ""; -print "http://[SERVER_NAME]:[PORT]/nk_service"; -print ""; -print ""; -print "http://[SERVER_NAME]:[PORT]/cgi-bin/home/enroll.cgi"; -print ""; -print ""; -print "http://www.fedora.redhat.com"; # Company URL -print ""; -print ""; -print ""; -print ""; -print "userKey"; -print ""; -#print ""; -#print "http://[SERVER_NAME]:[PORT]/cgi-bin/home/cachain.cgi"; -#print ""; -print ""; -print ""; diff --git a/base/tps/forms/esc/cgi-bin/so/enroll.cgi b/base/tps/forms/esc/cgi-bin/so/enroll.cgi deleted file mode 100755 index 148cd78c0..000000000 --- a/base/tps/forms/esc/cgi-bin/so/enroll.cgi +++ /dev/null @@ -1,193 +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; - -my $port = get_port(); -my $host = get_host(); -my $secure_port = get_secure_port(); - -$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 = ) - { - if ($l =~ //) - { - my $sn = GetScreenName(); - $l =~ s//$sn/g; - print $l; - } - else - { - $l =~ s/\$host/$host/g; - $l =~ s/\$port/$port/g; - $l =~ s/\$secure_port/$secure_port/g; - - print $l; - } - } - - close(ENROLL_FILE); -} diff --git a/base/tps/forms/esc/cgi-bin/so/index.cgi b/base/tps/forms/esc/cgi-bin/so/index.cgi deleted file mode 100755 index 7b3f2c68d..000000000 --- a/base/tps/forms/esc/cgi-bin/so/index.cgi +++ /dev/null @@ -1,48 +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 ""; -print ""; -print "Fedora Project"; # Vendor -print "\n"; -print ""; -print ""; -print "http://[SERVER_NAME]:[PORT]/nk_service"; -print ""; -print ""; -print "http://[SERVER_NAME]:[PORT]/cgi-bin/so/enroll.cgi"; -print ""; -print ""; -print ""; -print ""; -print "http://[SERVER_NAME]:[PORT]/cgi-bin/sow/welcome.cgi"; -print ""; -print ""; -print "soKey"; -print ""; -print ""; -print ""; diff --git a/base/tps/forms/esc/cgi-bin/sow/ajax-list.cgi b/base/tps/forms/esc/cgi-bin/sow/ajax-list.cgi deleted file mode 100755 index 0f4ac094f..000000000 --- a/base/tps/forms/esc/cgi-bin/sow/ajax-list.cgi +++ /dev/null @@ -1,79 +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 --- -# - -use CGI; -use Mozilla::LDAP::Conn; -use PKI::TPS::Common; - -[REQUIRE_CFG_PL] - -sub main() -{ - - my $q = new CGI; - - my $host = get_ldap_host(); - my $port = get_ldap_port(); - my $secureconn = get_ldap_secure(); - my $basedn = get_base_dn(); - my $certdir = get_ldap_certdir(); - - my $letters = $q->param('letters'); - if ($letters eq "") { - # HACK: ajax.js posts parameters into POST URL - $letters = $ENV{'QUERY_STRING'}; - $letters =~ s/.*letters=//g; - $letters =~ s/\+/ /g; - } - - my $result = ""; - - print "Content-Type: text/html\n\n"; - - my $conn = PKI::TPS::Common::make_connection( - {host => $host, port => $port, cert => $certdir}, - $secureconn); - - return if (!$conn); - - my $entry = $conn->search ( { base =>$basedn, - scope => "sub", - filter => "cn=$letters*", - attrsonly => 0, - attrs => qw(cn uid), - sortattrs => qw(cn)} - ); - - while ($entry) { - my $cn = ($entry->getValues("cn"))[0] || ""; - my $uid = ($entry->getValues("uid"))[0] || ""; - $result .= $uid . "###" . $cn . "|"; - $entry $conn->nextEntry(); - } - - $conn->close(); - - print $result; -} - -&main(); diff --git a/base/tps/forms/esc/cgi-bin/sow/cfg.pl b/base/tps/forms/esc/cgi-bin/sow/cfg.pl deleted file mode 100755 index d616fa136..000000000 --- a/base/tps/forms/esc/cgi-bin/sow/cfg.pl +++ /dev/null @@ -1,174 +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. -# -# 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 Mozilla::LDAP::Conn; -use PKI::TPS::Common; - -# -# Feel free to modify the following parameters: -# -my $ldapHost = "localhost"; -my $ldapPort = "389"; -my $basedn = "ou=People,dc=sfbay,dc=redhat,dc=com"; -my $port = "7888"; -my $secure_port = "7889"; -my $host = "localhost"; - -my $cfg = "/var/lib/pki-tps/conf/CS.cfg"; - -sub get_ldap_host() -{ - my $ldapport = `grep auth.instance.0.hostport $cfg | cut -c26-`; - chomp($ldapport); - my ($ldapHost, $p) = split(/:/, $ldapport); - return $ldapHost; -} - -sub get_ldap_port() -{ - my $ldapport = `grep auth.instance.0.hostport $cfg | cut -c26-`; - chomp($ldapport); - my ($p, $ldapPort) = split(/:/, $ldapport); - return $ldapPort; -} - -sub get_ldap_secure() -{ - my $ldapsecure = `grep auth.instance.0.ssl $cfg | cut -c21-`; - chomp($ldapsecure); - return $ldapsecure; -} - -sub get_ldap_certdir() -{ - my $ldapcertdir = `grep service.instanceDir $cfg | cut -c21-`; - chomp($ldapcertdir); - return $ldapcertdir . "/alias"; -} - -sub get_base_dn() -{ - my $basedn = `grep auth.instance.0.baseDN $cfg | cut -c24-`; - chomp($basedn); - return $basedn; -} - -sub get_port() -{ - my $port = `grep service.unsecurePort $cfg | cut -c22-`; - chomp($port); - return $port; -} - -sub get_secure_port() -{ - my $secure_port = `grep service.securePort $cfg | cut -c20-`; - chomp($secure_port); - return $secure_port; -} - -sub get_host() -{ - my $host = `grep service.machineName $cfg | cut -c21-`; - chomp($host); - return $host; -} - -sub is_agent() -{ - my ($dn) = @_; - - my $uid = $dn; - # need to map a subject dn into user DN - $uid =~ /uid=([^,]*)/; # retrieve the uid - $uid = $1; - - my $x_hostport = `grep -e "^tokendb.hostport" $cfg | cut -c18-`; - chomp($x_hostport); - my ($x_host, $x_port) = split(/:/, $x_hostport); - - my $x_secureconn = `grep -e "^tokendb.ssl" $cfg | cut -c13-`; - chomp($x_secureconn); - my $x_basedn = `grep -e "^tokendb.userBaseDN" $cfg | cut -c20-`; - chomp($x_basedn); - my $x_binddn = `grep -e "^tokendb.bindDN" $cfg | cut -c16-`; - chomp($x_binddn); - my $x_bindpwdpath = `grep -e "^tokendb.bindPassPath" $cfg | cut -c22-`; - chomp($x_bindpwdpath); - my $x_bindpwd = `grep -e "^tokendbBindPass" $x_bindpwdpath | cut -c17-`; - chomp($x_bindpwd); - - my $ldap = PKI::TPS::Common::make_connection( - {host => $x_host, port => $x_port, pswd => $x_bindpwd, bind => $x_binddn, cert => $x_certdir}, - $x_secureconn); - - return 0 if (! $ldap); - - my $entry = $ldap->search ( "cn=TUS Officers,ou=Groups,$x_basedn", - "sub", - "uid=$uid", - 0 - ); - - $ldap->close(); - - if ($entry) { - return 1; - } - return 0; -} - -sub is_user() -{ - my ($dn) = @_; - - my $uid = $dn; - # need to map a subject dn into user DN - $uid =~ /uid=([^,]*)/; # retrieve the uid - $uid = $1; - - my $x_host = get_ldap_host(); - my $x_port = get_ldap_port(); - my $x_secureconn = get_ldap_secure(); - my $x_basedn = get_base_dn(); - my $x_certdir = get_ldap_certdir(); - - my $ldap = PKI::TPS::Common::make_connection( - {host => $x_host, port => $x_port, cert => $x_certdir}, - $x_secureconn); - - return 0 if (! $ldap); - - my $entry = $ldap->search ( "ou=people,$x_basedn", - "sub", - "uid=$uid", - 0 - ); - - $ldap->close(); - - if ($entry) { - return 1; - } - return 0; -} - 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(); diff --git a/base/tps/forms/esc/cgi-bin/sow/enroll_temp.cgi b/base/tps/forms/esc/cgi-bin/sow/enroll_temp.cgi deleted file mode 100755 index 5817039a2..000000000 --- a/base/tps/forms/esc/cgi-bin/sow/enroll_temp.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_temp.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(); diff --git a/base/tps/forms/esc/cgi-bin/sow/format.cgi b/base/tps/forms/esc/cgi-bin/sow/format.cgi deleted file mode 100755 index 9b310991d..000000000 --- a/base/tps/forms/esc/cgi-bin/sow/format.cgi +++ /dev/null @@ -1,207 +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; - -my $ldapHost = get_ldap_host(); -my $ldapPort = get_ldap_port(); -my $basedn = get_base_dn(); -my $host = get_host(); -my $port = get_port(); -my $secure_port = get_secure_port(); - -$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") - { - GeneratePage(); - 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 GeneratePage -{ - my ($l); - - ExitError("Failed to load enrollment page!") if (!open(ENROLL_FILE, "< format.html")); - - print $gQuery->header(); - - while ($l = ) - { - $l =~ s/\$host/$host/g; - $l =~ s/\$port/$port/g; - $l =~ s/\$secure_port/$secure_port/g; - print $l; - } - - close(ENROLL_FILE); -} - -&DoPage(); diff --git a/base/tps/forms/esc/cgi-bin/sow/formatso.cgi b/base/tps/forms/esc/cgi-bin/sow/formatso.cgi deleted file mode 100755 index d53129139..000000000 --- a/base/tps/forms/esc/cgi-bin/sow/formatso.cgi +++ /dev/null @@ -1,207 +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; - -my $ldapHost = get_ldap_host(); -my $ldapPort = get_ldap_port(); -my $basedn = get_base_dn(); -my $host = get_host(); -my $port = get_port(); -my $secure_port = get_secure_port(); - -$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") - { - GeneratePage(); - 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 GeneratePage -{ - my ($l); - - ExitError("Failed to load enrollment page!") if (!open(ENROLL_FILE, "< formatso.html")); - - print $gQuery->header(); - - while ($l = ) - { - $l =~ s/\$host/$host/g; - $l =~ s/\$port/$port/g; - $l =~ s/\$secure_port/$secure_port/g; - print $l; - } - - close(ENROLL_FILE); -} - -&DoPage(); diff --git a/base/tps/forms/esc/cgi-bin/sow/index.cgi b/base/tps/forms/esc/cgi-bin/sow/index.cgi deleted file mode 100755 index 7f7a98869..000000000 --- a/base/tps/forms/esc/cgi-bin/sow/index.cgi +++ /dev/null @@ -1,42 +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 ""; -print ""; -print "Fedora Project"; # Vendor -print "\n"; -print ""; -print ""; -print "https://[SERVER_NAME]:[SECURE_PORT]/nk_service"; -print ""; -print ""; -print "https://[SERVER_NAME]:[SECURE_PORT]/cgi-bin/sow/search.cgi"; -print ""; -print ""; -print ""; -print ""; -print ""; diff --git a/base/tps/forms/esc/cgi-bin/sow/is_agent.cgi b/base/tps/forms/esc/cgi-bin/sow/is_agent.cgi deleted file mode 100755 index c6b6a87f7..000000000 --- a/base/tps/forms/esc/cgi-bin/sow/is_agent.cgi +++ /dev/null @@ -1,69 +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 --- -# - -use CGI; - -[REQUIRE_CFG_PL] - - -my $ldapHost = get_ldap_host(); -my $ldapPort = get_ldap_port(); -my $basedn = get_base_dn(); - -my $q = 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 DoIsAgent -{ - - print "Content-type: text/xml\n\n"; - - if (!&authorize()) { - return; - } - - my $uid = $q->param('uid'); - - if(&is_agent("uid=$uid")) - { - print "yes\n"; - } - else - { - print "no\n"; - } - -} - -&DoIsAgent(); diff --git a/base/tps/forms/esc/cgi-bin/sow/is_user.cgi b/base/tps/forms/esc/cgi-bin/sow/is_user.cgi deleted file mode 100755 index d7a551421..000000000 --- a/base/tps/forms/esc/cgi-bin/sow/is_user.cgi +++ /dev/null @@ -1,71 +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 --- -# - -use CGI; - -use CGI::Carp qw(fatalsToBrowser); - -[REQUIRE_CFG_PL] - - -my $ldapHost = get_ldap_host(); -my $ldapPort = get_ldap_port(); -my $basedn = get_base_dn(); - -my $q = 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 DoIsUser -{ - - print "Content-type: text/xml\n\n"; - - if (!&authorize()) { - return; - } - - my $uid = $q->param('uid'); - - if(&is_user("uid=$uid")) - { - print "yes\n"; - } - else - { - print "no\n"; - } - -} - -&DoIsUser(); diff --git a/base/tps/forms/esc/cgi-bin/sow/main.cgi b/base/tps/forms/esc/cgi-bin/sow/main.cgi deleted file mode 100755 index c6f65e42e..000000000 --- a/base/tps/forms/esc/cgi-bin/sow/main.cgi +++ /dev/null @@ -1,70 +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 --- -# - -use CGI; - -[REQUIRE_CFG_PL] - - -my $ldapHost = get_ldap_host(); -my $ldapPort = get_ldap_port(); -my $basedn = get_base_dn(); - -my $q = 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 $q->redirect("/cgi-bin/sow/noaccess.cgi"); - return; - } - - my $error = $q->param('error'); - $error = "" if !defined $error; - - open(FILE, "< main.html"); - - print $q->header(); - - while ($l = ) - { - $l =~ s/\$error/$error/g; - print $l; - } - - close(FILE); -} - -&DoPage(); diff --git a/base/tps/forms/esc/cgi-bin/sow/noaccess.cgi b/base/tps/forms/esc/cgi-bin/sow/noaccess.cgi deleted file mode 100755 index 17166bcb6..000000000 --- a/base/tps/forms/esc/cgi-bin/sow/noaccess.cgi +++ /dev/null @@ -1,56 +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 --- -# - -use CGI; - -[REQUIRE_CFG_PL] - - -my $host = get_host(); -my $secure_port = get_secure_port(); -my $port = get_port(); - -my $q = new CGI; - -sub DoPage -{ - - my $error = $q->param('error'); - - open(FILE, "< noaccess.html"); - - print $q->header(); - - while ($l = ) - { - $l =~ s/\$error/$error/g; - $l =~ s/\$host/$host/g; - $l =~ s/\$secure_port/$secure_port/g; - $l =~ s/\$port/$port/g; - print $l; - } - - close(FILE); -} - -&DoPage(); diff --git a/base/tps/forms/esc/cgi-bin/sow/read.cgi b/base/tps/forms/esc/cgi-bin/sow/read.cgi deleted file mode 100755 index 8a5793c2b..000000000 --- a/base/tps/forms/esc/cgi-bin/sow/read.cgi +++ /dev/null @@ -1,128 +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 --- -# - -use CGI; -use Mozilla::LDAP::Conn; -use PKI::TPS::Common; - -[REQUIRE_CFG_PL] - -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 -{ - my $q = new CGI; - my $host = get_ldap_host(); - my $port = get_ldap_port(); - my $secureconn = get_ldap_secure(); - my $basedn = get_base_dn(); - my $certdir = get_ldap_certdir(); - - if (!&authorize()) { - print $q->redirect("/cgi-bin/sow/noaccess.cgi"); - return; - } - - my $name = $q->param('name'); - my $uid = $q->param('name_ID'); - $name = "" if !defined $name; - - if ($name eq "") { - print $q->redirect("/cgi-bin/sow/search.cgi?error=Name cannot be empty"); - return; - } - - my $conn = PKI::TPS::Common::make_connection( - {host => $host, port => $port, cert => $certdir}, - $secureconn); - - if (!$conn) { - print $q->redirect("/cgi-bin/sow/search.cgi?error=Failed to connect to the database."); - return; - }; - - my $entry = $conn->search ( $basedn, - "sub", - "cn=$name", - 0 - ); - - if (!$entry) { - $conn->close(); - print $q->redirect("/cgi-bin/sow/search.cgi?error=User $name not found"); - return; - } - - 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 $photoLarge = ($entry->getValues("photoLarge"))[0] || ""; # photo (full size) - my $photoSmall = ($entry->getValues("photoSmall"))[0] || ""; # photo (thumb) - my $height = ($entry->getValues("height"))[0] || ""; - my $weight = ($entry->getValues("weight"))[0] || ""; - my $eyecolor = ($entry->getValues("eyeColor"))[0] || ""; - - $conn->close(); - - if ($uid eq "-") { - print $q->redirect("/cgi-bin/sow/search.cgi?error=User $name not found"); - return; - } - - open(FILE, "< read.html"); - - print $q->header(); - - 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/\$photoLarge/$photoLarge/g; - $l =~ s/\$photoSmall/$photoSmall/g; - $l =~ s/\$height/$height/g; - $l =~ s/\$weight/$weight/g; - $l =~ s/\$eyecolor/$eyecolor/g; - print $l; - } - - close(FILE); -} - -&DoPage(); diff --git a/base/tps/forms/esc/cgi-bin/sow/read_temp.cgi b/base/tps/forms/esc/cgi-bin/sow/read_temp.cgi deleted file mode 100755 index 31c6fd7e3..000000000 --- a/base/tps/forms/esc/cgi-bin/sow/read_temp.cgi +++ /dev/null @@ -1,125 +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 --- -# - -use CGI; -use Mozilla::LDAP::Conn; -use PKI::TPS::Common; - -[REQUIRE_CFG_PL] - - -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 -{ - my $q = new CGI; - my $host = get_ldap_host(); - my $port = get_ldap_port(); - my $secureconn = get_ldap_secure(); - my $basedn = get_base_dn(); - my $certdir = get_ldap_certdir(); - - if (!&authorize()) { - print $q->redirect("/cgi-bin/sow/noaccess.cgi"); - return; - } - - my $name = $q->param('name'); - my $uid = $q->param('name_ID'); - $name = "" if !defined $name; - - if ($name eq "") { - print $q->redirect("/cgi-bin/sow/search.cgi?error=Name cannot be empty"); - return; - } - - my $conn = PKI::TPS::Common::make_connection( - {host => $host, port => $port, cert => $certdir}, - $secureconn); - - - my $entry = $conn->search ( $basedn, - "sub", - "cn=$name", - 0 - ); - - if (!$entry) { - $conn->close(); - print $q->redirect("/cgi-bin/sow/search.cgi?error=User $name not found"); - return; - } - - 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 $photoLarge = ($entry->getValues("photoLarge"))[0] || ""; # photo (full size) - my $photoSmall = ($entry->getValues("photoSmall"))[0] || ""; # photo (thumb) - my $height = ($entry->getValues("height"))[0] || ""; - my $weight = ($entry->getValues("weight"))[0] || ""; - my $eyecolor = ($entry->getValues("eyeColor"))[0] || ""; - - $conn->close(); - - if ($uid eq "-") { - print $q->redirect("/cgi-bin/sow/search.cgi?error=User $name not found"); - return; - } - - open(FILE, "< read_temp.html"); - - print $q->header(); - - 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/\$photoLarge/$photoLarge/g; - $l =~ s/\$photoSmall/$photoSmall/g; - $l =~ s/\$height/$height/g; - $l =~ s/\$weight/$weight/g; - $l =~ s/\$eyecolor/$eyecolor/g; - print $l; - } - - close(FILE); -} - -&DoPage(); diff --git a/base/tps/forms/esc/cgi-bin/sow/search.cgi b/base/tps/forms/esc/cgi-bin/sow/search.cgi deleted file mode 100755 index e681ed100..000000000 --- a/base/tps/forms/esc/cgi-bin/sow/search.cgi +++ /dev/null @@ -1,70 +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 --- -# - -use CGI; - -[REQUIRE_CFG_PL] - - -my $ldapHost = get_ldap_host(); -my $ldapPort = get_ldap_port(); -my $basedn = get_base_dn(); - -my $q = 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 $q->redirect("/cgi-bin/sow/noaccess.cgi"); - return; - } - - my $error = $q->param('error'); - $error = "" if !defined $error; - - open(FILE, "< search.html"); - - print $q->header(); - - while ($l = ) - { - $l =~ s/\$error/$error/g; - print $l; - } - - close(FILE); -} - -&DoPage(); diff --git a/base/tps/forms/esc/cgi-bin/sow/search_temp.cgi b/base/tps/forms/esc/cgi-bin/sow/search_temp.cgi deleted file mode 100755 index 5d752a49d..000000000 --- a/base/tps/forms/esc/cgi-bin/sow/search_temp.cgi +++ /dev/null @@ -1,70 +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 --- -# - -use CGI; - -[REQUIRE_CFG_PL] - - -my $ldapHost = get_ldap_host(); -my $ldapPort = get_ldap_port(); -my $basedn = get_base_dn(); - -my $q = 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 $q->redirect("/cgi-bin/sow/noaccess.cgi"); - return; - } - - my $error = $q->param('error'); - $error = "" if !defined $error; - - open(FILE, "< search_temp.html"); - - print $q->header(); - - while ($l = ) - { - $l =~ s/\$error/$error/g; - print $l; - } - - close(FILE); -} - -&DoPage(); diff --git a/base/tps/forms/esc/cgi-bin/sow/seturl.cgi b/base/tps/forms/esc/cgi-bin/sow/seturl.cgi deleted file mode 100755 index dfac46d8f..000000000 --- a/base/tps/forms/esc/cgi-bin/sow/seturl.cgi +++ /dev/null @@ -1,207 +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; - -my $ldapHost = get_ldap_host(); -my $ldapPort = get_ldap_port(); -my $basedn = get_base_dn(); -my $host = get_host(); -my $port = get_port(); -my $secure_port = get_secure_port(); - -$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") - { - GeneratePage(); - 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 GeneratePage -{ - my ($l); - - ExitError("Failed to load enrollment page!") if (!open(ENROLL_FILE, "< seturl.html")); - - print $gQuery->header(); - - while ($l = ) - { - $l =~ s/\$host/$host/g; - $l =~ s/\$port/$port/g; - $l =~ s/\$secure_port/$secure_port/g; - print $l; - } - - close(ENROLL_FILE); -} - -&DoPage(); diff --git a/base/tps/forms/esc/cgi-bin/sow/welcome.cgi b/base/tps/forms/esc/cgi-bin/sow/welcome.cgi deleted file mode 100755 index bc76dd3fa..000000000 --- a/base/tps/forms/esc/cgi-bin/sow/welcome.cgi +++ /dev/null @@ -1,57 +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 --- -# - -use CGI; - -[REQUIRE_CFG_PL] - - -my $host = get_host(); -my $secure_port = get_secure_port(); -my $port = get_port(); - -my $q = new CGI; - -sub DoPage -{ - - my $error = $q->param('error'); - $error = "" if !defined $error; - - open(FILE, "< welcome.html"); - - print $q->header(); - - while ($l = ) - { - $l =~ s/\$error/$error/g; - $l =~ s/\$host/$host/g; - $l =~ s/\$secure_port/$secure_port/g; - $l =~ s/\$port/$port/g; - print $l; - } - - close(FILE); -} - -&DoPage(); -- cgit