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, 70 deletions

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 = <FILE>)
-  {
-      $l =~ s/\$error/$error/g;
-      print $l;
-  }
-
-  close(FILE);
-}
-
-&DoPage();