#!/usr/bin/perl
use strict;

my %node_name;
open(IN,"id_name_pretty.txt")||die;
while(my $line=<IN>){
	chomp $line;
	my ($node,$name)=split("\t",$line);
	$node_name{$node}=$name;
}
close IN;

open(IN,$ARGV[0])||die;
my $outfile=$ARGV[0];$outfile=~s/\.svg/\.longname\.svg/;
open(OUT,">$outfile")||die;

while(my $line=<IN>){
	foreach my $node(keys %node_name){
		my $longname=$node_name{$node};
		$line=~s/>$node<\/text>/>$longname<\/text>/g;
	}
	print OUT $line;
}
close IN;
close OUT;