#!/usr/local/bin/perl -w
# ==================================================================
# Gossamer Mail - enhanced email management system
#
# Website : http://gossamer-threads.com/
# Support : http://gossamer-threads.com/scripts/support/
# CVS Info : 087,070,083,091,083
# Revision : $Id: logout.cgi,v 1.23 2006/11/15 18:19:42 brewt Exp $
#
# Copyright (c) 2003 Gossamer Threads Inc. All Rights Reserved.
# Redistribution in part or in whole strictly prohibited. Please
# see LICENSE file for full details.
# ==================================================================

use strict;
use lib '/var/home/domain/domain.com/cgi-bin/mail/admin';
use GMail qw/:folders :objects/;
use GMail::Auth;
use GMail::NoAuth;

GMail::init('/var/home/domain/domain.com/cgi-bin/mail/admin');

$| = 1;
local $SIG{__DIE__} = \&GMail::fatal;

print $IN->header();

my $action= $IN->param('do');

if (!$action) {
# show HTML page showing their memos
# GMail->print_page('memo_main.html', @tags);
GMail->print_page('memo_main.html');
#GT::Template->parse( 'memo_main.html' );
} elsif ($action eq "add") {
# show page for adding a memo
} elsif ($action eq "delete") {
# show page for deleting a memo
} elsif ($action eq "modify") {
# show page for modifying a memo
}