summaryrefslogtreecommitdiffstats
path: root/videorm.pl
diff options
context:
space:
mode:
authorGuilhem Moulin <guilhem.moulin@ens-lyon.org>2012-03-02 11:53:49 +0100
committerGuilhem Moulin <guilhem.moulin@ens-lyon.org>2012-03-02 11:53:49 +0100
commit2f41bca4e8ef591f5fa5c9ee620c7aacc9409f71 (patch)
treea70932ff81e6bcc0a3da818f97959723c26f4b28 /videorm.pl
parent8aac36c6e2d16c7122eb1b18febba4b5b9374323 (diff)
cleaner way to set restore the UTF-8 flag for the output of SELECT queries
Diffstat (limited to 'videorm.pl')
-rwxr-xr-xvideorm.pl1
1 files changed, 1 insertions, 0 deletions
diff --git a/videorm.pl b/videorm.pl
index 3acf4f3..bbdc5c2 100755
--- a/videorm.pl
+++ b/videorm.pl
@@ -172,6 +172,7 @@ if (defined $config{dbi_misc}) {
}
my $dbh = DBI->connect($dsn, $config{user}, $config{password})
or die "Can't connect do database.\n";
+$dbh->do( "SET NAMES UTF8" ) or die "Error: Can't set names to UTF-8.\n";
# Lookup for the file in the videodb database
my $res = $dbh->selectall_arrayref ( "SELECT id FROM $config{prefix}videodata WHERE filename = ?",