diff --git a/tools/autoconf.pl b/tools/autoconf.pl
new file mode 100755
index 0000000000..3dae96502f
--- /dev/null
+++ b/tools/autoconf.pl
@@ -0,0 +1,79 @@
+#!/usr/bin/perl
+#             __________               __   ___.
+#   Open      \______   \ ____   ____ |  | _\_ |__   _______  ___
+#   Source     |       _//  _ \_/ ___\|  |/ /| __ \ /  _ \  \/  /
+#   Jukebox    |    |   (  <_> )  \___|    < | \_\ (  <_> > <  <
+#   Firmware   |____|_  /\____/ \___  >__|_ \|___  /\____/__/\_ \
+#                     \/            \/     \/    \/            \/
+# $Id$
+#
+
+# This program attempts to run configure with the correct build target
+# and type based on the pwd.
+# example: ~/rockbox/sansae200 is the build dir, it would run configure
+# for the sansae200 normal build target.
+# ~/rockbox/sansae200-sim for the e200 sim build (-boot for bootloader)
+# ~/rockbox/sim/sansae200 for e200 sim build. (replace sim with boot is also possible)
+# The full shortname is not required, each target name is checked and the first
+# possible match is used.
+
+# This script must be placed in the same directory as configure and builds.pm
+# 
+
+use File::Basename;
+my $srcdir = dirname $0;
+require "$srcdir/builds.pm";
+
+my $builddir = `pwd`;
+my @dirs = split(/\//, $builddir);
+
+my $test = pop(@dirs);
+
+sub doconfigure {
+	my ($target, $type) = @_;
+	if (!exists($builds{$target})) {
+		for $key (keys(%builds)) {
+			if ($key =~ $target) {
+				$target = $key;
+				last;
+			}
+		}
+	}
+	$command = "${srcdir}/configure --type=${type} --target=${target}";
+	%typenames = ("n" => "Normal", "s" => "Simulator", "b" => "Bootloader" );
+	print "Rockbox autoconf: \n\tTarget: $target \n\tType: $typenames{$type} \nCorrect? [Y/n] ";
+	chomp($response = <>);
+	if ($response eq "") {
+		$response = "y";
+	}
+	if ($response ne "y" && $response ne "Y") {
+		print "autoconf: Aborting\n";
+		exit(0);
+	}
+	system($command);
+}
+
+sub buildtype {
+	my ($text) = @_;
+	if ($text eq "sim") {
+		$build = "s";
+	} elsif ($text eq "boot") {
+		$build = "b";
+	} else {
+		$build = "n";
+	}
+	return $build;
+}
+
+if ($test =~ /(.*)-(.*)/)
+{
+	$target = $1;
+	$build = buildtype($2);
+	doconfigure($target, $build);
+} 
+elsif ($test =~ /(.*)/)
+{
+	$target = $1;
+	$build = buildtype(pop(@dirs));
+	doconfigure($target, $build);
+}