festival.edmaven.com:80

Linux b747.shapiroconsult.com 3.10.0-1160.119.1.vz7.224.4 #1 SMP Mon Sep 30 15:36:27 MSK 2024 x86_64
Apache
173.231.212.80

File Name : Bundle.pm

# -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-
# vim: ts=4 sts=4 sw=4:
package CPAN::Bundle;
use strict;
use CPAN::Module;
@CPAN::Bundle::ISA = qw(CPAN::Module);

use vars qw(
            $VERSION
);
$VERSION = "5.5";

sub look {
    my $self = shift;
    $CPAN::Frontend->myprint($self->as_string);
}

#-> CPAN::Bundle::undelay
sub undelay {
    my $self = shift;
    delete $self->{later};
    for my $c ( $self->contains ) {
        my $obj = CPAN::Shell->expandany($c) or next;
        $obj->undelay;
    }
}

# mark as dirty/clean
#-> sub CPAN::Bundle::color_cmd_tmps ;
sub color_cmd_tmps {
    my($self) = shift;
    my($depth) = shift || 0;
    my($color) = shift || 0;
    my($ancestors) = shift || [];
    # a module needs to recurse to its cpan_file, a distribution needs
    # to recurse into its prereq_pms, a bundle needs to recurse into its modules

return if exists $self->{incommandcolor}
        && $color==1
        && $self->{incommandcolor}==$color;
    if ($depth>=$CPAN::MAX_RECURSION) {
        die(CPAN::Exception::RecursiveDependency->new($ancestors));
    }
    # warn "color_cmd_tmps $depth $color " . $self->id; # sleep 1;

for my $c ( $self->contains ) {
        my $obj = CPAN::Shell->expandany($c) or next;
        CPAN->debug("c[$c]obj[$obj]") if $CPAN::DEBUG;
        $obj->color_cmd_tmps($depth+1,$color,[@$ancestors, $self->id]);
    }
    # never reached code?
    #if ($color==0) {
      #delete $self->{badtestcnt};
    #}
    $self->{incommandcolor} = $color;
}

#-> sub CPAN::Bundle::as_string ;
sub as_string {
    my($self) = @_;
    $self->contains;
    # following line must be "=", not "||=" because we have a moving target
    $self->{INST_VERSION} = $self->inst_version;
    return $self->SUPER::as_string;
}

