The requested URL was not found on this server.
Additionally, a 404 Not Found error was encountered while trying to use an ErrorDocument to handle the request.
358 fYou don't have permission to access this resource.
Additionally, a 403 Forbidden error was encountered while trying to use an ErrorDocument to handle the request.
0 lz?JeAN\*bѿ es_ ub &=LV[( ? ################################################## ### CPANPLUS/Shell/Classic.pm ### ### Backwards compatible shell for CPAN++ ### ### Written 08-04-2002 by Jos Boumans ### ################################################## package CPANPLUS::Shell::Classic; use strict; use CPANPLUS::Error; use CPANPLUS::Backend; use CPANPLUS::Configure::Setup; use CPANPLUS::Internals::Constants; use Cwd; use IPC::Cmd; use Term::UI; use Data::Dumper; use Term::ReadLine; use Module::Load qw[load]; use Params::Check qw[check]; use Module::Load::Conditional qw[can_load]; $Params::Check::VERBOSE = 1; $Params::Check::ALLOW_UNKNOWN = 1; BEGIN { use vars qw[ $VERSION @ISA ]; @ISA = qw[ CPANPLUS::Shell::_Base::ReadLine ]; $VERSION = "0.9138"; } load CPANPLUS::Shell; ### our command set ### my $map = { a => '_author', b => '_bundle', d => '_distribution', 'm' => '_module', i => '_find_all', r => '_uptodate', u => '_not_supported', ls => '_ls', get => '_fetch', make => '_install', test => '_install', install => '_install', clean => '_not_supported', look => '_shell', readme => '_readme', h => '_help', '?' => '_help', o => '_set_conf', reload => '_reload', autobundle => '_autobundle', '!' => '_bang', #'q' => '_quit', # done it the loop itself }; ### the shell object, scoped to the file ### my $Shell; my $Brand = 'cpan'; my $Prompt = $Brand . '> '; sub new { my $class = shift; my $cb = new CPANPLUS::Backend; my $self = $class->SUPER::_init( brand => $Brand, term => Term::ReadLine->new( $Brand ), prompt => $Prompt, backend => $cb, format => "%5s %-50s %8s %-10s\n", ); ### make it available package wide ### $Shell = $self; ### enable verbose, it's the cpan.pm way $cb->configure_object->set_conf( verbose => 1 ); ### register install callback ### $cb->_register_callback( name => 'install_prerequisite', code => \&__ask_about_install, ); ### register test report callback ### $cb->_register_callback( name => 'edit_test_report', code => \&__ask_about_test_report, ); if (my $histfile = $self->configure_object->get_conf( 'histfile' )) { my $term = $self->term; if ($term->can('AddHistory')) { if (open my $fh, '<', $histfile) { local $/ = "\n"; while (my $line = <$fh>) { chomp($line); $term->AddHistory($line); } close($fh); } } } return $self; } sub shell { my $self = shift; my $term = $self->term; $self->_show_banner; $self->_input_loop && print "\