# Copyright 1999-2003, Fred Steinberg, Brown Bear Software

package AdminPage;
use strict;

use CGI (':standard');

use Calendar::GetHTML;
use Operation::MultiCal;

use vars ('@ISA');
@ISA = ('Operation::MultiCal');

sub perform {
    my $self = shift;

    my $i18n = $self->I18N;

    if ($self->isSystemOp) {         # just in case
        GetHTML->errorPage ($i18n,
                            header => $i18n->get ('No Calendar Specified'),
                            message => 'This operation requires a calendar!');
        return;
    }

    my $cgi = new CGI;

    print $cgi->header;
    print $cgi->start_html (-title   => $i18n->get ('Calendar Administration'),
                            -bgcolor => 'white');

    print '<center>';
    print GetHTML->AdminHeader (I18N    => $i18n,
                                cal     => $self->calendarName || '',
                                goob    => $self->goobLabel    || '',
                                group   => $self->groupName    || '');
    print '</center>';
    print '<br>';

    # List order is how menu appears
    my @tableCrap = qw (display general headers    SPACE
                        colors fonts category periods SPACE
                        include addins addinsadmin SPACE
                        security mail subscrip audit SPACE
                        import export delete
                       );

    if ($self->isMultiCal) {
        @tableCrap = qw (display general headers SPACE
                         colors fonts mail       SPACE
                         include addins audit);
    }

    my %links =  (display  => $self->makeURL ({Op => 'AdminDisplay'}),
                  general  => $self->makeURL ({Op => 'AdminGeneral'}),
                  colors   => $self->makeURL ({Op => 'AdminColors'}),
                  fonts    => $self->makeURL ({Op => 'AdminFonts'}),
                  category => $self->makeURL ({Op => 'AdminCategories'}),
                  periods  => $self->makeURL ({Op => 'AdminTimePeriods'}),
                  headers  => $self->makeURL ({Op => 'AdminHeader'}),
                  addins   => $self->makeURL ({Op => 'AdminAddIns'}),
                  addinsadmin => $self->makeURL ({Op => 'AdminAddInsAdmin'}),
                  include  => $self->makeURL ({Op => 'AdminInclude'}),
                  security => $self->makeURL ({Op => 'AdminSecurity'}),
                  audit    => $self->makeURL ({Op => 'AdminAuditing'}),
                  mail     => $self->makeURL ({Op => 'AdminMail'}),
                  subscrip => $self->makeURL ({Op => 'AdminSubscriptions'}),
                  export   => $self->makeURL ({Op => 'AdminExport'}),
                  import   => $self->makeURL ({Op => 'AdminImport'}),
                  'delete' => $self->makeURL ({Op => 'AdminDeleteEvents'}));
    my %linkText = (display  => $i18n->get ('Display Settings'),
                    general  => $i18n->get ('General Settings'),
                    colors   => $i18n->get ('Colors'),
                    fonts    => $i18n->get ('Fonts'),
                    category => $i18n->get ('Categories'),
                    periods  => $i18n->get ('Time Periods'),
                    headers  => $i18n->get ('Title, Header, Footer'),
                    addins   => $i18n->get ('Add-Ins'),
                    addinsadmin => $i18n->get ('Manage Add-In files'),
                    include  => $i18n->get ('Include other Calendars'),
                    security => $i18n->get ('Security'),
                    audit    => $i18n->get ('Auditing'),
                    mail     => $i18n->get ('Email Settings'),
                    subscrip => $i18n->get ('Email Subscriptions'),
                    export   => $i18n->get ('Export Events'),
                    import   => $i18n->get ('Import Events'),
                    'delete' => $i18n->get ('Delete Events'));
    my %description = (display  => $i18n->get ('Customize how your calendar ' .
                                               'appears'),
                       general  => $i18n->get ("Specify calendar's language," .
                                               " options, and description"),
                       colors   => $i18n->get ('Change colors'),
                       fonts    => $i18n->get ('Change fonts'),
                       category => $i18n->get ('Specify event categories'),
                       periods  => $i18n->get ('Define pre-set time periods'),
                       headers  => $i18n->get ('Specify the title,' .
                                               ' header, footer, and ' .
                                               'background image'),
                       addins   => $i18n->get ('Specify which pre-defined ' .
                                               'events to include in the ' .
                                               'calendar'),
                       addinsadmin => $i18n->get ('Upload new Add-In files, ' .
                                                  'or delete existing ones'),
                       include  => $i18n->get ('Dynamically include events ' .
                                               'from other calendars'),
                       security => $i18n->get ('Specify who can view, edit, ' .
                                               'or administer the calendar'),
                       audit    => $i18n->get ('Specify which operations' .
                                               ' to keep a record of, and how'.
                                               ' to do it'),
                       mail     => $i18n->get ('Settings for mail ' .
                                               'sent from this calendar'),
                       subscrip => $i18n->get ('Manage email subscriptions'),
                       export   => $i18n->get ('Export event data to ASCII'),
                       import   => $i18n->get ('Create new Calcium events ' .
                                               'from an ASCII file'),
                       'delete' => $i18n->get ('Remove all events in a ' .
                                               'specified date range'));

    # Specialized for calendar groups
    if ($self->isMultiCal) {
        $links{colors} = $self->makeURL ({Op => 'AdminColorsAlternate'});

        $description{display}  = $i18n->get ('Customize how calendars appear');
        $description{general}  = $i18n->get ("Specify language," .
                                             " options, and description");
        $description{mail}     = $i18n->get ('Customize mail settings');
        $description{addins}   = $i18n->get ('Specify which pre-defined ' .
                                             'events to include ');
    }

    if (!Defines->mailEnabled) {
        $description{subscrip} .= '&nbsp;&nbsp;<i>[' .
            $i18n->get ('Disabled in this version') . ']</i>';
        delete $links{subscrip};
    }

    print table ({-width => '100%',
                  -cellspacing => 1},
                 map {
                     /SPACE/ ? Tr (td ('&nbsp;'))
                             : Tr (td ({-bgcolor => "#dddddd"},
                                       ($links{$_} ? a ({-href => $links{$_}},
                                                        $linkText{$_})
                                                   : $linkText{$_}),
                                       td ($description{$_})))
                     } @tableCrap);

    print '<br><br>';

    my $homeURL = a ({href => $self->makeURL ({CalendarName => undef,
                                               Group        => undef,
                                               PlainURL     => 1})},
                     $i18n->get ('Home'));
    if ($self->isMultiCal) {
        print "<center>$homeURL</center>";
    } else {
        print table ({-width => '60%',
                      -align => 'center'},
                     Tr (td (a ({-href => $self->makeURL ({Op => 'ShowIt'})},
                                $i18n->get ('Return to the Calendar'))),
                         td ($homeURL)));
    }
    print $cgi->end_html;
}

sub auditString {
    return undef;       # we don't care about this
}

1;