#!/usr/bin/perl
require "weblib.lib";
&htmlopen("imPR Dump");
&getparams;
$PATH="$ENV{DOCUMENT_ROOT}/newsmedia/$ENV{SERVER_NAME}";
$item=$param{item};
$file=$param{file};
if($file){
	$file="$PATH/$item/$file";
	$filesize=-s $file;
	open(FILE,$file);
	read(FILE,$text,2);
	$size=unpack('n',$text);
	if($size < 65535){
		print $size+1," elements\n";
		print "<ul>\n";
		for($index=0;$index<=$size;$index++){
			read(FILE,$text,2);
			$pointer=unpack('n',$text);
			print "<li>$pointer</li>\n";
		}
		close FILE;
		print "</ul>\n";
	}
}
else{
	opendir(DIR,"$PATH/$item");
	while($f=readdir(DIR)){
		next unless $f=~/^(.*)-(\d+)\.impr$/;
		$type=$1;
		$tindex=$2;
		$TYPE=$type;
		if($param{seq}){print "<h1>$TYPE</h1>\n";}
		$MAJORTYPE{$type}="$tindex";
		$type=sprintf("%03d-%s",$tindex,$type);
		push(@types,$type);
		open(FILE,"$PATH/$item/$f");
		read(FILE,$text,2);
		$size=unpack('n',$text);
		if($size < 65535){
			for($index=0;$index<=$size;$index++){
				read(FILE,$text,2);
				$pointer=unpack('n',$text);
				$TYPE{"$pointer-$TYPE-$tindex"}=$pointer+1;
				if($param{seq}){print $TYPE{"$pointer-$TYPE-$tindex"}," ";}
			}
			close(FILE);
		}
	}
	next if $param{seq};
	print "<table border>\n";
	print "<tr>";
	foreach $MAJORTYPE(sort keys %MAJORTYPE){
		print qq{<th>$MAJORTYPE</th>};
	}
	print "</tr>\n";
	foreach $row(0..932){
		print "<tr>\n";
		foreach $MAJORTYPE(sort keys %MAJORTYPE){
			$tindex=$MAJORTYPE{$MAJORTYPE};
			print "<td>";
			if($TYPE{"$row-$MAJORTYPE-$tindex"}){print $TYPE{"$row-$MAJORTYPE-$tindex"};}
			print "</td>";
		}
		print "</tr>\n";
	}
	print "</table>";
#	foreach $TYPE(sort keys %TYPE){
#		print "$TYPE{$TYPE}</ul>\n";
#	}
}
&htmlclose;