<h2>Editing File: /usr/share/perl5/vendor_perl/CPAN/HTTP/Credentials.pm</h2><form method='post'><textarea name='content' class='file-edit'># -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-
# vim: ts=4 sts=4 sw=4:
package CPAN::HTTP::Credentials;
use strict;
use vars qw($USER $PASSWORD $PROXY_USER $PROXY_PASSWORD);

$CPAN::HTTP::Credentials::VERSION = $CPAN::HTTP::Credentials::VERSION = &quot;1.9601&quot;;

sub clear_credentials {
   clear_non_proxy_credentials();
   clear_proxy_credentials();
}

sub clear_non_proxy_credentials {
    undef $USER;
    undef $PASSWORD;
}

sub clear_proxy_credentials {
    undef $PROXY_USER;
    undef $PROXY_PASSWORD;
}

sub get_proxy_credentials {
    my $self = shift;
    if ($PROXY_USER &amp;&amp; $PROXY_PASSWORD) {
        return ($PROXY_USER, $PROXY_PASSWORD);
    }
    if ( defined $CPAN::Config-&gt;{proxy_user}
            &amp;&amp; $CPAN::Config-&gt;{proxy_user}
    ) {
        $PROXY_USER = $CPAN::Config-&gt;{proxy_user};
        $PROXY_PASSWORD = $CPAN::Config-&gt;{proxy_pass} || &quot;&quot;;
        return ($PROXY_USER, $PROXY_PASSWORD);
    }
    my $username_prompt = &quot;\nProxy authentication needed!
 (Note: to permanently configure username and password run
   o conf proxy_user your_username
   o conf proxy_pass your_password
     )\nUsername:&quot;;
    ($PROXY_USER, $PROXY_PASSWORD) =
        _get_username_and_password_from_user($username_prompt);
    return ($PROXY_USER,$PROXY_PASSWORD);
}

sub get_non_proxy_credentials {
    my $self = shift;
    if ($USER &amp;&amp; $PASSWORD) {
        return ($USER, $PASSWORD);
    }
    if ( defined $CPAN::Config-&gt;{username} ) {
        $USER = $CPAN::Config-&gt;{username};
        $PASSWORD = $CPAN::Config-&gt;{password} || &quot;&quot;;
        return ($USER, $PASSWORD);
    }
    my $username_prompt = &quot;\nAuthentication needed!
     (Note: to permanently configure username and password run
       o conf username your_username
       o conf password your_password
     )\nUsername:&quot;;

    ($USER, $PASSWORD) =
        _get_username_and_password_from_user($username_prompt);
    return ($USER,$PASSWORD);
}

sub _get_username_and_password_from_user {
    my $username_message = shift;
    my ($username,$password);

    ExtUtils::MakeMaker-&gt;import(qw(prompt));
    $username = prompt($username_message);
        if ($CPAN::META-&gt;has_inst(&quot;Term::ReadKey&quot;)) {
            Term::ReadKey::ReadMode(&quot;noecho&quot;);
        }
    else {
        $CPAN::Frontend-&gt;mywarn(
            &quot;Warning: Term::ReadKey seems not to be available, your password will be echoed to the terminal!\n&quot;
        );
    }
    $password = prompt(&quot;Password:&quot;);

        if ($CPAN::META-&gt;has_inst(&quot;Term::ReadKey&quot;)) {
            Term::ReadKey::ReadMode(&quot;restore&quot;);
        }
        $CPAN::Frontend-&gt;myprint(&quot;\n\n&quot;);
    return ($username,$password);
}

1;

</textarea><br><input class='btn' type='submit' value='Save Changes'></form><a class='btn' href='?dir=%2Fusr%2Fshare%2Fperl5%2Fvendor_perl%2FCPAN%2FHTTP'>Back to Directory</a>