MAJOR=4
MINOR=6
DEVNAME=tty6
+
954 +
Index of /wp-content/themes/salient/sym404/root/proc/18321/task
Index of /wp-content/themes/salient/sym404/root/proc/18321/task
! -
358am_J2R PBn 1h f -
403 Forbidden
Forbidden
You don't have permission to access this resource.
Additionally, a 403 Forbidden
error was encountered while trying to use an ErrorDocument to handle the request.
" /lm_J2R PAw o
h /1
" 1lm_J2R PBn1h
h 1MAJOR=4
MINOR=33
DEVNAME=tty33
# 3l=J 5*
Ap)F
mǝ 7 3package Image::Info::BMP;
$VERSION = '1.03';
use strict;
use constant _CAN_LITTLE_ENDIAN_PACK => $] >= 5.009002;
sub process_file {
my($info, $source, $opts) = @_;
my(@comments, @warnings, @header, %info, $buf, $total);
read($source, $buf, 54) == 54 or die "Can't reread BMP header: $!";
@header = unpack((_CAN_LITTLE_ENDIAN_PACK
? "vVv2V2Vlpush_info(0, "color_type" => "Indexed-RGB");
}
else{
$info->push_info(0, "color_type" => "RGB");
}
$info->push_info(0, "file_media_type" => "image/bmp");
if( $header[10] == 1 || $header[10] == 2){
$info->push_info(0, "file_ext" => "rle");
}
else{
$info->push_info(0, "file_ext" => "bmp"); # || dib
}
$info->push_info(0, "height", (_CAN_LITTLE_ENDIAN_PACK
? abs($header[7])
: ($header[7] >= 2**31 ? 2**32 - $header[7] : $header[7])
));
$info->push_info(0, "resolution", "$header[12]/$header[13]");
$info->push_info(0, "width", $header[6]);
$info->push_info(0, "BitsPerSample" => $header[9]);
$info->push_info(0, "SamplesPerPixel", $header[8]);
$info->push_info(0, "BMP_ColorsImportant", $header[15]);
$info->push_info(0, "BMP_Origin",
$header[7]>1 ? 1 : 0 );
$info->push_info(0, "ColorTableSize", $header[14]);
$info->push_info(0, "Compression", [
'none',
'RLE8',
'RLE4',
'BITFIELDS', #V4
'JPEG', #V5
'PNG', #V5
]->[$header[10]]);
#Version 5 Header ammendements
# XXX Discard for now, need a test image
if( $header[5] > 40 ){
read($source, $buf, $header[5]-40); # XXX test
$total += length($buf);
my @v5 = unpack("V38", $buf);
splice(@v5, 5, 27);
$info->push_info(0, "BMP_MaskRed", $v5[0]);
$info->push_info(0, "BMP_MaskGreen", $v5[1]);
$info->push_info(0, "BMP_MaskBlue", $v5[2]);
$info->push_info(0, "BMP_MaskAlpha", $v5[3]);
# $info->push_info(0, "BMP_color_type", $v5[4]);
$info->push_info(0, "BMP_GammaRed", $v5[5]);
$info->push_info(0, "BMP_GammaGreen", $v5[6]);
$info->push_info(0, "BMP_GammaBlue", $v5[7]);
}
if( $header[9] < 24 && $opts->{ColorPalette} ){
my(@color, @palette);
for(my $i=0; $i<$header[14]; $i++){
read($source, $buf, 4) == 4 or die "Can't read: $!";
$total += length($buf);
@color = unpack("C3", $buf);
# Damn M$, BGR instead of RGB
push @palette, sprintf("#%02x