Gecko [ www.leshallesdegournay.geraud-market.com ]

Name	Size	Permission	Date
API	[ DIR ]	drwxr-xr-x	2026-08-17 16:10
Exception	[ DIR ]	drwxr-xr-x	2026-08-17 16:10
FTP	[ DIR ]	drwxr-xr-x	2026-08-17 16:10
HTTP	[ DIR ]	drwxr-xr-x	2026-08-17 16:10
Kwalify	[ DIR ]	drwxr-xr-x	2026-08-17 16:10
LWP	[ DIR ]	drwxr-xr-x	2026-08-17 16:10
Plugin	[ DIR ]	drwxr-xr-x	2019-06-17 23:11
Admin.pm	7.61 KB	-r--r--r--	2018-11-27 03:51
Author.pm	6.68 KB	-rw-r--r--	2026-08-05 21:35
Bundle.pm	9.03 KB	-rw-r--r--	2026-08-05 21:35
CacheMgr.pm	7.48 KB	-rw-r--r--	2026-08-05 21:35
Complete.pm	5.85 KB	-rw-r--r--	2026-08-05 21:35
Config.pm	9.87 KB	-rw-r--r--	2018-05-21 22:36
Config.pm.1500328734	10.07 KB	-rw-r--r--	2017-07-03 22:10
Config.pm.1505776020	10.11 KB	-rw-r--r--	2017-07-17 23:58
Config.pm.1506626567	9.9 KB	-rw-r--r--	2017-09-19 01:07
Config.pm.1508361445	9.8 KB	-rw-r--r--	2017-09-28 21:22
Config.pm.1508484266	9.86 KB	-rw-r--r--	2017-10-18 23:17
Config.pm.1508803791	9.86 KB	-rw-r--r--	2017-10-20 09:24
Config.pm.1509069141	9.86 KB	-rw-r--r--	2017-10-24 02:09
Config.pm.1509075030	9.83 KB	-rw-r--r--	2017-10-27 03:52
Config.pm.1509320658	9.83 KB	-rw-r--r--	2017-10-27 05:30
Config.pm.1509605174	9.83 KB	-rw-r--r--	2017-10-30 00:44
Config.pm.1509618004	9.83 KB	-rw-r--r--	2017-11-02 07:46
Config.pm.1510790326	9.84 KB	-rw-r--r--	2017-11-02 11:20
Config.pm.1511208441	9.93 KB	-rw-r--r--	2017-11-16 00:58
Config.pm.1511833575	9.93 KB	-rw-r--r--	2017-11-20 21:07
Config.pm.1512594277	9.98 KB	-rw-r--r--	2017-11-28 02:46
Config.pm.1513124948	9.95 KB	-rw-r--r--	2017-12-06 22:04
Config.pm.1513794700	9.88 KB	-rw-r--r--	2017-12-13 01:29
Config.pm.1515172034	9.86 KB	-rw-r--r--	2017-12-20 19:31
Config.pm.1515698556	9.81 KB	-rw-r--r--	2018-01-05 18:07
Config.pm.1516056180	9.76 KB	-rw-r--r--	2018-01-11 20:22
Config.pm.1516668819	9.72 KB	-rw-r--r--	2018-01-15 23:43
Config.pm.1518479917	9.82 KB	-rw-r--r--	2018-01-23 01:53
Config.pm.1518561930	9.82 KB	-rw-r--r--	2018-02-13 00:58
Config.pm.1521065949	9.82 KB	-rw-r--r--	2018-02-13 23:45
Config.pm.1521074184	9.81 KB	-rw-r--r--	2018-03-14 23:19
Config.pm.1521493458	9.81 KB	-rw-r--r--	2018-03-15 01:36
Config.pm.1521518627	9.28 KB	-rw-r--r--	2018-03-19 22:04
Config.pm.1526935016	9.28 KB	-rw-r--r--	2018-03-20 05:03
Debug.pm	2.05 KB	-rw-r--r--	2026-08-05 21:35
DeferredCode.pm	189 B	-rw-r--r--	2026-08-05 21:35
Distribution.pm	145.09 KB	-rw-r--r--	2026-08-05 21:35
Distroprefs.pm	10.84 KB	-rw-r--r--	2026-08-05 21:35
Distrostatus.pm	972 B	-rw-r--r--	2026-08-05 21:35
FTP.pm	41.19 KB	-rw-r--r--	2026-08-05 21:35
FirstTime.pm	66.98 KB	-rw-r--r--	2026-08-05 21:35
HandleConfig.pm	22.61 KB	-rw-r--r--	2026-08-05 21:35
Index.pm	21.43 KB	-rw-r--r--	2026-08-05 21:35
InfoObj.pm	6.75 KB	-rw-r--r--	2026-08-05 21:35
Kwalify.pm	3.35 KB	-rw-r--r--	2026-08-05 21:35
Mirrors.pm	14.55 KB	-rw-r--r--	2026-08-05 21:35
Module.pm	21.52 KB	-rw-r--r--	2026-08-05 21:35
Nox.pm	928 B	-rw-r--r--	2026-08-05 21:35
Plugin.pm	3.14 KB	-r--r--r--	2018-11-27 03:51
Prompt.pm	567 B	-rw-r--r--	2026-08-05 21:35
Queue.pm	6.31 KB	-rw-r--r--	2026-08-05 21:35
Shell.pm	68.45 KB	-rw-r--r--	2026-08-05 21:35
Tarzip.pm	15.69 KB	-rw-r--r--	2026-08-05 21:35
URL.pm	588 B	-rw-r--r--	2026-08-05 21:35
Version.pm	4.21 KB	-rw-r--r--	2026-08-05 21:35

