[interchange-cvs] interchange - heins modified code/UI_Tag/xfer_catalog.coretag

[interchange-cvs at icdevgroup.org]

User:      heins
Date:      2003-07-19 02:23:52 GMT
Modified:  code/UI_Tag xfer_catalog.coretag
Log:
* Allow database text files in subsidiary directories of products.

Revision  Changes    Path
1.3       +7 -2      interchange/code/UI_Tag/xfer_catalog.coretag


rev 1.3, prev_rev 1.2
Index: xfer_catalog.coretag
===================================================================
RCS file: /var/cvs/interchange/code/UI_Tag/xfer_catalog.coretag,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- xfer_catalog.coretag	23 Jun 2003 12:02:33 -0000	1.2
+++ xfer_catalog.coretag	19 Jul 2003 02:23:52 -0000	1.3
@@ -65,7 +65,7 @@
 	exit 1;
 fi
 
-cp xfer/exports/* products
+cp -r xfer/exports/* products
 EOF
 	my %maptype = (
 		mysql => {
@@ -201,13 +201,18 @@
 	}
 
 	for my $t (keys %export) {
+		$export{$t} =~ m{(.*)/}
+			and do {
+				my $dircomp = $1;
+				File::Path::mkpath("$root/xfer/exports/$dircomp");
+			};
 		Vend::Data::export_database($t, "$root/xfer/exports/$export{$t}", undef, {})
 			or logError("Failed to export table $t in xfer-catalog.");
 	}
 	for(keys %dsn) {
 		my $ext = $_ eq $::Variable->{SQLDSN} ? 'maindump' : 'dump';
 		my $cmd = "$dsn{$_} > xfer/dumps/$dbname{$_}.$dbtype{$_}.$ext";
-::logDebug("executing $cmd");
+#::logDebug("executing $cmd");
 		system $cmd;
 		if($?) {
 			my $status = $?;