#!/usr/pkg/bin/perl
#$Id: skelton_editor.cgi,v 1.3 2000/11/05 11:28:56 tom Exp $
################################################################

use lib qw(../lib);

use CGI::QueryString;
use CGI::Tools;

use TDS;

use TDS::Admin::Authorize;
use TDS::Admin::SkeltonEditor;

################################################################
my $ed = new TDS::Admin::SkeltonEditor(type=>param('type'),
				       kind=>param('kind'));

TDS::Admin::Authorize->PrintHTTPHeader();

my $command = param('command');
if ($command =~ /save/i){
    $ed->Write(param('body'));
} else {
    $ed->ShowForm;
}

