#!/usr/bin/env perl

=head1 NAME

delcourse - delete a course

=head1 SYNOPSIS

 delcourse COURSEID

=head1 DESCRIPTION

Delete a course, including its database and course directory.

=head1 OPTIONS

=over

=item I<COURSEID>

The name of the course to delete.  This is required.

=back

=cut

use strict;
use warnings;

BEGIN {
	use Mojo::File qw(curfile);
	use Env qw(WEBWORK_ROOT);

	$WEBWORK_ROOT = curfile->dirname->dirname;
}

use lib "$ENV{WEBWORK_ROOT}/lib";

use WeBWorK::CourseEnvironment;
use WeBWorK::Utils::CourseManagement qw(deleteCourse);

my $courseID = shift;

die "The COURSEID must be provided.\nUsage: $0 courseID\n" unless $courseID;

my $ce = WeBWorK::CourseEnvironment->new({
	webwork_dir => $ENV{WEBWORK_ROOT},
	courseName  => $courseID,
});

eval { deleteCourse(courseID => $courseID, ce => $ce); };

die "$@\n" if $@;