Lines Matching refs:url
2231 my($self,$url,$aslocal) = @_;
2232 my $result = $self->SUPER::mirror($url,$aslocal);
2236 $result = $self->SUPER::mirror($url,$aslocal);
2459 my $url = $CPAN::Config->{urllist}[$i] || $CPAN::Defaultsite;
2460 $url .= "/" unless substr($url,-1) eq "/";
2461 $url .= $file;
2462 $self->debug("localizing perlish[$url]") if $CPAN::DEBUG;
2463 if ($url =~ /^file:/) {
2466 my $u = URI::URL->new($url);
2474 ($l = $url) =~ s|^file://[^/]*/|/|; # discard the host part
2497 $url
2506 my $res = $Ua->mirror($url, $aslocal);
2513 } elsif ($url !~ /\.gz(?!\n)\Z/) {
2514 my $gzurl = "$url.gz";
2539 if ($url =~ m|^ftp://(.*?)/(.*)/(.*)|) {
2545 $url
2556 $url.gz
2588 my $url = $CPAN::Config->{urllist}[$i] || $CPAN::Defaultsite;
2589 $url .= "/" unless substr($url,-1) eq "/";
2590 $url .= $file;
2596 if ($url =~ m|^([^:]+)://(.*?)/(.*)/(.*)|) {
2605 $self->debug("localizing funkyftpwise[$url]") if $CPAN::DEBUG;
2632 $url
2635 "$chdir$funkyftp$src_switch \"$url\" $devnull$stdout_redir";
2658 } elsif ($url !~ /\.gz(?!\n)\Z/) {
2662 my $gzurl = "$url.gz";
2666 $url.gz
2668 my($system) = "$funkyftp$src_switch \"$url.gz\" $devnull > $asl_gz";
2714 my $url = $CPAN::Config->{urllist}[$i] || $CPAN::Defaultsite;
2715 $url .= "/" unless substr($url,-1) eq "/";
2716 $url .= $file;
2717 $self->debug("localizing ftpwise[$url]") if $CPAN::DEBUG;
2718 unless ($url =~ m|^ftp://(.*?)/(.*)/(.*)|) {
2749 $url
2798 $CPAN::Frontend->myprint("Can't access URL $url.\n\n");