#!/usr/bin/perl
use strict; use warnings;

use lib 'lib';

# Send in the models please.
use PbT::Model;
use PbT::Model::tt_question qw( $TT_QUESTION );

my $schema = PbT::Model->connect( 'dbi:Pg:dbname=pbt', 'postgres', '' );

$schema->txn_begin();

{
    local $/ = "\n\n";

    my $count = 1;
    while ( my $question_paragraph = <> ) {
        chomp $question_paragraph;

        my ( $text, $response_one, $response_two ) =
                split /\n/, $question_paragraph;

        my ( $response_type_one, $response_text_one ) =
                split /:/, $response_one;

        my ( $response_type_two, $response_text_two ) =
                split /:/, $response_two;

        $TT_QUESTION->screate(
                $schema,
                {
                        question          => $text,
                        sort_order        => $count,
                        response_type_one => $response_type_one,
                        response_text_one => $response_text_one,
                        response_type_two => $response_type_two,
                        response_text_two => $response_text_two,
                }
        );

        $count++;
    }
}

$schema->txn_commit();
