Listing 1

Diese init-Methode kümmert sich auf der Embperl-Website unter anderem um den Aufbau der Menüs.

sub init  {
    my $self     = shift 
    my $r        = shift ;

    my $config = Execute ({object => 'config.pl', syntax => 'Perl'}) ;

    $config -> new($r) ; 
   
    $r->{config} = $config  ;    
    $r->{menu}   = $config->get_menu($r) ;    
    fill_menu($config, $r->{menu}, $r->{baseuri}, $r->{root}) ;
    my $filename = map_file($r) ;
    $r->param->filename($filename) ;

    return 0 ;
}