2 ###############################################################################
9 Clear any association between the specified file and a parent table within the
18 ###############################################################################
23 HOME MYSQL_HOST MYSQL_TCP_PORT MYSQL_USER MYSQL_DATABASE MYSQL_PW
24 MIGSCHEMA MIGBASEWORKDIR MIGBASEGITDIR MIGGITDIR MIGWORKDIR
30 my $mig_bin = "$FindBin::Bin/";
31 use lib "$FindBin::Bin/";
34 pod2usage(-verbose => 2) if ! $ARGV[0] || $ARGV[0] eq '--help';
36 KMig::die_if_no_env_migschema();
37 KMig::die_if_mig_tracking_table_does_not_exist();
39 my $file = abs_path($ARGV[0]);
40 if ($file =~ /^$MIGBASEWORKDIR/) {
43 print "File falls outside of MIGWORKDIR ($MIGWORKDIR): $file\n";
48 ###############################################################################
51 my $file = abs_path(shift);
53 my $tracked_file_id = KMig::check_for_tracked_file($file);
54 if ($tracked_file_id) {
55 my $data = KMig::status_this_file($file);
56 my $table = $data->{'parent_table'} || '';
58 print "unlinking table ($table) from file: $file\n";
60 my $dbh = KMig::db_connect();
64 WHERE base_filename = " . $dbh->quote($file) . "
66 ") || die "Error updating table m_tracked_file: $!\n";
67 KMig::db_disconnect($dbh);
69 print "File not currently tracked: $file\n";