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::Author;
use strict;

use CPAN::InfoObj;
@CPAN::Author::ISA = qw(CPAN::InfoObj);
use vars qw(
            $VERSION
);
$VERSION = "5.5001";

package CPAN::Author;
use strict;

#-> sub CPAN::Author::force
sub force {
    my $self = shift;
    $self->{force}++;
}

#-> sub CPAN::Author::force
sub unforce {
    my $self = shift;
    delete $self->{force};
}

#-> sub CPAN::Author::id
sub id {
    my $self = shift;
    my $id = $self->{ID};
    $CPAN::Frontend->mydie("Illegal author id[$id]") unless $id =~ /^[A-Z]/;
    $id;
}

#-> sub CPAN::Author::as_glimpse ;
sub as_glimpse {
    my($self) = @_;
    my(@m);
    my $class = ref($self);
    $class =~ s/^CPAN:://;
    push @m, sprintf(qq{%-15s %s ("%s" <%s>)\n},
                     $class,
                     $self->{ID},
                     $self->fullname,
                     $self->email);
    join "", @m;
}

#-> sub CPAN::Author::fullname ;
sub fullname {
    shift->ro->{FULLNAME};
}
*name = \&fullname;

#-> sub CPAN::Author::email ;
sub email    { shift->ro->{EMAIL}; }

#-> sub CPAN::Author::ls ;
sub ls {
    my $self = shift;
    my $glob = shift || "";
    my $silent = shift || 0;
    my $id = $self->id;

# adapted from CPAN::Distribution::verifyCHECKSUM ;
    my(@csf); # chksumfile
    @csf = $self->id =~ /(.)(.)(.*)/;
    $csf[1] = join "", @csf[0,1];
    $csf[2] = join "", @csf[1,2]; # ("A","AN","ANDK")
    my(@dl);
    @dl = $self->dir_listing([$csf[0],"CHECKSUMS"], 0, 1);
    unless (grep {$_->[2] eq $csf[1]} @dl) {
        $CPAN::Frontend->myprint("Directory $csf[1]/ does not exist\n") unless $silent ;
        return;
    }
    @dl = $self->dir_listing([@csf[0,1],"CHECKSUMS"], 0, 1);
    unless (grep {$_->[2] eq $csf[2]} @dl) {
        $CPAN::Frontend->myprint("Directory $id/ does not exist\n") unless $silent;
        return;
    }
    @dl = $self->dir_listing([@csf,"CHECKSUMS"], 1, 1);
    if ($glob) {
        if ($CPAN::META->has_inst("Text::Glob")) {
            $glob =~ s|/$|/*|;
            my $rglob = Text::Glob::glob_to_regex($glob);
            CPAN->debug("glob[$glob]rglob[$rglob]dl[@dl]") if $CPAN::DEBUG;
            my @tmpdl = grep { $_->[2] =~ /$rglob/ } @dl;
            if (1==@tmpdl && $tmpdl[0][0]==0) {
                $rglob = Text::Glob::glob_to_regex("$glob/*");
                @dl = grep { $_->[2] =~ /$rglob/ } @dl;
            } else {
                @dl = @tmpdl;
            }
            CPAN->debug("rglob[$rglob]dl[@dl]") if $CPAN::DEBUG;
        } else {
            $CPAN::Frontend->mydie("Text::Glob not installed, cannot proceed");
        }
    }
    unless ($silent >= 2) {
        $CPAN::Frontend->myprint
            (
             join "",
             map {
                 sprintf
                     (
                      "%8d %10s %s/%s%s\n",
                      $_->[0],
                      $_->[1],
                      $id,
                      $_->[2],
                      0==$_->[0]?"/":"",
                     )
                 } sort { $a->[2] cmp $b->[2] } @dl
            );
    }
    @dl;
}

# returns an array of arrays, the latter contain (size,mtime,filename)
#-> sub CPAN::Author::dir_listing ;
sub dir_listing {
    my $self = shift;
    my $chksumfile = shift;
    my $recursive = shift;
    my $may_ftp = shift;

my $lc_want =
        File::Spec->catfile($CPAN::Config->{keep_source_where},
                            "authors", "id", @$chksumfile);

my $fh;

CPAN->debug("chksumfile[@$chksumfile]recursive[$recursive]may_ftp[$may_ftp]") if $CPAN::DEBUG;
    # Purge and refetch old (pre-PGP) CHECKSUMS; they are a security
    # hazard.  (Without GPG installed they are not that much better,
    # though.)
    $fh = FileHandle->new;
    if (open($fh, $lc_want)) {
        my $line = <$fh>; close $fh;
        unlink($lc_want) unless $line =~ /PGP/;
    }

local($") = "/";
    # connect "force" argument with "index_expire".
    my $force = $self->{force};
    if (my @stat = stat $lc_want) {
        $force ||= $stat[9] + $CPAN::Config->{index_expire}*86400 <= time;
    }
    my $lc_file;
    if ($may_ftp) {
        $lc_file = eval {
            CPAN::FTP->localize
                    (
                     "authors/id/@$chksumfile",
                     $lc_want,
                     $force,
                    );
        };
        unless ($lc_file) {
            $CPAN::Frontend->myprint("Trying $lc_want.gz\n");
            $chksumfile->[-1] .= ".gz";
            $lc_file = eval {
                CPAN::FTP->localize
                        ("authors/id/@$chksumfile",
                         "$lc_want.gz",
                         1,
                        );
            };
            if ($lc_file) {
                $lc_file =~ s{\.gz(?!\n)\Z}{}; #};
                eval{CPAN::Tarzip->new("$lc_file.gz")->gunzip($lc_file)};
            } else {
                return;
            }
        }
    } else {
        $lc_file = $lc_want;
        # we *could* second-guess and if the user has a file: URL,
        # then we could look there. But on the other hand, if they do
        # have a file: URL, wy did they choose to set
        # $CPAN::Config->{show_upload_date} to false?
    }

# adapted from CPAN::Distribution::CHECKSUM_check_file ;
    $fh = FileHandle->new;
    my($cksum);
    if (open $fh, $lc_file) {
        local($/);
        my $eval = <$fh>;
        $eval =~ s/\015?\012/\n/g;
        close $fh;
        my($compmt) = Safe->new();
        $cksum = $compmt->reval($eval);
        if ($@) {
            rename $lc_file, "$lc_file.bad";
            Carp::confess($@) if $@;
        }
    } elsif ($may_ftp) {
        Carp::carp ("Could not open '$lc_file' for reading.");
    } else {
        # Maybe should warn: "You may want to set show_upload_date to a true value"
        return;
    }
    my(@result,$f);
    for $f (sort keys %$cksum) {
        if (exists $cksum->{$f}{isdir}) {
            if ($recursive) {
                my(@dir) = @$chksumfile;
                pop @dir;
                push @dir, $f, "CHECKSUMS";
                push @result, [ 0, "-", $f ];
                push @result, map {
                    [$_->[0], $_->[1], "$f/$_->[2]"]
                } $self->dir_listing(\@dir,1,$may_ftp);
            } else {
                push @result, [ 0, "-", $f ];
            }
        } else {
            push @result, [
                           ($cksum->{$f}{"size"}||0),
                           $cksum->{$f}{"mtime"}||"---",
                           $f
                          ];
        }
    }
    @result;
}

#-> sub CPAN::Author::reports
sub reports {
    $CPAN::Frontend->mywarn("reports on authors not implemented.
Please file a bugreport if you need this.\n");
}