Rename

# -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-
# vim: ts=4 sts=4 sw=4:
package CPAN::CacheMgr;
use strict;
use CPAN::InfoObj;
@CPAN::CacheMgr::ISA = qw(CPAN::InfoObj CPAN);
use Cwd qw(chdir);
use File::Find;

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

package CPAN::CacheMgr;
use strict;

#-> sub CPAN::CacheMgr::as_string ;
sub as_string {
    eval { require Data::Dumper };
    if ($@) {
        return shift->SUPER::as_string;
    } else {
        return Data::Dumper::Dumper(shift);
    }
}

#-> sub CPAN::CacheMgr::cachesize ;
sub cachesize {
    shift->{DU};
}

#-> sub CPAN::CacheMgr::tidyup ;
sub tidyup {
  my($self) = @_;
  return unless $CPAN::META->{LOCK};
  return unless -d $self->{ID};
  my @toremove = grep { $self->{SIZE}{$_}==0 } @{$self->{FIFO}};
  for my $current (0..$#toremove) {
    my $toremove = $toremove[$current];
    $CPAN::Frontend->myprint(sprintf(
                                     "DEL(%d/%d): %s \n",
                                     $current+1,
                                     scalar @toremove,
                                     $toremove,
                                    )
                            );
    return if $CPAN::Signal;
    $self->_clean_cache($toremove);
    return if $CPAN::Signal;
  }
  $self->{FIFO} = [];
}

#-> sub CPAN::CacheMgr::dir ;
sub dir {
    shift->{ID};
}

#-> sub CPAN::CacheMgr::entries ;
sub entries {
    my($self,$dir) = @_;
    return unless defined $dir;
    $self->debug("reading dir[$dir]") if $CPAN::DEBUG;
    $dir ||= $self->{ID};
    my($cwd) = CPAN::anycwd();
    chdir $dir or Carp::croak("Can't chdir to $dir: $!");
    my $dh = DirHandle->new(File::Spec->curdir)
        or Carp::croak("Couldn't opendir $dir: $!");
    my(@entries);
    for ($dh->read) {
        next if $_ eq "." || $_ eq "..";
        if (-f $_) {
            push @entries, File::Spec->catfile($dir,$_);
        } elsif (-d _) {
            push @entries, File::Spec->catdir($dir,$_);
        } else {
            $CPAN::Frontend->mywarn("Warning: weird direntry in $dir: $_\n");
        }
    }
    chdir $cwd or Carp::croak("Can't chdir to $cwd: $!");
    sort { -M $a <=> -M $b} @entries;
}

#-> sub CPAN::CacheMgr::disk_usage ;
sub disk_usage {
    my($self,$dir,$fast) = @_;
    return if exists $self->{SIZE}{$dir};
    return if $CPAN::Signal;
    my($Du) = 0;
    if (-e $dir) {
        if (-d $dir) {
            unless (-x $dir) {
                unless (chmod 0755, $dir) {
                    $CPAN::Frontend->mywarn("I have neither the -x permission nor the ".
                                            "permission to change the permission; cannot ".
                                            "estimate disk usage of '$dir'\n");
                    $CPAN::Frontend->mysleep(5);
                    return;
                }
            }
        } elsif (-f $dir) {
            # nothing to say, no matter what the permissions
        }
    } else {
        $CPAN::Frontend->mywarn("File or directory '$dir' has gone, ignoring\n");
        return;
    }
    if ($fast) {
        $Du = 0; # placeholder
    } else {
        find(
             sub {
           $File::Find::prune++ if $CPAN::Signal;
           return if -l $_;
           if ($^O eq 'MacOS') {
             require Mac::Files;
             my $cat  = Mac::Files::FSpGetCatInfo($_);
             $Du += $cat->ioFlLgLen() + $cat->ioFlRLgLen() if $cat;
           } else {
             if (-d _) {
               unless (-x _) {
                 unless (chmod 0755, $_) {
                   $CPAN::Frontend->mywarn("I have neither the -x permission nor ".
                                           "the permission to change the permission; ".
                                           "can only partially estimate disk usage ".
                                           "of '$_'\n");
                   $CPAN::Frontend->mysleep(5);
                   return;
                 }
               }
             } else {
               $Du += (-s _);
             }
           }
         },
         $dir
            );
    }
    return if $CPAN::Signal;
    $self->{SIZE}{$dir} = $Du/1024/1024;
    unshift @{$self->{FIFO}}, $dir;
    $self->debug("measured $dir is $Du") if $CPAN::DEBUG;
    $self->{DU} += $Du/1024/1024;
    $self->{DU};
}

