summaryrefslogtreecommitdiffstats
path: root/pki/base/setup
diff options
context:
space:
mode:
authormharmsen <mharmsen@c9f7a03b-bd48-0410-a16d-cbbf54688b0b>2010-12-02 18:53:01 +0000
committermharmsen <mharmsen@c9f7a03b-bd48-0410-a16d-cbbf54688b0b>2010-12-02 18:53:01 +0000
commit91bdb46eccdc419c64a74702f022fec310c3664b (patch)
treec1b867050044b2302b59f4462d20364c18e57a77 /pki/base/setup
parent5ef22989a67da780f246e1799fe51c026ab9c995 (diff)
downloadpki-91bdb46eccdc419c64a74702f022fec310c3664b.tar.gz
pki-91bdb46eccdc419c64a74702f022fec310c3664b.tar.xz
pki-91bdb46eccdc419c64a74702f022fec310c3664b.zip
Bugzilla Bug #643206 - New CMake based build system for Dogtag
(Legacy build system changes for compliance) git-svn-id: svn+ssh://svn.fedorahosted.org/svn/pki/trunk@1597 c9f7a03b-bd48-0410-a16d-cbbf54688b0b
Diffstat (limited to 'pki/base/setup')
-rwxr-xr-xpki/base/setup/pkihost135
1 files changed, 0 insertions, 135 deletions
diff --git a/pki/base/setup/pkihost b/pki/base/setup/pkihost
deleted file mode 100755
index 21c9994d..00000000
--- a/pki/base/setup/pkihost
+++ /dev/null
@@ -1,135 +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 ---
-#
-
-##############################################################
-# This script is used to display the fully qualified name
-# of this host.
-#
-# Sample Invocation:
-#
-# ./pkihost
-#
-##############################################################
-
-
-##############################################################
-# Perl Version
-##############################################################
-
-my $MINIMUM_PERL_VERSION = "5.006001";
-
-my $perl_version_error_message = "ERROR: Using Perl version $] ...\n"
- . " Must use Perl version "
- . "$MINIMUM_PERL_VERSION or later to "
- . "run this script!\n";
-
-die "$perl_version_error_message" if $] < $MINIMUM_PERL_VERSION;
-
-
-##############################################################
-# Execution Check
-##############################################################
-
-# Check to insure that this script's original
-# invocation directory has not been deleted!
-my $cwd = `/bin/pwd`;
-chomp $cwd;
-if( "$cwd" eq "" ) {
- print( STDERR "Cannot invoke '$0' from non-existent directory!\n" );
- print( STDOUT "\n" );
- exit 255;
-}
-
-
-##############################################################
-# Environment Variables
-##############################################################
-
-# untaint called subroutines
-if( ( $^O ne 'Windows_NT' ) && ( $^O ne 'MSWin32' ) ) {
- $> = $<; # set effective user ID to real UID
- $) = $(; # set effective group ID to real GID
- $ENV{ 'PATH' } = '/bin:/usr/bin';
- $ENV{ 'ENV' } = '' if $ENV{ 'ENV' } ne '';
-}
-
-
-##############################################################
-# Command-Line Variables
-##############################################################
-
-my $ARGS = ( $#ARGV + 1 );
-
-
-##############################################################
-# Shared Common Perl Data and Subroutines
-##############################################################
-
-# Compute "flavor" of Operating System
-my $pki_flavor = "";
-if( $^O eq "linux" ) {
- $pki_flavor = "pki";
-} elsif( $^O eq "solaris" ) {
- $pki_flavor = "pki";
-} else {
- print( STDERR
- "ERROR: Unsupported platform '$^O'!\n" );
- print( STDOUT "\n" );
- exit 255;
-}
-
-$pki_flavor =~ s/\s+$//g;
-
-use lib "/usr/share/pki/scripts";
-use pkicommon;
-
-# make -w happy by suppressing warnings of Global variables used only once
-my $suppress = "";
-$suppress = $hostname;
-
-
-##############################################################
-# Main Program
-##############################################################
-
-# no args
-# no return value
-sub main()
-{
- my $host = "";
-
- # obtain the fully-qualified domain name of this host
- $host = get_FQDN( $hostname );
-
- print( STDOUT "$host\n" );
-
- return;
-}
-
-
-##############################################################
-# PKI Instance Creation
-##############################################################
-
-main();
-
-exit 0;
-