#!/usr/bin/perl

use OurNet::BBSApp;

die "Usage: $0 <bbsapp1> [bbsapp2...]\n" unless @ARGV;

foreach my $arg (@ARGV) {
    unless (-e $arg) {
        $arg .= ".xml";
        die "Cannot find BBSApp: $arg\n" unless -e $arg;
    }

    OurNet::BBSApp->new($arg)->load();
}

OurNet::BBSApp::run;

