1.3: cmdline upgrade patch releas

tools/patch-release-upgrade.pl

@@ -0,0 +1,83 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use Getopt::Long;
+use LedgerSMB::Database;
+
+my $user;
+my $script_name = `basename $0`; chomp $script_name;
+my $usage = qq|
+usage: $script_name [ OPTION... ] database
+
+This script upgrades your database when moving from one patchlevel
+to another, e.g. 1.3.15 to 1.3.18.
+
+
+Options:
+  --user <user>     This option names the user to be used for logging in.
+                     The name of the current user is the default value.
+  --help            Prints this help screen.
+
+Note:
+  If the user (implied or explicitly specified) requires a password, it
+will be asked for explicitly unless it's specified in an environment variable.
+This is to prevent passwords being saved into the history file.
+
+|;
+
+sub rebuild_modules {
+
+
+
+### Modified copy/paste from LedgerSMB/Scripts/setup.pm
+
+    my $database = LedgerSMB::Database->new(
+        {
+            username => $ENV{PGUSER},
+            company_name => $ENV{PGDATABASE},
+            password => $ENV{PGPASSWORD}
+        });
+
+    $database->load_modules('LOADORDER');
+    $database->process_roles('Roles.sql');
+
+    my $dbh = DBI->connect(
+        "dbi:Pg:dbname=$ENV{PGDATABASE}", 
+         $ENV{PGUSER}, $ENV{PGPASSWORD}, 
+         { AutoCommit => 0, }
+    );
+    my $sth = $dbh->prepare(
+          "UPDATE defaults SET value = ? WHERE setting_key = 'version'"
+    );
+    $sth->execute($LedgerSMB::VERSION);
+    $dbh->commit;
+
+
+#### end of copied code
+
+    return 1;
+};
+
+
+sub usage { print $usage; exit; }
+
+
+GetOptions(
+    'help'      => \&usage,
+    'user=s'    => \$user,
+    );
+
+if (scalar(@ARGV) != 1) {
+    my $argnum = scalar(@ARGV);
+    print STDERR "$script_name: Incorrect number of arguments ($argnum found; 1 expected)";
+    &usage;
+}
+
+$ENV{PGUSER} = $user if $user;
+$ENV{PGDATABASE} = $ARGV[0];
+&rebuild_modules;
+
+
+print "Database upgraded to $LedgerSMB::VERSION.\n";
+exit 0;