—

              
#!/usr/bin/perl -w
$VERSION = '1.52';
HideShow 20 lines of Pod
=head1 NAME
bbscomd - Launch BBSCOM applications
=head1 SYNOPSIS
    % bbsappd <bbsapp1> [bbsapp2...]
=head1 DESCRIPTION
L<OurNet::BBSApp> provides a XML-based, unified access interface to
applications operating on L<OurNet::BBS>. The factory class for
these services are usually L<OurNet::BBSApp::Board>, which supports
various tweakings on ArticleGroup classes.
This script runs a well-formed service file specified as the first 
argument.
=cut
use strict;
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();