#-> sub CPAN::CacheMgr::_clean_cache ;
sub _clean_cache {
    my($self,$dir) = @_;
    return unless -e $dir;
    unless (File::Spec->canonpath(File::Basename::dirname($dir))
            eq File::Spec->canonpath($CPAN::Config->{build_dir})) {
        $CPAN::Frontend->mywarn("Directory '$dir' not below $CPAN::Config->{build_dir}, ".
                                "will not remove\n");
        $CPAN::Frontend->mysleep(5);
        return;
    }
    $self->debug("have to rmtree $dir, will free $self->{SIZE}{$dir}")
        if $CPAN::DEBUG;
    File::Path::rmtree($dir);
    my $id_deleted = 0;
    if ($dir !~ /\.yml$/ && -f "$dir.yml") {
        my $yaml_module = CPAN::_yaml_module();
        if ($CPAN::META->has_inst($yaml_module)) {
            my($peek_yaml) = eval { CPAN->_yaml_loadfile("$dir.yml"); };
            if ($@) {
                $CPAN::Frontend->mywarn("(parse error on '$dir.yml' removing anyway)");
                unlink "$dir.yml" or
                    $CPAN::Frontend->mywarn("(Could not unlink '$dir.yml': $!)");
                return;
            } elsif (my $id = $peek_yaml->[0]{distribution}{ID}) {
                $CPAN::META->delete("CPAN::Distribution", $id);

# XXX we should restore the state NOW, otherise this
                # distro does not exist until we read an index. BUG ALERT(?)

# $CPAN::Frontend->mywarn (" +++\n");
                $id_deleted++;
            }
        }
        unlink "$dir.yml"; # may fail
        unless ($id_deleted) {
            CPAN->debug("no distro found associated with '$dir'");
        }
    }
    $self->{DU} -= $self->{SIZE}{$dir};
    delete $self->{SIZE}{$dir};
}

#-> sub CPAN::CacheMgr::new ;
sub new {
    my($class,$phase) = @_;
    $phase ||= "atstart";
    my $time = time;
    my($debug,$t2);
    $debug = "";
    my $self = {
        ID => $CPAN::Config->{build_dir},
        MAX => $CPAN::Config->{'build_cache'},
        SCAN => $CPAN::Config->{'scan_cache'} || 'atstart',
        DU => 0
    };
    $CPAN::Frontend->mydie("Unknown scan_cache argument: $self->{SCAN}")
        unless $self->{SCAN} =~ /never|atstart|atexit/;
    File::Path::mkpath($self->{ID});
    my $dh = DirHandle->new($self->{ID});
    bless $self, $class;
    $self->scan_cache($phase);
    $t2 = time;
    $debug .= "timing of CacheMgr->new: ".($t2 - $time);
    $time = $t2;
    CPAN->debug($debug) if $CPAN::DEBUG;
    $self;
}

#-> sub CPAN::CacheMgr::scan_cache ;
sub scan_cache {
    my ($self, $phase) = @_;
    $phase = '' unless defined $phase;
    return unless $phase eq $self->{SCAN};
    return unless $CPAN::META->{LOCK};
    $CPAN::Frontend->myprint(
                             sprintf("Scanning cache %s for sizes\n",
                             $self->{ID}));
    my $e;
    my @entries = $self->entries($self->{ID});
    my $i = 0;
    my $painted = 0;
    for $e (@entries) {
        my $symbol = ".";
        if ($self->{DU} > $self->{MAX}) {
            $symbol = "-";
            $self->disk_usage($e,1);
        } else {
            $self->disk_usage($e);
        }
        $i++;
        while (($painted/76) < ($i/@entries)) {
            $CPAN::Frontend->myprint($symbol);
            $painted++;
        }
        return if $CPAN::Signal;
    }
    $CPAN::Frontend->myprint("DONE\n");
    $self->tidyup;
}