Make all DB utils utf8-clean

davorg · Aug 16, 2014 · e1a174b · e1a174b
1 parent 6c293ec
commit e1a174b
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 2 deletions.
diff --git a/bin/dump_cand b/bin/dump_cand
@@ -11,6 +11,7 @@ my $file = shift || 'db/candidate.csv';
 
 my $sch = TwittElection::Schema->connect(
   "dbi:mysql:database=$ENV{TE_DB}", $ENV{TE_USER}, $ENV{TE_PASS},
+  { mysql_enable_utf8 => 1 },
 ) or die;
 
 my $cand_rs = $sch->resultset('Candidate');
@@ -19,4 +20,4 @@ open my $fh, '>', $file or die "$!: $file";
 
 while (my $cand = $cand_rs->next) {
   say $fh $cand->dump;
-}
+}
diff --git a/bin/listname b/bin/listname
@@ -21,6 +21,7 @@ my %compass = (
 
 my $sch = TwittElection::Schema->connect(
   "dbi:mysql:database=$ENV{TE_DB}", $ENV{TE_USER}, $ENV{TE_PASS},
+  { mysql_enable_utf8 => 1 },
 ) or die;
 
 foreach my $con ($sch->resultset('Constituency')->all) {

diff --git a/bin/load_cand b/bin/load_cand
@@ -11,6 +11,7 @@ my $file = shift || 'db/candidate.csv';
 
 my $sch = TwittElection::Schema->connect(
   "dbi:mysql:database=$ENV{TE_DB}", $ENV{TE_USER}, $ENV{TE_PASS},
+  { mysql_enable_utf8 => 1 },
 ) or die;
 
 my $con_rs = $sch->resultset('Constituency');
@@ -43,4 +44,4 @@ while (<$fh>) {
     twitter  => $twitter,
     party_id => $par->id,
   });
-}
+}