use constant ERROR => 1;
use constant VERBOSE_ERROR => -1;
use constant WARNING => 2;
use constant VERBOSE_WARNING => -2;

# Handles all output of errors/warnings, etc.
sub output ($$) {
	my ($message, $level) = @_;
	if ( $error_flag && $level == ERROR ) {
		print "ERROR: $message\n";
	}
	if ( $warning_flag && $level == WARNING ) {
		print "WARNING: $message\n";
	}
        return;
}