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

1 files changed, 0 insertions, 193 deletions

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 = <ENROLL_FILE>)
-  {
-    if ($l =~ /<!-- *SECURECOOL_SCREENNAME *-->/)
-    {
-      my $sn = GetScreenName();
-      $l =~ s/<!-- *SECURECOOL_SCREENNAME *-->/$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);
-}