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::Complete;
use strict;
@CPAN::Complete::ISA = qw(CPAN::Debug);
# Q: where is the "How do I add a new command" HOWTO?
# A: svn diff -r 1048:1049 where andk added the report command
@CPAN::Complete::COMMANDS = sort qw(
                                    ? ! a b d h i m o q r u
                                    autobundle
                                    bye
                                    clean
                                    cvs_import
                                    dump
                                    exit
                                    failed
                                    force
                                    fforce
                                    hosts
                                    install
                                    install_tested
                                    is_tested
                                    look
                                    ls
                                    make
                                    mkmyconfig
                                    notest
                                    perldoc
                                    quit
                                    readme
                                    recent
                                    recompile
                                    reload
                                    report
                                    reports
                                    scripts
                                    smoke
                                    test
                                    upgrade
);

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

package CPAN::Complete;
use strict;

sub gnu_cpl {
    my($text, $line, $start, $end) = @_;
    my(@perlret) = cpl($text, $line, $start);
    # find longest common match. Can anybody show me how to peruse
    # T::R::Gnu to have this done automatically? Seems expensive.
    return () unless @perlret;
    my($newtext) = $text;
    for (my $i = length($text)+1;;$i++) {
        last unless length($perlret[0]) && length($perlret[0]) >= $i;
        my $try = substr($perlret[0],0,$i);
        my @tries = grep {substr($_,0,$i) eq $try} @perlret;
        # warn "try[$try]tries[@tries]";
        if (@tries == @perlret) {
            $newtext = $try;
        } else {
            last;
        }
    }
    ($newtext,@perlret);
}

#-> sub CPAN::Complete::cpl ;
sub cpl {
    my($word,$line,$pos) = @_;
    $word ||= "";
    $line ||= "";
    $pos ||= 0;
    CPAN->debug("word [$word] line[$line] pos[$pos]") if $CPAN::DEBUG;
    $line =~ s/^\s*//;
    if ($line =~ s/^((?:notest|f?force)\s*)//) {
        $pos -= length($1);
    }
    my @return;
    if ($pos == 0 || $line =~ /^(?:h(?:elp)?|\?)\s/) {
        @return = grep /^\Q$word\E/, @CPAN::Complete::COMMANDS;
    } elsif ( $line !~ /^[\!abcdghimorutl]/ ) {
        @return = ();
    } elsif ($line =~ /^a\s/) {
        @return = cplx('CPAN::Author',uc($word));
    } elsif ($line =~ /^ls\s/) {
        my($author,$rest) = $word =~ m|([^/]+)/?(.*)|;
        @return = $rest ? () : map {"$_/"} cplx('CPAN::Author',uc($author||""));
        if (0 && 1==@return) { # XXX too slow and even wrong when there is a * already
            @return = grep /^\Q$word\E/, map {"$author/$_->[2]"} CPAN::Shell->expand("Author",$author)->ls("$rest*","2");
        }
    } elsif ($line =~ /^b\s/) {
        CPAN::Shell->local_bundles;
        @return = cplx('CPAN::Bundle',$word);
    } elsif ($line =~ /^d\s/) {
        @return = cplx('CPAN::Distribution',$word);
    } elsif ($line =~ m/^(
                          [mru]|make|clean|dump|get|test|install|readme|look|cvs_import|perldoc|recent
                         )\s/x ) {
        if ($word =~ /^Bundle::/) {
            CPAN::Shell->local_bundles;
        }
        @return = (cplx('CPAN::Module',$word),cplx('CPAN::Bundle',$word));
    } elsif ($line =~ /^i\s/) {
        @return = cpl_any($word);
    } elsif ($line =~ /^reload\s/) {
        @return = cpl_reload($word,$line,$pos);
    } elsif ($line =~ /^o\s/) {
        @return = cpl_option($word,$line,$pos);
    } elsif ($line =~ m/^\S+\s/ ) {
        # fallback for future commands and what we have forgotten above
        @return = (cplx('CPAN::Module',$word),cplx('CPAN::Bundle',$word));
    } else {
        @return = ();
    }
    return @return;
}

#-> sub CPAN::Complete::cplx ;
sub cplx {
    my($class, $word) = @_;
    if (CPAN::_sqlite_running()) {
        $CPAN::SQLite->search($class, "^\Q$word\E");
    }
    my $method = "id";
    $method = "pretty_id" if $class eq "CPAN::Distribution";
    sort grep /^\Q$word\E/, map { $_->$method() } $CPAN::META->all_objects($class);
}

#-> sub CPAN::Complete::cpl_any ;
sub cpl_any {
    my($word) = shift;
    return (
            cplx('CPAN::Author',$word),
            cplx('CPAN::Bundle',$word),
            cplx('CPAN::Distribution',$word),
            cplx('CPAN::Module',$word),
           );
}

#-> sub CPAN::Complete::cpl_reload ;
sub cpl_reload {
    my($word,$line,$pos) = @_;
    $word ||= "";
    my(@words) = split " ", $line;
    CPAN->debug("word[$word] line[$line] pos[$pos]") if $CPAN::DEBUG;
    my(@ok) = qw(cpan index);
    return @ok if @words == 1;
    return grep /^\Q$word\E/, @ok if @words == 2 && $word;
}

#-> sub CPAN::Complete::cpl_option ;
sub cpl_option {
    my($word,$line,$pos) = @_;
    $word ||= "";
    my(@words) = split " ", $line;
    CPAN->debug("word[$word] line[$line] pos[$pos]") if $CPAN::DEBUG;
    my(@ok) = qw(conf debug);
    return @ok if @words == 1;
    return grep /^\Q$word\E/, @ok if @words == 2 && length($word);
    if (0) {
    } elsif ($words[1] eq 'index') {
        return ();
    } elsif ($words[1] eq 'conf') {
        return CPAN::HandleConfig::cpl(@_);
    } elsif ($words[1] eq 'debug') {
        return sort grep /^\Q$word\E/i,
            sort keys %CPAN::DEBUG, 'all';
    }
}