adding some basic copy tag and serial tables to the mig init function
[migration-tools.git] / mig-bin / mig-skip-iconv
1 #!/usr/bin/perl -w
2 ###############################################################################
3 =pod
4
5 =head1 NAME
6
7 mig-skip-iconv 
8
9 Allows you to either use an existing file named <file>.utf8 or a named
10 [utf8 file] as if it were the one created by mig-iconv
11
12 =head1 SYNOPSIS
13
14 B<mig-skip-iconv> <file> [utf8 file]
15
16 =cut
17
18 ###############################################################################
19
20 use strict;
21 use Switch;
22 use Env qw(
23     HOME PGHOST PGPORT PGUSER PGDATABASE MIGSCHEMA
24     MIGBASEWORKDIR MIGBASEGITDIR MIGGITDIR MIGWORKDIR
25 );
26 use Pod::Usage;
27 use DBI;
28 use Cwd 'abs_path';
29 use FindBin;
30 my $mig_bin = "$FindBin::Bin/";
31 use lib "$FindBin::Bin/";
32 use Mig;
33
34 pod2usage(-verbose => 2) if ! ($ARGV[0]||$ARGV[1]) || $ARGV[0] eq '--help';
35
36 Mig::die_if_no_env_migschema();
37 Mig::die_if_mig_tracking_table_does_not_exist();
38
39 my $file = abs_path($ARGV[0]);
40 my $utf8_file;
41 if ($ARGV[1]) {
42     $utf8_file = abs_path($ARGV[1]);
43 }
44 if ($utf8_file && ! $utf8_file =~ /^$MIGBASEWORKDIR/) {
45     die "File falls outside of MIGWORKDIR ($MIGWORKDIR): $utf8_file\n";
46 }
47
48 if ($file =~ /^$MIGBASEWORKDIR/) {
49     skip_iconv($file,$utf8_file);
50 } else {
51     print "File falls outside of MIGWORKDIR ($MIGWORKDIR): $file\n";
52 }
53
54 exit 0;
55
56 ###############################################################################
57
58 sub skip_iconv {
59     my $file = shift;
60     my $utf8_file = shift;
61
62     my $tracked_file_id = Mig::check_for_tracked_file($file);
63     if ($tracked_file_id) {
64         my $data = Mig::status_this_file($file);
65         print "skipping the iconv'ing of tracked file: $file\n";
66
67         my $dbh = Mig::db_connect();
68         if (! $utf8_file) {
69             $utf8_file = $file . '.utf8';
70         }
71         if (! -e $utf8_file) {
72             die "utf8 file does not exist: $utf8_file\n";
73         }
74
75         my $rv = $dbh->do("
76             UPDATE $MIGSCHEMA.tracked_file
77             SET utf8_filename = " . $dbh->quote($utf8_file) . "
78             WHERE base_filename = " . $dbh->quote($file) . "
79             ;
80         ") || die "Error inserting into table $MIGSCHEMA.tracked_file: $!\n";
81         Mig::db_disconnect($dbh);
82     } else {
83         print "File not currently tracked: $file\n";
84     }
85 }