#!/usr/bin/perl

BEGIN {
	unshift(@INC,($ENV{'POPHOME'}||'@POPHOME@').'/lib')
		unless $ENV{'KUNDE_NO_PERLPATH'};
}

use utf8;
use strict;
use warnings;
use Dbase::Help;
use Dbase::Globals;

sub usage {
	print STDERR <<END;
Usage:
	descr BLA           druckt Beschreibungstexte für BLA
	descr BLA Nr Laber  setzt Text für die Nr.
END
	exit(2);
}


usage if $#ARGV != 0 && $#ARGV != 2;

if($#ARGV == 0) {
	print list_descr($ARGV[0]);
} else {
	print gen_descr($ARGV[0],$ARGV[1],$ARGV[2]),"\n";
}
