#!/usr/bin/perl
require "weblib.lib";
&getparams(0,"item","file");
$PATH="$ENV{DOCUMENT_ROOT}/newsmedia/$ENV{SERVER_NAME}";
$file="$PATH/$param{item}/$param{file}";
open(FILE,$file);
&htmlopen("text/plain=");
print "$file\n";
$size=-s $file;
print "Size: $size\n\n";
read(FILE,$buf,2);
&dumpit($buf,$param{width});
read(FILE,$buf,$size-2);
&dumpit($buf,$param{width});
sub dumpit{
        local($string,$width)=@_;
        $width=16 unless $width;
        local($i,$sub,$format,$pad);
        for($i=0;$i<length($string);$i+=$width){
                $line=sprintf("%06d",int($i/$width));
                print $line;
                $sub=substr($string,$i,$width);
                $format="  "."%02x " x length($sub);
                printf($format,unpack('C'.length($sub),$sub));
                $pad="   "x($width-length($sub));
                $sub=~tr/\0-\37\177-\377/./;
                print "$pad    $sub\n";
        }
}