Lines Matching refs:DATA
252 my($DATA,$FileName,$ContentType) = @_;
254 my $DataLength = length($$DATA);
270 …taLength > 128 && !unpack("C",substr($$DATA,0,1)) && !unpack("C",substr($$DATA,74,1)) && !unpack("…
271 my $MacBinary_ForkLength = unpack("N", substr($$DATA, 83, 4)); # ForkLength Get
272 my $MacBinary_FileName = quotemeta(substr($$DATA, 2, unpack("C",substr($$DATA, 1, 1))));
274 …&& ($FileName =~ /$MacBinary_FileName/i || substr($$DATA,102,4) eq 'mBIN')) { # DATA TOP 128byte M…
275 $$DATA = substr($$DATA,128,$MacBinary_ForkLength);
304 if($$DATA =~ /^MZ/) {
309 && ! $$DATA =~ /[\000-\006\177\377]/) {
336 …} elsif($ContentType =~ /^text\/html$/i || $FileExt =~ /html?/i || $$DATA =~ /<\s*HTML(?:.|\n)*?>/…
341 if($$DATA =~ /\#define\s*$XbmName\_width\s*(\d+)/i) {
344 if($$DATA =~ /\#define\s*$XbmName\_height\s*(\d+)/i) {
360 if($$DATA =~ /^\x89PNG\x0D\x0A\x1A\x0A/) {
361 if(substr($$DATA, 12, 4) eq 'IHDR') {
363 ($ImageWidth, $ImageHeight) = unpack("N2", substr($$DATA, 16, 8));
365 } elsif($$DATA =~ /^GIF8(?:9|7)a/) { # GIF89a(modified), GIF89a, GIF87a
367 ($ImageWidth, $ImageHeight) = unpack("v2", substr($$DATA, 6, 4));
368 …} elsif($$DATA =~ /^II\x2a\x00\x08\x00\x00\x00/ || $$DATA =~ /^MM\x00\x2a\x00\x00\x00\x08/) { # TI…
370 } elsif($$DATA =~ /^BM/) { # BMP
372 } elsif($$DATA =~ /^\xFF\xD8\xFF/ || $$DATA =~ /JFIF/) { # JPEG
373 my $HeaderPoint = index($$DATA, "\xFF\xD8\xFF", 0);
376 my($Maker, $MakerType, $MakerLength) = unpack("C2n",substr($$DATA,$Point,4));
381 ($ImageHeight, $ImageWidth) = unpack("n2", substr($$DATA, $Point + 5, 4));
383 $$DATA = substr($$DATA, $HeaderPoint);
384 $DataLength = length($$DATA);
397 if($$DATA =~ /^MThd/) {
399 } elsif($$DATA =~ /^\x2esnd/) { # ULAW Audio
401 } elsif($$DATA =~ /^RIFF/ || $$DATA =~ /^ID3/ && $$DATA =~ /RIFF/) {
402 my $HeaderPoint = index($$DATA, "RIFF", 0);
403 $_ = substr($$DATA, $HeaderPoint + 8, 8);
406 if(unpack("V",substr($$DATA, $HeaderPoint + 16, 4)) == 16) {
417 $Infomation .= '(RIFF '. substr($$DATA, $HeaderPoint + 8, 4). ')';
425 if($$DATA =~ /^\%PDF/) {
428 } elsif($$DATA =~ /^FWS/) { # Shockwave Flash
430 } elsif($$DATA =~ /^RIFF/ || $$DATA =~ /^ID3/ && $$DATA =~ /RIFF/) {
431 my $HeaderPoint = index($$DATA, "RIFF", 0);
432 $_ = substr($$DATA,$HeaderPoint + 8, 8);
438 $Infomation .= '(RIFF '. substr($$DATA, $HeaderPoint + 8, 4). ')';
440 } elsif($$DATA =~ /^PK/) { # ZIP Compress File
442 } elsif($$DATA =~ /^MSCF/) { # CAB Compress File
444 } elsif($$DATA =~ /^Rar\!/) { # RAR Compress File
446 } elsif(substr($$DATA, 2, 5) =~ /^\-lh(\d+|d)\-$/) { # LHA Compress File
449 …} elsif(substr($$DATA, 325, 25) eq "Apple Video Media Handler" || substr($$DATA, 325, 30) eq "Appl…