# This removes the old filename generation function
BEGIN {
undef &custom_title_hook;
}

# And here is our new one.  We want to remove leading
# section names, remove slash characters,
# spaces.
sub custom_title_hook {
	my $header = shift;
	$header =~ s,/,,g;
	$header =~ s, ,,g;
	$header =~ s,\<[^>]*\>,,g;
	$header =~ s,^\d+\.(\d+)?,,;
print "GGT GGT GGT header is $header\n";
	if ($header eq "Index") {
		$header = "TheIndex";
	}
	return $header;
}

$ADDRESS = "";

1;

