diff options
author | mharmsen <mharmsen@c9f7a03b-bd48-0410-a16d-cbbf54688b0b> | 2010-12-02 18:53:01 +0000 |
---|---|---|
committer | mharmsen <mharmsen@c9f7a03b-bd48-0410-a16d-cbbf54688b0b> | 2010-12-02 18:53:01 +0000 |
commit | 91bdb46eccdc419c64a74702f022fec310c3664b (patch) | |
tree | c1b867050044b2302b59f4462d20364c18e57a77 /pki/base/setup | |
parent | 5ef22989a67da780f246e1799fe51c026ab9c995 (diff) | |
download | pki-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-x | pki/base/setup/pkihost | 135 |
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; - |