#-> sub CPAN::Bundle::contains ;
sub contains {
    my($self) = @_;
    my($inst_file) = $self->inst_file || "";
    my($id) = $self->id;
    $self->debug("inst_file[$inst_file]id[$id]") if $CPAN::DEBUG;
    if ($inst_file && CPAN::Version->vlt($self->inst_version,$self->cpan_version)) {
        undef $inst_file;
    }
    unless ($inst_file) {
        # Try to get at it in the cpan directory
        $self->debug("no inst_file") if $CPAN::DEBUG;
        my $cpan_file;
        $CPAN::Frontend->mydie("I don't know a bundle with ID $id\n") unless
              $cpan_file = $self->cpan_file;
        if ($cpan_file eq "N/A") {
            $CPAN::Frontend->mydie("Bundle $id not found on disk and not on CPAN.
  Maybe stale symlink? Maybe removed during session? Giving up.\n");
        }
        my $dist = $CPAN::META->instance('CPAN::Distribution',
                                         $self->cpan_file);
        $self->debug("before get id[$dist->{ID}]") if $CPAN::DEBUG;
        $dist->get;
        $self->debug("after get id[$dist->{ID}]") if $CPAN::DEBUG;
        my($todir) = $CPAN::Config->{'cpan_home'};
        my(@me,$from,$to,$me);
        @me = split /::/, $self->id;
        $me[-1] .= ".pm";
        $me = File::Spec->catfile(@me);
        $from = $self->find_bundle_file($dist->{build_dir},join('/',@me));
        $to = File::Spec->catfile($todir,$me);
        File::Path::mkpath(File::Basename::dirname($to));
        File::Copy::copy($from, $to)
              or Carp::confess("Couldn't copy $from to $to: $!");
        $inst_file = $to;
    }
    my @result;
    my $fh = FileHandle->new;
    local $/ = "\n";
    open($fh,$inst_file) or die "Could not open '$inst_file': $!";
    my $in_cont = 0;
    $self->debug("inst_file[$inst_file]") if $CPAN::DEBUG;
    while (<$fh>) {
        $in_cont = m/^=(?!head1\s+(?i-xsm:CONTENTS))/ ? 0 :
            m/^=head1\s+(?i-xsm:CONTENTS)/ ? 1 : $in_cont;
        next unless $in_cont;
        next if /^=/;
        s/\#.*//;
        next if /^\s+$/;
        chomp;
        push @result, (split " ", $_, 2)[0];
    }
    close $fh;
    delete $self->{STATUS};
    $self->{CONTAINS} = \@result;
    $self->debug("CONTAINS[@result]") if $CPAN::DEBUG;
    unless (@result) {
        $CPAN::Frontend->mywarn(qq{
The bundle file "$inst_file" may be a broken
bundlefile. It seems not to contain any bundle definition.
Please check the file and if it is bogus, please delete it.
Sorry for the inconvenience.
});
    }
    @result;
}

#-> sub CPAN::Bundle::find_bundle_file
# $where is in local format, $what is in unix format
sub find_bundle_file {
    my($self,$where,$what) = @_;
    $self->debug("where[$where]what[$what]") if $CPAN::DEBUG;
### The following two lines let CPAN.pm become Bundle/CPAN.pm :-(
###    my $bu = File::Spec->catfile($where,$what);
###    return $bu if -f $bu;
    my $manifest = File::Spec->catfile($where,"MANIFEST");
    unless (-f $manifest) {
        require ExtUtils::Manifest;
        my $cwd = CPAN::anycwd();
        $self->safe_chdir($where);
        ExtUtils::Manifest::mkmanifest();
        $self->safe_chdir($cwd);
    }
    my $fh = FileHandle->new($manifest)
        or Carp::croak("Couldn't open $manifest: $!");
    local($/) = "\n";
    my $bundle_filename = $what;
    $bundle_filename =~ s|Bundle.*/||;
    my $bundle_unixpath;
    while (<$fh>) {
        next if /^\s*\#/;
        my($file) = /(\S+)/;
        if ($file =~ m|\Q$what\E$|) {
            $bundle_unixpath = $file;
            # return File::Spec->catfile($where,$bundle_unixpath); # bad
            last;
        }
        # retry if she managed to have no Bundle directory
        $bundle_unixpath = $file if $file =~ m|\Q$bundle_filename\E$|;
    }
    return File::Spec->catfile($where, split /\//, $bundle_unixpath)
        if $bundle_unixpath;
    Carp::croak("Couldn't find a Bundle file in $where");
}

# needs to work quite differently from Module::inst_file because of
# cpan_home/Bundle/ directory and the possibility that we have
# shadowing effect. As it makes no sense to take the first in @INC for
# Bundles, we parse them all for $VERSION and take the newest.

#-> sub CPAN::Bundle::inst_file ;
sub inst_file {
    my($self) = @_;
    my($inst_file);
    my(@me);
    @me = split /::/, $self->id;
    $me[-1] .= ".pm";
    my($incdir,$bestv);
    foreach $incdir ($CPAN::Config->{'cpan_home'},@INC) {
        my $parsefile = File::Spec->catfile($incdir, @me);
        CPAN->debug("parsefile[$parsefile]") if $CPAN::DEBUG;
        next unless -f $parsefile;
        my $have = eval { MM->parse_version($parsefile); };
        if ($@) {
            $CPAN::Frontend->mywarn("Error while parsing version number in file '$parsefile'\n");
        }
        if (!$bestv || CPAN::Version->vgt($have,$bestv)) {
            $self->{INST_FILE} = $parsefile;
            $self->{INST_VERSION} = $bestv = $have;
        }
    }
    $self->{INST_FILE};
}

#-> sub CPAN::Bundle::inst_version ;
sub inst_version {
    my($self) = @_;
    $self->inst_file; # finds INST_VERSION as side effect
    $self->{INST_VERSION};
}

#-> sub CPAN::Bundle::rematein ;
sub rematein {
    my($self,$meth) = @_;
    $self->debug("self[$self] meth[$meth]") if $CPAN::DEBUG;
    my($id) = $self->id;
    Carp::croak( "Can't $meth $id, don't have an associated bundle file. :-(\n" )
        unless $self->inst_file || $self->cpan_file;
    my($s,%fail);
    for $s ($self->contains) {
        my($type) = $s =~ m|/| ? 'CPAN::Distribution' :
            $s =~ m|^Bundle::| ? 'CPAN::Bundle' : 'CPAN::Module';
        if ($type eq 'CPAN::Distribution') {
            $CPAN::Frontend->mywarn(qq{
The Bundle }.$self->id.qq{ contains
explicitly a file '$s'.
Going to $meth that.
});
            $CPAN::Frontend->mysleep(5);
        }
        # possibly noisy action:
        $self->debug("type[$type] s[$s]") if $CPAN::DEBUG;
        my $obj = $CPAN::META->instance($type,$s);
        $obj->{reqtype} = $self->{reqtype};
        $obj->$meth();
    }
}

# If a bundle contains another that contains an xs_file we have here,
# we just don't bother I suppose
#-> sub CPAN::Bundle::xs_file
sub xs_file {
    return 0;
}

#-> sub CPAN::Bundle::force ;
sub fforce   { shift->rematein('fforce',@_); }
#-> sub CPAN::Bundle::force ;
sub force   { shift->rematein('force',@_); }
#-> sub CPAN::Bundle::notest ;
sub notest  { shift->rematein('notest',@_); }
#-> sub CPAN::Bundle::get ;
sub get     { shift->rematein('get',@_); }
#-> sub CPAN::Bundle::make ;
sub make    { shift->rematein('make',@_); }
#-> sub CPAN::Bundle::test ;
sub test    {
    my $self = shift;
    # $self->{badtestcnt} ||= 0;
    $self->rematein('test',@_);
}
#-> sub CPAN::Bundle::install ;
sub install {
  my $self = shift;
  $self->rematein('install',@_);
}
#-> sub CPAN::Bundle::clean ;
sub clean   { shift->rematein('clean',@_); }

#-> sub CPAN::Bundle::uptodate ;
sub uptodate {
    my($self) = @_;
    return 0 unless $self->SUPER::uptodate; # we mut have the current Bundle def
    my $c;
    foreach $c ($self->contains) {
        my $obj = CPAN::Shell->expandany($c);
        return 0 unless $obj->uptodate;
    }
    return 1;
}

#-> sub CPAN::Bundle::readme ;
sub readme  {
    my($self) = @_;
    my($file) = $self->cpan_file or $CPAN::Frontend->myprint(qq{
No File found for bundle } . $self->id . qq{\n}), return;
    $self->debug("self[$self] file[$file]") if $CPAN::DEBUG;
    $CPAN::META->instance('CPAN::Distribution',$file)->readme;
}

Name	Type	Size	Owner/Group	Permission	Last Modified	Actions
.	dir	-	root/root	0755	2024-07-03 03:51:29
..	dir	-	root/root	0755	2024-07-03 03:51:29
API	dir	-	root/root	0755	2024-07-03 03:51:29
Exception	dir	-	root/root	0755	2024-07-03 03:51:29
FTP	dir	-	root/root	0755	2024-07-03 03:51:29
HTTP	dir	-	root/root	0755	2024-07-03 03:51:29
Kwalify	dir	-	root/root	0755	2024-07-03 03:51:29
LWP	dir	-	root/root	0755	2024-07-03 03:51:29
Plugin	dir	-	root/root	0755	2019-06-01 12:53:47
Admin.pm	text/plain	7.61 KB	root/root	0444	2018-11-27 02:51:46
Author.pm	text/plain	6.68 KB	root/root	0644	2023-10-25 12:36:11
Bundle.pm	text/plain	9.03 KB	root/root	0644	2023-10-25 12:36:11
CacheMgr.pm	text/plain	7.48 KB	root/root	0644	2023-10-25 12:36:11
Complete.pm	text/plain	5.85 KB	root/root	0644	2023-10-25 12:36:11
Config.pm	text/plain	9.87 KB	root/root	0644	2018-05-08 07:08:38
Config.pm.1480440447	text/plain	9.03 KB	root/root	0644	2016-10-25 06:08:27
Config.pm.1480440939	text/plain	9 KB	root/root	0644	2016-11-29 05:27:27
Config.pm.1486794852	text/plain	9 KB	root/root	0644	2016-11-29 05:35:39
Config.pm.1487052824	text/plain	8.94 KB	root/root	0644	2017-02-11 06:34:12
Config.pm.1487311871	text/plain	8.94 KB	root/root	0644	2017-02-14 06:13:44
Config.pm.1491931660	text/plain	9.03 KB	root/root	0644	2017-02-17 06:11:11
Config.pm.1491934167	text/plain	8.89 KB	root/root	0644	2017-04-11 05:27:40
Config.pm.1491938308	text/plain	8.89 KB	root/root	0644	2017-04-11 06:09:27
Config.pm.1497542960	text/plain	8.89 KB	root/root	0644	2017-04-11 07:18:28
Config.pm.1499870349	text/plain	10.11 KB	root/root	0644	2017-06-15 04:09:20
Config.pm.1499922463	text/plain	10.11 KB	root/root	0644	2017-07-12 02:39:09
Config.pm.1500008925	text/plain	10.11 KB	root/root	0644	2017-07-13 05:07:43
Config.pm.1500354487	text/plain	10.11 KB	root/root	0644	2017-07-14 05:08:45
Config.pm.1501045650	text/plain	10.11 KB	root/root	0644	2017-07-18 05:08:07
Config.pm.1503681199	text/plain	10.08 KB	root/root	0644	2017-07-26 05:07:30
Config.pm.1503983891	text/plain	10.04 KB	root/root	0644	2017-08-25 05:13:19
Config.pm.1504674495	text/plain	9.57 KB	root/root	0644	2017-08-29 05:18:11
Config.pm.1505935226	text/plain	9.93 KB	root/root	0644	2017-09-06 05:08:15
Config.pm.1508269850	text/plain	9.93 KB	root/root	0644	2017-09-20 07:20:26
Config.pm.1511817034	text/plain	9.83 KB	root/root	0644	2017-10-17 07:50:50
Config.pm.1511817199	text/plain	9.98 KB	root/root	0644	2017-11-27 09:10:34
Config.pm.1513277983	text/plain	9.98 KB	root/root	0644	2017-11-27 09:13:19
Config.pm.1515823905	text/plain	9.9 KB	root/root	0644	2017-12-14 06:59:43
Config.pm.1516082887	text/plain	9.82 KB	root/root	0644	2018-01-13 06:11:45
Config.pm.1516687734	text/plain	9.82 KB	root/root	0644	2018-01-16 06:08:07
Config.pm.1517292851	text/plain	9.82 KB	root/root	0644	2018-01-23 06:08:54
Config.pm.1519193586	text/plain	9.82 KB	root/root	0644	2018-01-30 06:14:11
Config.pm.1520453683	text/plain	9.79 KB	root/root	0644	2018-02-21 06:13:06
Config.pm.1525806518	text/plain	9.81 KB	root/root	0644	2018-03-07 08:14:43
Config.pm~	text/plain	8.97 KB	root/root	0644	2016-10-20 04:52:25
Debug.pm	text/plain	2.05 KB	root/root	0644	2023-10-25 12:36:11
DeferredCode.pm	text/plain	189 B	root/root	0644	2023-10-25 12:36:11
Distribution.pm	text/plain	145.09 KB	root/root	0644	2023-10-25 12:36:11
Distroprefs.pm	text/plain	10.84 KB	root/root	0644	2023-10-25 12:36:11
Distrostatus.pm	text/plain	972 B	root/root	0644	2023-10-25 12:36:11
FTP.pm	text/plain	41.19 KB	root/root	0644	2023-10-25 12:36:11
FirstTime.pm	text/plain	66.98 KB	root/root	0644	2023-10-25 12:36:11
HandleConfig.pm	text/plain	22.61 KB	root/root	0644	2023-10-25 12:36:11
Index.pm	text/plain	21.43 KB	root/root	0644	2023-10-25 12:36:11
InfoObj.pm	text/plain	6.75 KB	root/root	0644	2023-10-25 12:36:11
Kwalify.pm	text/plain	3.35 KB	root/root	0644	2023-10-25 12:36:11
Mirrors.pm	text/plain	14.55 KB	root/root	0644	2023-10-25 12:36:11
Module.pm	text/plain	21.52 KB	root/root	0644	2023-10-25 12:36:11
Nox.pm	text/plain	928 B	root/root	0644	2023-10-25 12:36:11
Plugin.pm	text/plain	3.14 KB	root/root	0444	2018-11-27 02:51:46
Prompt.pm	text/plain	567 B	root/root	0644	2023-10-25 12:36:11
Queue.pm	text/plain	6.31 KB	root/root	0644	2023-10-25 12:36:11
Shell.pm	text/plain	68.45 KB	root/root	0644	2023-10-25 12:36:11
Tarzip.pm	text/plain	15.69 KB	root/root	0644	2023-10-25 12:36:11
URL.pm	text/plain	588 B	root/root	0644	2023-10-25 12:36:11
Version.pm	text/plain	4.21 KB	root/root	0644	2023-10-25 12:36:11