#!/usr/bin/perl
use strict;
use vars qw( %prefs );
require "prontolib.pl";
read_prefs();
my $conn = &open_db_conn;
my ($sql,$query);
my ($id,$body);
$sql = "select id,bodytext from messages";
$query=$conn->prepare($sql);
$query->execute();
while (($id,$body)=$query->fetchrow_array()) {
       	my $sql2 = "insert into message_sources (id,bodytext) values (?,?)";
	my $query2 = $conn->prepare($sql2);
	$query2->execute($id,$body);
}	
$conn->disconnect;