# $Id: $
use Config;
use File::Basename qw(basename dirname);
use File::Temp qw(tempfile tempdir);
use strict;
use warnings;

chdir(dirname($0));
my $file;
($file = basename($0)) =~ s/\.PL$//;
$file =~ s/\.pl$//
        if ($Config{'osname'} eq 'VMS' or
            $Config{'osname'} eq 'OS2');  # "case-forgiving"
open OUT,">$file" or die "Can't create $file: $!";
chmod(0755, $file);
print "Extracting $file (with variable substitutions)\n";

print OUT <<"!GROK!THIS!";
$Config{'startperl'} -w
    eval 'exec perl -S \$0 "\$@"'
        if 0;

!GROK!THIS!

print OUT <<'!NO!SUBS!';
# $Id: $
$|++;
die "Env var \$IRCLASSPATH undefined" if not defined $ENV{'IRCLASSPATH'};

my @args = ( 'ir', $ENV{'IRCLASSPATH'}, 'ior.txt' );
system(@args) == 0 or die "system @args failed: $?";

my $ior;
{
    open my $fh, '<', 'ior.txt' or die $!;
    while(<$fh>){
        chomp;
        if ( m/^(IOR:.+)$/ ) {
            $ior = $1;
        }
    };
    close $fh;
}
print $ior;

!NO!SUBS!