$node_file_name = \&index_node_file_name;

sub index_node_file_name($$$)
{
  my $converter = shift;
  my $node_command = shift;
  my $filename = shift;

  $filename =~ s/^Index\./Index_\./;
  return $filename;
}

1;