#!/usr/local/bin/perl5.00404

$| = 1;

require "/dsk1/bin/include/common.pl";
require "/dsk1/bin/common/common.pl";
require "/mnt/majordata/misc/majordomo.cf";

&htmlcontent();

$tmp = `pwd`;
chomp $tmp;
($dummy, $dummy2, $root, $wporg, $group, $org, $subdir) = split( /\//, $tmp );

($args) = @ARGV;

&readConfig( "../page.cfg" );
$SUBDIR = $subdir;
$SUBDIR =~ tr/a-z/A-Z/;
$tmp = $config{TITLE};
$tmp = "$group $org" if ( "$config{TITLE}" eq "" );
$title = "$tmp ($SUBDIR)";

	&show_admin();

#print `pwd`, "\n";

exit 0;

sub show_admin
{

# **************************************
#	HEAD
# **************************************
#
	&common_header();

# **************************************
#	BODY
# **************************************
#
	&common_body("/dsk1/bin/common/aog_recon.dat");

	print $content;
	
# **************************************
#	TAIL
# **************************************
#
	&common_tail();


}