#!/usr/bin/perl

# $Id: export_doodads.pl,v 3.2 2004/01/10 02:49:58 lachoy Exp $

# To use this, first edit My/Common.pm with your database information
# and then run (mysql example)

# $ mysql test < users_groups_mysql.sql
# $ perl stock_user_group.pl
# $ perl stock_doodad.pl
# $ perl export_doodads.pl

# As XML:
# $ perl export_doodads.pl xml

use strict;
use Log::Log4perl;
Log::Log4perl::init( 'log4perl.conf' );

use SPOPS::Export;

require My::Security;
require My::User;
require My::Doodad;

{
    my $type = shift @ARGV || 'object';
    my $exporter = SPOPS::Export->new( $type );
    $exporter->object_class( 'My::Doodad' );
    print $exporter->run;
}