require '/web/ququ/lib/paths.pl';

open (MAP, "/web/mitsu/html/pool/shared/mitsu_menu.map") || die "Can't find mitsu_menu.map! $!";
while (<MAP>) {
    $map .= $_;
}
close MAP;

$pwd = `pwd`;
$pwd =~ /(\/web\/[^\/\n]+)/;
$WHICH = $1;
$PROTO = "$WHICH/html/proto";

print "Going to $PROTO\n";
opendir (PROTODIR, $PROTO) || die "help!";
@alpha = readdir (PROTODIR);
closedir PROTODIR;

foreach $letter (sort @alpha) {
    next if length($letter) > 1;
    next if $letter =~ /^\./;

    print " ... $letter\n";
    opendir (ALPHADIR, "$PROTO/$letter") || die "Help!";
    @dealers = readdir (ALPHADIR);
    closedir ALPHADIR;

    foreach $dealer (@dealers) {
	next if (-f "$PROTO/$letter/$dealer/FAKE");
	next if $dealer =~ /^\./;

	# next unless $dealer eq "clearwater_fake";
	print "Looking at $dealer now.\n";

	chdir "$PROTO/$letter/$dealer";

	open (OUT, ">mitsu_menu.map") || die "Can't open $dealer/mitsu_menu.map for output: $! ";
	($tmpmap = $map) =~ s/\[dealer\]/$dealer/;
	print OUT $tmpmap;  # *grin*  nice and English-like.
	close OUT;

	system "cp mitsu_menu.map $WHICH/html/active/$dealer/";

    }
}