Links::SiteHTML::display('template', { arg => $arg } );

GMail->print_page($page, @tags);

GMail->print_page('memo_main.html');

A fatal error has occured:

Can't use an undefined value as an ARRAY reference at /path/to/admin/GMail/Folders.pm line 83.

Please enable debugging in setup for more details.

GT::Template->parse( 'memo_main.html' );

#!/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
}

#!/usr/bin/perl -w

use strict;
use lib '.';

use GMail qw/:all/;
use GMail::Auth;

GMail::init('.');

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

main();

sub main {
# Load all template specific files.
my $t = GMail->template_set();
$CFG->load_template_set($t);

# If this site is disabled display the disabled page
if (!$CFG->{enabled}) {
return GMail->print_page('disabled.htm');
}

# Check to see if they are allowed to use the service
if (!GMail::Auth->allow_access()) {
require GMail::NoAuth;
return GMail::NoAuth->print_page($CFG->{templates}->{auth_error}, { error => ref($GMail::Auth::error) ? $GMail::Auth::error : \$GMail::Auth::error });
}

# Authenticate the user.
$GMail::Auth::error ||= ''; # -w warnings, ugg
my $ret = $PLG->dispatch('GMail::Auth::authenticate', sub { GMail::Auth->authenticate() });
unless ($ret) {
require GMail::NoAuth;
return GMail::NoAuth->auth_failed({ error => $GMail::Auth::error });
}

return $ret if $ret == EXIT;

# Find out which template set we are on.
$t = GMail->template_set();
$CFG->load_template_set($t);

GMail->print_page('foo.htm', { foo => "bar" });
}