Welcome To Our Shell

Mister Spy & Souheyl Bypass Shell

# $URL: https://svn.photomask.com/DR_FE/mebes-jobdeck/perl/trunk/Makefile.PL $
# $Id: Makefile.PL 335 2016-11-07 12:58:38Z heydero $

use 5.020;
use strict;
use warnings;

use Cwd;
use ExtUtils::MakeMaker;

my $VERSION = MM->parse_version('lib/AMTC/Jobdeck/Mebes.pm');

unshift @INC,
	"/sftw/amtc-common-perl/amtc-common-perl-5.20.2.1.004/lib",
	"/sftw/perl/pmp-r5.20.2.5.0/lib",
;

my $PREFIX = "/sftw/AMTC-Jobdeck-Mebes/AMTC-Jobdeck-Mebes-$VERSION";

my %Args = parse_args( @ARGV );
my @Executables = map { "bin/$_" } read_dir( 'bin' );

our %Params = (
	NAME      => 'AMTC::Jobdeck::Mebes',
	VERSION   => $VERSION,
	PREREQ_PM => {
		'AMTC::Common' => 1.004,
	},
	ABSTRACT  => 'Object model of a MEBES jobdeck',
	AUTHOR    => 'Olaf Heyder <olaf.heyder@amtc-dresden.com>',
	EXE_FILES => \@Executables,
);

$Params{PREFIX} = $Args{PREFIX} || $PREFIX;

$Params{INSTALLSITELIB} = $Args{INSTALLSITELIB} || $Params{PREFIX} . '/lib';

# See lib/ExtUtils/MakeMaker.pm for details of how to influence
# the contents of the Makefile that is written.
WriteMakefile( %Params );

exit 0;

#-----------------------------------------------------------------------------

# Parse the script arguments and return them as a hash.
sub parse_args
{
        my %args = ();

        foreach my $arg ( @_ )
        {
                if ( $arg =~ /=/ ) {
                        my ( $key, $value ) = split( /=/, $arg, 2 );
                        $args{ $key } = $value;
                }
                else {
                        $args{$arg} = 1;
                }
        }

        return %args;
}

# Return a list of file (base) names in the given directory.
sub read_dir
{
        my $dir = shift;
        return unless -d $dir;
        $dir = Cwd::abs_path $dir;
        opendir DIR, $dir or die "couldn't open $dir : $!";
        my @dir_content = grep { ! /^\.{1,2}$/  } readdir DIR;
        closedir DIR or die "couldn't close $dir : $!";
        return @dir_content;
}

# Override a ExtUtils::MM_<Platform> routine to customize the corresponding
# Makefile chunk
sub MY::post_constants
{
        my $perl5lib = join ':', @INC;

        ### Let the developer hack the lib paths while developing and testing.
        $perl5lib = "$ENV{DEVLIB}:$perl5lib" if $ENV{DEVLIB};

        my $chunk = "\nexport PERL5LIB  = $perl5lib\n";
}