#!/usr/bin/perl -w

chdir "../js/iwc/widget";
my @files = `find . -name '*.js' -print`;

use Data::Dumper;

my @classes = ();

for (@files) {
	chomp;
	unless (/\.(.*)\/(.*)\.js/) {
		die "did not match: $_";
	}
	my $path = $1;
	if ($path) {
		$path =~ s/\//./g;
	}

	my $name = $2;
	my $service = '';

	my @services = ("Mail", "ABS", "Options", "Calendar", "IM", "Smime");
	for (@services) {
		if ($name =~ /^$_(.*)/) {
			$service = ".".lc($_);
			$name = $1;
		}
	}

	$name = ".".$name;

	#print Dumper($1, $2);

	my $oldClassName = "iwc.widget".$path.".".$2;
	my $newClassName = "iwc".$service.$path.$name;

	#print $newClassName."\n";

	push @classes, "
		{
			name: {'$oldClassName': '$newClassName'},
			methods: []
		}";

}

print "{
	map: [";
print join ",", @classes;
print "
	]
}";