# Create a bundled file.
my @dependencies = find_dependencies();
if ($keepdirs) {
# Put absolute pathnames in the tar file.
# QUESTIONS: Does this work with multiple drive letters in Windows?
# What about UNC names?
chdir rootdir() || die “${progname}: $! (“.rootdir().“)\n”;
$ENV{“BDINPUTS”} = join (” “, map {s|^/+||; s/\”//g; “\”$_\””} @dependencies);
executecmd $uservariable{“bundle”};
}
else {
# Copy each of the dependencies to a temporary directory and tar it up.
my $tempdir = tmpnam();
my $tempdir2 = catfile $tempdir, $docdirname;
print “CREATING $tempdir\n” if $verbose;
mkdir ($tempdir, 0777) || die “${progname}: $! ($tempdir)\n”;
print “CREATING $tempdir2\n” if $verbose;
mkdir ($tempdir2, 0777) || die “${progname}: $! ($tempdir2)\n”;
foreach my $dep (@dependencies) {
# If the current dependency is in a subdirectory of the
# original location, create the same subdirectory in the
# temporary directory and copy the file there. Otherwise just
# copy it to the root of the temporary directory.
my $targetdir = $tempdir2;
if (my $sd = $subdirs{$dep}) {
$targetdir = catfile($targetdir, $sd);
unless (–d $targetdir) {
print “CREATING $targetdir\n” if $verbose;
mkpath($targetdir, 0, 0777) || die “${progname}: $! ($targetdir)\n”;
}
}
copy ($dep, $targetdir) || die “${progname}: $! ($targetdir)\n”;
}
if ($manifest ne “”) {
my $manifest = catfile $tempdir2, $manifest;
my $manifestdir = dirname $manifest;
unless (–d $manifestdir) {
print “CREATING $manifestdir\n” if $verbose;
mkpath($manifestdir, 0, 0777) || die “${progname}: $! ($manifestdir)\n”;
}
print “WRITING $manifest\n” if $verbose;
open (MANIFEST, “>$manifest”) || die “${progname}: $! ($manifest)\n”;
print MANIFEST join (“\n”, @dependencies), “\n”;
close MANIFEST;
}
chdir $tempdir || die “${progname}: $! ($tempdir)\n”;
$ENV{“BDINPUTS”} = “\”$docdirname\””;
executecmd $uservariable{“bundle”};
# Clean up our mess.
# NOTE: We rmtree $tempdir2 and rmdir $tempdir because rmtree
# complained on WinNT when trying to remove a top-level
# directory (e.g., “\s4r.”).
print “REMOVING $tempdir2\n” if $verbose;
rmtree $tempdir2, 0, 1;
chdir (updir());
print “REMOVING $tempdir\n” if $verbose;
rmdir $tempdir || die “${progname}: $! ($tempdir)\n”;
}
print “FINISHED.\n” if $verbose;
exit 0;
发表回复