diff options
Diffstat (limited to 'dogtag/tps-ui/shared/cgi-bin/sow/cfg.pl')
-rwxr-xr-x | dogtag/tps-ui/shared/cgi-bin/sow/cfg.pl | 168 |
1 files changed, 0 insertions, 168 deletions
diff --git a/dogtag/tps-ui/shared/cgi-bin/sow/cfg.pl b/dogtag/tps-ui/shared/cgi-bin/sow/cfg.pl deleted file mode 100755 index 64e612aaa..000000000 --- a/dogtag/tps-ui/shared/cgi-bin/sow/cfg.pl +++ /dev/null @@ -1,168 +0,0 @@ -#! /usr/bin/perl -# -# --- BEGIN COPYRIGHT BLOCK --- -# This program is free software; you can redistribute it and/or modify -# it under the terms of the GNU General Public License as published by -# the Free Software Foundation; version 2 of the License. -# -# This program 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 General Public License for more details. -# -# You should have received a copy of the GNU General Public License along -# with this program; 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 --- -# - -# -# Establish platform-dependent variables: -# -my $ldapsearch="/usr/bin/ldapsearch"; - -# -# 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_ldapsearch() -{ - return $ldapsearch; -} - -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_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_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 $cmd = $ldapsearch . " " . - "-x" . - "-D \"" . $x_binddn . "\" " . - "-w \"" . $x_bindpwd . "\" " . - "-b \"" . "cn=TUS Officers,ou=Groups,".$x_basedn . "\" " . - "-h \"" . $x_host . "\" " . - "-p \"" . $x_port ."\" " . - "-LLL \"(uid=" . $uid . "*)\" | wc -l"; - - my $matched = `$cmd`; - - chomp($matched); - - if ($matched eq "0" || $matched eq "") { - return 0; - } else { - return 1; - } -} - -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(); - $x_port = get_ldap_port(); - my $x_basedn = get_base_dn(); - 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 $cmd = $ldapsearch . " " . - "-x" . - "-D \"" . $x_binddn . "\" " . - "-w \"" . $x_bindpwd . "\" " . - "-b \"" . "ou=people,".$x_basedn . "\" " . - "-h \"" . $x_host . "\" " . - "-p \"" . $x_port ."\" " . - "-LLL \"(uid=" . $uid . "*)\" | wc -l"; - - - my $matched = `$cmd`; - - chomp($matched); - - if ($matched eq "0" || $matched eq "") { - return 0; - } else { - return 1; - } -} |