[Rt-commit] r12314 - in rt/branches/3.8-TESTING: .

[ruz at bestpractical.com]

Author: ruz
Date: Wed May 14 12:14:04 2008
New Revision: 12314

Modified:
   rt/branches/3.8-TESTING/   (props changed)
   rt/branches/3.8-TESTING/sbin/rt-setup-database.in

Log:
 r12350 at cubic-pc:  cubic | 2008-05-14 19:54:50 +0400
 * ask for RT version, we don't know how to guess


Modified: rt/branches/3.8-TESTING/sbin/rt-setup-database.in
==============================================================================
--- rt/branches/3.8-TESTING/sbin/rt-setup-database.in	(original)
+++ rt/branches/3.8-TESTING/sbin/rt-setup-database.in	Wed May 14 12:14:04 2008
@@ -250,8 +250,18 @@
     return (0, "Couldn't read dir '$base_dir' with upgrade date")
         unless -d $base_dir || -r _;
 
-    my $upgrading_from = '3.6.6';
-    my $upgrading_to   = $RT::VERSION;
+    my $upgrading_from = undef;
+    do {
+        if ( defined $upgrading_from ) {
+            print "Doesn't match #.#.#: ";
+        } else {
+            print "Enter RT version you're upgrading from: ";
+        }
+        $upgrading_from = scalar <STDIN>;
+        chomp $upgrading_from;
+    } while $upgrading_from !~ /^\d+\.\d+\.\d+$/;
+
+    my $upgrading_to = $RT::VERSION;
     return (0, "The current version $upgrading_to is lower than $upgrading_from")
         if RT::Handle::cmp_version( $upgrading_from, $upgrading_to ) > 0;