I am a hacker in the dark of a very cold night
path :/var/www/html/vorne.webheaydemo.com
upload file:
List of files:
| name file |
size |
edit |
permission |
action |
| .editorconfig | 276 KB | March 05 2024 07:12:34 | 0666 |
|
| .env | 1385 KB | May 24 2024 16:43:55 | 0666 |
|
| .env.example | 1088 KB | March 05 2024 07:12:34 | 0666 |
|
| .gitattributes | 190 KB | March 05 2024 07:12:34 | 0666 |
|
| .gitignore | 245 KB | March 05 2024 07:12:34 | 0666 |
|
| .htaccess | 947 KB | July 04 2023 21:25:08 | 0664 |
|
| .rnd | 1024 KB | March 13 2024 04:51:14 | 0666 |
|
| README.md | 472 KB | March 22 2024 10:35:00 | 0666 |
|
| app | - | March 05 2024 07:12:34 | 0777 |
|
| artisan | 1739 KB | March 05 2024 07:12:34 | 0666 |
|
| bootstrap | - | March 05 2024 07:12:34 | 0777 |
|
| composer.json | 2829 KB | May 13 2024 12:10:04 | 0666 |
|
| composer.lock | 417205 KB | March 19 2024 12:13:14 | 0666 |
|
| config | - | July 03 2025 02:53:36 | 0777 |
|
| database | - | March 05 2024 07:12:34 | 0777 |
|
| index.php | 1816 KB | May 13 2024 10:32:36 | 0666 |
|
| lang | - | May 13 2024 14:53:26 | 0777 |
|
| manifest.json | 913 KB | May 14 2024 03:57:26 | 0664 |
|
| package.json | 398 KB | March 05 2024 07:12:34 | 0666 |
|
| phpunit.xml | 1206 KB | March 05 2024 07:12:34 | 0666 |
|
| public | - | July 03 2025 02:37:20 | 0777 |
|
| resources | - | May 13 2024 12:09:36 | 0777 |
|
| routes | - | March 05 2024 07:12:34 | 0777 |
|
| service-worker.js | 924 KB | March 05 2024 07:12:34 | 0666 |
|
| storage | - | March 05 2024 10:03:52 | 0777 |
|
| symlink.php | 218 KB | March 05 2024 07:12:34 | 0666 |
|
| tests | - | March 05 2024 07:12:34 | 0777 |
|
| vendor | - | March 19 2024 12:13:14 | 0777 |
|
| vite.config.js | 326 KB | March 05 2024 07:12:34 | 0666 |
|
#!/usr/bin/perl
# Copyright 1996-2006 Manoj Srivastava
# Copyright 2016 Ben Hutchings
#
# 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, write to the Free Software
# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
use strict;
use warnings;
use FileHandle;
use POSIX ();
sub usage {
my $fh = shift;
print $fh (<< "EOT");
Usage: $0 VERSION
This command is intended to be called from the prerm maintainer scripts
of Linux kernel packages.
The VERSION argument must be the kernel version string as shown by
'uname -r' and used in filenames.
If the currently running kernel matches VERSION, linux-check-removal
will normally prompt the user to confirm this potentially dangerous
action and will fail if the user chooses to abort. However, if the
current environment is in a chroot or container, or if debconf
prompts are disabled, it will always succeed without prompting.
EOT
}
sub usage_error {
usage(*STDERR{IO});
exit 2;
}
# Check usage early, before Debconf::Client::ConfModule initialises and
# adds its complaints about permissions
BEGIN {
if (@ARGV != 1) {
usage_error();
}
if ($ARGV[0] eq 'help' or grep({$_ eq '--help'} @ARGV)) {
usage(*STDOUT{IO});
exit 0;
}
}
# Are we in a container? Check for $container in pid 1's environment.
sub in_container {
my $res = 0;
if (my $fh = new FileHandle('/proc/1/environ', 'r')) {
local $/ = "\0";
$res = grep(/^container=/, <$fh>);
close($fh);
}
return $res;
}
# Are we in in a chroot? Compare root device and inode numbers with pid 1.
sub in_chroot {
my @my_root_st = stat('/');
my @pid1_root_st = stat('/proc/1/root');
return @my_root_st && @pid1_root_st &&
($my_root_st[0] != $pid1_root_st[0] || $my_root_st[1] != $pid1_root_st[1]);
}
sub check {
my ($version) = @_;
my (undef, undef, $running, undef, undef) = POSIX::uname();
if ($running ne $version || in_chroot() || in_container()) {
exit 0;
}
if (!exists($ENV{'DEBIAN_FRONTEND'}) ||
$ENV{'DEBIAN_FRONTEND'} ne 'noninteractive') {
use Debconf::Client::ConfModule qw(:all);
my $title = 'linux-base/removing-title';
my $question = "linux-base/removing-running-kernel";
my ($ret, $seen, $answer);
# debconf only generates a title automatically when used directly
# from a maintainer script. Also, the automatic title says we are
# 'configuring' a package but we're not.
($ret) = subst($title, 'package', $ENV{DPKG_MAINTSCRIPT_PACKAGE});
if ($ret) {
die "Failed to substitute package name in title: $ret";
}
($ret) = settitle($title);
if ($ret) {
die "Failed to set title: $ret";
}
($ret) = fset($question, 'seen', 'false');
if ($ret) {
die "Failed to reset seen flag for $question: $ret";
}
($ret) = reset($question);
if ($ret) {
die "Failed to reset answer for $question: $ret";
}
($ret) = subst($question, 'running', $running);
if ($ret) {
die "Failed to substitute version in $question: $ret";
}
($ret, $seen) = input('critical', $question);
if ($ret && $ret != 30) {
die "Failed to prepare question $question: $ret $seen";
}
($ret, $seen) = go();
if ($ret && $ret != 30) {
die "Failed to ask question $question: $ret $seen";
}
($ret, $answer) = get($question);
if ($ret) {
die "Failed to retrieve answer for $question: $ret $answer";
}
if ($answer eq 'true') {
print STDERR "E: Aborting removal of the running kernel\n";
exit 1;
}
}
print STDERR "W: Removing the running kernel\n";
exit 0;
}
check(@ARGV);