rsstootalizer/update_db.pl

#!/usr/bin/perl -w -I.

use strict;
use Data::Dumper;
use RSSTootalizer::Migration;

our $config = "";
open CONFIG, "rsstootalizer.conf.json" or die "Cannot open rsstootalizer.conf.json";
{
	$/ = undef;
	$config = <CONFIG>;
}
close CONFIG;
$config = decode_json($config);

# Force Unicode output
binmode STDERR, ":utf8";
binmode STDOUT, ":utf8";

my @migrations = glob ("migrations/*sql");
foreach my $migration (@migrations){
	print "Running migration $migration\n";
	if (!RSSTootalizer::Migration->get_by("name", $migration)){
		open (M, $migration);
		my $sql;
		{
			$/ = undef;
			$sql = <M>;
		}
		close M;
		RSSTootalizer::DB->doINSERT($sql);
		my %migdata;
		$migdata{name} = $migration;
		RSSTootalizer::Migration->create(%migdata);
	}
}