#!/usr/bin/perl -w
use strict;
use lib "../scraper/";

# $Id: db2xml.pl,v 1.2 2003/11/30 18:34:00 frabcus Exp $

# Outputs MP list from database as part of an XML file
# (used to migrate from when database was main form of data,
# you shouldn't need to use this any more)

# The Public Whip, Copyright (C) 2003 Francis Irving and Julian Todd
# This is free software, and you are welcome to redistribute it under
# certain conditions.  However, it comes with ABSOLUTELY NO WARRANTY.
# For details see the file LICENSE.html in the top level of the source.

use error;
use db;
my $dbh = db::connect();

my $sth = db::query($dbh, "select first_name, last_name, title, constituency, party, 
    entered_house, left_house, entered_reason, left_reason, mp_id from pw_mp
    order by entered_house, last_name, first_name, constituency");

while (my @row = $sth->fetchrow_array())
{
    $row[3] =~ s/&/&/g;
    print <<END
<member
    id="uk.org.publicwhip/member/$row[9]"
    house="commons"
    title="$row[2]" firstname="$row[0]" lastname="$row[1]"
    constituency="$row[3]" party="$row[4]"
    fromdate="$row[5]" todate="$row[6]" fromwhy="$row[7]" towhy="$row[8]"
/>
END
}