#!/usr/bin/perl -s

use warnings;
use strict;

use Conclave::Utils::OTK;

our $program; # default
my $type = 'program';
our $problem;
$type = 'problem' if $problem;
my $pkgid = shift;

unless ($pkgid) {
  print "Usage: conc-otk-create-owl [-program|-problem] <pkgid>\n" and exit;
}

print Conclave::Utils::OTK::create_owl($type, $pkgid);