source: trunk/lib/macros/_dolog_merge.amc

#!/usr/bin/perl
#
# auto-record ARB-merge-session
# (for debugging purposes; user may as well record ARB crashes)
#
# call via:
# arb_ntree --execute _dolog_merge database_source.arb database_dest.arb
#
# rerun via
# arb_ntree --execute _logged_merge database_source.arb database_dest.arb
#
#
# Please keep code here in sync with _dolog.amc

use strict;
use warnings;

use lib "$ENV{'ARBHOME'}/lib/";
use ARB;

my $logged_merge_amc = '_logged_merge.amc';

my $gb_main = ARB::open(":","r");
if (not $gb_main) {
  my $error = ARB::await_error();
  die "$error";
}

my $macrodir = ARB::getenvARBMACROHOME();
if (defined $macrodir) {
  if (not -d $macrodir) { die "No such directory '$macrodir'"; }
  my $last_logged = $macrodir.'/'.$logged_merge_amc;
  if (-f $last_logged) {
    my $backupDir = $macrodir.'/_backup';
    if (not -d $backupDir) {
      mkdir($backupDir) || die "Failed to create directory '$backupDir' (Reason: $!)";
    }
    my $modtime = (stat $last_logged)[9];
    my $backup = $backupDir.'/_logged_merge_'.$modtime.'.amc';
    print "backup '$last_logged' -> '$backup'\n";
    my $cmd = "cp -p $last_logged $backup";
    system($cmd)==0 || die "Failed to execute '$cmd'";
  }

  BIO::remote_action($gb_main,"ARB_MERGE","macros");
  BIO::remote_awar($gb_main,"ARB_MERGE","tmp/macro/file_name",$logged_merge_amc);
  BIO::remote_action($gb_main,"ARB_MERGE","MACROS/macro_record"); # hack :)
  BIO::remote_action($gb_main,"ARB_MERGE","MACROS/CLOSE");
}
ARB::close($gb_main);