Ein Script (von Sven Schoeling) hinzugefuegt, das ein SQL-Upgrade-Script automatisch...

diff --git a/scripts/pgupadd.pl b/scripts/pgupadd.pl
new file mode 100755 (executable)
index 0000000..a0b343e
--- /dev/null
+++ b/scripts/pgupadd.pl
@@ -0,0 +1,80 @@
+#!/usr/bin/perl -l
+#
+$db = "Pg";
+$version = "0.2b";
+
+($name,$exec) = @ARGV;
+opendir SQLDIR, "sql/$db-upgrade" or die "Can't open sql dir";
+@ups = sort(cmp_script_version grep(/$db-upgrade-.*?\.(sql|pl)$/, readdir(SQLDIR)));
+closedir SQLDIR;
+$up = $ups[-1];
+$up =~ s/(.*de-)|(.sql$)|(.pl$)//g;
+($from, $to) = split /-/, $up;
+@next = split(/\./, $to);
+$newsub = (pop @next)+1;
+$next = join (".",@next).".".$newsub;
+
+$name =~ /\.([^\.]+)$/;
+$ext = $1;
+
+print qq|
+$db-upgrade Adder v$version
+
+USE: pgupadd [file] [!]
+
+Computes the next minor database version.
+If [file] is given, proposes a copy command to add this file to the upgrade dir.
+Use pgupadd [file] ! to let the adder copy and add it to svn for you (check the command first).
+
+Current highest upgrade:   $up
+Proposed next version:     $next
+Proposed name for upgrade: $db-upgrade-$to-$next.$ext |;
+
+$cmd = "cp $name sql/$db-upgrade/$db-upgrade-$to-$next.$ext; svn add sql/$db-upgrade/$db-upgrade-$to-$next.$ext;";
+print qq|Proposed copy/add command:
+
+$cmd
+| if $name;
+
+if ($name && !-f $name) {
+  print qq|Warning! Given file does not exist!|;
+  exit;
+}
+
+if ($name && -f "sql/$db-upgrade/$db-upgrade-$up.$ext" &&
+    !`cmp $name sql/$db-upgrade/$db-upgrade-$up.$ext`) {
+  print qq|Warning! Given file is identical to latest $db-upgrade!|;
+  exit;
+}
+
+exec($cmd) if ($exec eq "!" and $name);
+
+
+# both functions stolen and slightly modified from SL/User.pm
+sub cmp_script_version {
+  my ($a_from, $a_to, $b_from, $b_to);
+  my ($i, $res_a, $res_b);
+  my ($my_a, $my_b) = ($a, $b);
+
+  $my_a =~ s/.*-upgrade-//;
+  $my_a =~ s/.(sql|pl)$//;
+  $my_b =~ s/.*-upgrade-//;
+  $my_b =~ s/.(sql|pl)$//;
+  ($my_a_from, $my_a_to) = split(/-/, $my_a);
+  ($my_b_from, $my_b_to) = split(/-/, $my_b);
+
+  $res_a = calc_version($my_a_from);
+  $res_b = calc_version($my_b_from);
+
+  if ($res_a == $res_b) {
+    $res_a = calc_version($my_a_to);
+    $res_b = calc_version($my_b_to);
+  }
+
+  return $res_a <=> $res_b;
+}
+sub calc_version {
+  my $r = !(my @v = split(/\./, shift));
+  map { $r = $r * 1000 + $v[$_] } 0..4;
+  $r;
+}