PerlForms Code

#
# Copyright 2008 Samuel Borsutzky
#
# This file is part of PerlForms.
#
# PerlForms is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#
# PerlForms is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with PerlForms.  If not, see <http://www.gnu.org/licenses/>.
#
#
#

package PerlForms::App;

use strict;
use base "PerlForms";

sub modules { print STDERR __PACKAGE__."->modules returning empty list.\n"; +() }

sub init {
    my$self=shift;

    $self->{prg}=$self->{req}->{prg};

    $self;
}

sub manages {
    my$self=shift;
    my$what=shift;

    if(
        !defined $what or
        $what eq "home" or
        $what eq "logout" or
        $self->objects->{$what}
    ) {
        1
    } else {
        0
    }
}

sub name     { $_[0]->{prg} }
sub dict     { $_[0]->{req}->dict->apps->{$_[0]->name} }
sub pm       { $_[0]->dict->{pm} }
sub title    { $_[0]->dict->{schoen} }
sub objects  { $_[0]->dict->{objects} }
sub backends { "perlformsdb" }
sub navlinks { $_[0]->dict->{navlinks} }
sub legal    { defined $_[0]->objects->{$_[1]} }

sub mainmenu {
    # expects: req
    my($self)=shift;
    my(%arg)=@_;
    print STDERR __PACKAGE__."->mainmenu got called by ".caller()."\n";
    
    $self->{req}->ui(
        title=>"eSA Directory Administration"
    );
    
    return 1;
}

sub env {
    eval("require PerlForms::App::".$_[0]->pm."::Env") or die(__PACKAGE__."->env: ".$@."\n");
    eval("
        defined($PerlForms::App::".$_[0]->pm."::Env::".$_[1].")
        ?$PerlForms::App::".$_[0]->pm."::Env::".$_[1]."
        :undef
    ");
}

sub load_modules {
    my$self=shift;
    print STDERR __PACKAGE__."->load_modules got called by ".caller()."\n";
    
    foreach my$mod ($self->modules) {
        print STDERR __PACKAGE__."->load_modules loading module ".$mod."\n";
        $self->{req}->dict->load_dict($mod);
    }
    
    print STDERR __PACKAGE__."->load_modules returning.\n";
}



package Main;

1;