package PBoard::UserHandler; use warnings; use strict; # ------------------------------------------------------------ sub ShowUserProfile {    my ($cgi, $action) = @_;    my $userId = $cgi->param('id');    unless ($userId) { &PrintMainOverviewPage($cgi, 'default'); return; # da kommt dann noch errorhandling    } # unless    # template holen und mit Parametern versehen    my $content = &PBoard::TemplateHandler::ReadTemplate ( $::Actions{$action}->{template}, # name  PAGE_NAME         => &::PAGE_NAME,  LOGO_URL          => &::LOGO_URL,  VERSION           => &::VERSION,  CSS_STYLE         => '/styles/pboard.css',  JAVASCRIPTCODE    => '',  # ...  );    print $content->output(); } # ShowUserProfile # ------------------------------------------------------------ sub EditMyUserProfile {    my ($cgi, $action) = @_;    # so wie oben } # EditMyUserProfile # ------------------------------------------------------------ sub ShowMyUserProfile {    my ($cgi, $action) = @_;    # so wie oben } # ShowMyUserProfile # ------------------------------------------------------------ # ============================================================ 1; # modules have to return a true value