Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.47
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
perl5 /
Font /
TTF /
Features /
[ HOME SHELL ]
Name
Size
Permission
Action
Cvar.pm
2.95
KB
-rw-r--r--
Size.pm
1.95
KB
-rw-r--r--
Sset.pm
1.71
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : Cvar.pm
package Font::TTF::Features::Cvar; =head1 NAME Font::TTF::Features::Size - Class for Character Variants Feature Parameters =head1 DESCRIPTION Handles the Feature Parameters valus forCharacter Variants features =head1 INSTANCE VARIABLES =over 4 =item INFILE The read file handle =item OFFSET Location of the file in the input file =item Format Table format - set to 0 =item UINameID The 'name' table name ID that specifies a string (or strings, for multiple languages) for a user-interface label for this feature =item TooltipNameID The 'name' table name ID for tooltip text for the feature =item SampleTextNameID The 'name' table name ID for sample text to illustrate the feature =item NumNamedParms The number of named parameters =item FirstNamedParmID The 'name' table name ID for the first named parameter =item Characters An array holding the unicode values of the characters for which the feature provides glyph variants =back =head1 METHODS =cut use Font::TTF::Utils; use strict; =head2 $t->read Reads the Feature Params =cut sub read { my ($self) = @_; my ($fh) = $self->{' INFILE'}; my ($off) = $self->{' OFFSET'}; my ($dat, $i, $charcount); $fh->seek($off, 0); $fh->read($dat, 14); ( $self->{'Format'} ,$self->{'UINameID'} ,$self->{'TooltipNameID'} ,$self->{'SampleTextNameID'} ,$self->{'NumNamedParm'} ,$self->{'FirstNamedParmID'} ,$charcount ) = TTF_Unpack("S*", $dat); # Now read the list of characters. Since these are 24bit insigned integers, need to # read add a zero value byte to the front then treat as a 32bit integer foreach $i (0 .. $charcount-1) { $fh->read($dat,3); $dat = pack("C","0") . $dat; $self->{'Characters'}->[$i] = TTF_Unpack("L",$dat); } return $self; } =head2 $t->out($fh) Writes the FeatureParams table to the output =cut sub out { my ($self, $fh) = @_; my $chars = $self->{'Characters'}; my $charcount = 0; if ($chars) { $charcount = scalar @{$chars} } my ($dat, $i); $fh->print(TTF_Pack("S*" ,$self->{'Format'} ,$self->{'UINameID'} ,$self->{'TooltipNameID'} ,$self->{'SampleTextNameID'} ,$self->{'NumNamedParms'} ,$self->{'FirstNamedParmID'} ,$charcount )); foreach $i ( 0 .. $charcount-1) { $dat = substr ( TTF_Pack("L",$chars->[$i]) ,1,3); # Pack as long then remove first byte to get UINT22 $fh->print($dat); } $self; } =head2 Font::TTF::Features::Sset->new() Creates a new FeatureParams object. Values for INFILE and OFFSET canbe passed as parameters =cut sub new { my ($class,%parms) = @_; my ($self) = {}; my ($p); foreach $p (keys %parms) { $self->{" $p"} = $parms{$p}; } bless $self, $class; } sub out_xml { } 1; =head1 AUTHOR David Raymond L<http://scripts.sil.org/FontUtils>. =head1 LICENSING Copyright (c) 1998-2016, SIL International (http://www.sil.org) This module is released under the terms of the Artistic License 2.0. For details, see the full text of the license in the file LICENSE. =cut
Close