mo-create-logins: Do not transliterate user names

[moe.git] / configure

diff --git a/configure b/configure
index dbd86f76793e924f3bc8fb9d03a0d7ef708803a1..bcc8e5d4ac356d23f6b97381fa92e2c344b9bffb 100755 (executable)
--- a/configure
+++ b/configure
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# Configure script for MO-Eval
+# Configure script for Moe
 # (c) 2008--2009 Martin Mares <mj@ucw.cz>
 
 use warnings;
@@ -25,13 +25,51 @@ use UCW::Configure::Pkg;
 
 Init($srcdir, "default.cfg");
 Include "ucw/default.cfg";
-Log "### Configuring MO-Eval ###\n\n";
+Log "### Configuring Moe ###\n\n";
 Include Get("CONFIG");
 require UCW::Configure::Paths;
 require UCW::Configure::C;
 require UCW::Configure::LibUCW;
 require UCW::Configure::Doc;
 
+Test("KERNEL_ARCH", "Checking for kernel architecture", sub {
+       my $u = `uname -m`;
+       chomp $u;
+       if ($u =~ m{^i[3-6]86$}) {
+               return 'i386';
+       } elsif ($u eq 'x86_64') {
+               return 'amd64';
+       } else {
+               return $u;
+       }
+});
+
+Log "Selecting sandbox kernel architecture ... ";
+my $karch = Get("CONFIG_BOX_KERNEL_ARCH") // "auto";
+if ($karch eq 'i386' || $karch eq 'amd64') {
+       Log "$karch (set manually)\n";
+} elsif ($karch eq 'auto') {
+       $karch = Get('KERNEL_ARCH');
+       Set('CONFIG_BOX_KERNEL_ARCH', $karch);
+       Log "$karch\n";
+} else {
+       Fail "Unrecognized architecture $karch";
+}
+Set('CONFIG_BOX_KERNEL_AMD64') if $karch eq 'amd64';
+
+Log "Selecting sandbox user-space architecture ... ";
+my $uarch = Get("CONFIG_BOX_USER_ARCH") // "auto";
+if ($uarch eq 'i386' || $uarch eq 'amd64') {
+       Log "$uarch (set manually)\n";
+} elsif ($uarch eq 'auto') {
+       $uarch = Get('ARCH');
+       Set('CONFIG_BOX_USER_ARCH', $karch);
+       Log "$uarch\n";
+} else {
+       Fail "Unrecognized architecture $uarch";
+}
+Set('CONFIG_BOX_USER_AMD64') if $uarch eq 'amd64';
+
 if (Get("CONFIG_SUBMIT") || Get("CONFIG_MOP")) {
        # Build libucw only if it is needed
        Set("CONFIG_UCW_LIBS" => 1);