my ($title, $parent) = ('Character overview');
my $query = eval {
- for ($ENV{PATH_INFO} || ()) {
- s{^/}{};
+ for ($Request || ()) {
return $_ if m{^[0-9 +-]+$};
my ($cat, $name) = split m{/}, $_, 2 or die "invalid query\n";
();
}
} map { defined $ALIAS{$_} ? @{ $ALIAS{$_} } : $_ }
- $ENV{PATH_INFO} =~ /\w/ ? split(m{[/+\s]}, $ENV{PATH_INFO}) : 'default';
+ $Request =~ /\w/ ? split(m{[/+\s]}, $Request) : 'default';
my $NOCHAR = chr 0xFFFD;
for my $cp437 (grep {$request[$_]->{set} eq 'cp437'} 0 .. $#request) {
our $Time = [Time::HiRes::gettimeofday];
}
+# user request
+our $Dev = $ENV{HTTP_HOST} =~ /\bdev\./;
+our ($file) = $ENV{SCRIPT_FILENAME} =~ m{ ([^/]+) \.plp$ }x;
+our $Request = $ENV{PATH_INFO} =~ s{^/}{}r;
+
our $style;
our $showkeys = !exists $get{keys} ? undef :
($get{keys} ne '0' && ($get{keys} || 'always'));
'<script type="text/javascript" src="/keys.js?1.6"></script>',
) if $meta->{keys};
- # other vars
- my $Dev = $ENV{HTTP_HOST} =~ /\bdev\./;
- my ($file) = $ENV{SCRIPT_FILENAME} =~ m{ ([^/]+) \.plp$ }x;
-
# leading output
$header{content_type} = "text/html; charset=$meta->{charset}";
say '<!DOCTYPE html>';
<(common.inc.plp)><:
-my $mode = ($ENV{PATH_INFO} // '') eq '/xorg' || exists $get{xorg};
+my $mode = ($Request // '') eq 'xorg' || exists $get{xorg};
my $modename = $mode ? 'X.Org' : 'RFC-1345';
Html({
<(common.inc.plp)><:
-my $font = $ENV{PATH_INFO} =~ s{^/}{}r;
+my $font = $Request;
Html({
title => 'font coverage '.($font ? "for $font" : 'sheet'),
major => 1,
);
-if ($ENV{PATH_INFO} and $ENV{PATH_INFO} eq '/2') {
+if ($Request and $Request eq '2') {
%scver = (
id => 'hots',
name => 'Heart of the Swarm',
<(common.inc.plp)><:
-my $source = $ENV{PATH_INFO};
-$source =~ s{^/}{};
+my $source = $Request;
if ($source =~ s{(?<=\Q.inc.pl\E)/jsonp?$}{} and -r $source) {
# convert perl include to json construct
$get{img} // exists $get{img} && 'indi.png';
my @termlist;
-push @termlist, split /\W+/, $ENV{PATH_INFO} || 'default';
+push @termlist, split /\W+/, $Request || 'default';
:>
<h1>Terminal colours</h1>
?easteuro
) if exists $get{html};
-$_ and m{/*+(.+)} and @config = split /[ ]/, $1 for $ENV{PATH_INFO}, $get{q};
+$_ and m{/*+(.+)} and @config = split /[ ]/, $1 for $Request, $get{q};
my $tables = do 'unicode-table.inc.pl' or die $@ || $!;