perl script\mypboard_create.pl model PBoard DBIC::SchemaLoader dbi:mysql:dbname=pboard pboard pboard

# Verstehe nicht, wie ich an die Daten komme; ich komme lediglich an die Tabellennamen => Abbruch

catalyst MyPBoard
cd MyPBoard

perl script\MyPBoard_create.pl view HTC HTML::Template::Compiled
perl script\mypboard_create.pl controller User

sub register : Path('/user/register') {
    my ($self, $c) = @_;

    my (%params) = &_parseParametersIntoHash($c);

    # --- if no params, assume it's executed for the first time
    unless (scalar keys %params) {
        my %data = ( template     => 'user/register.tmpl',
                     title        => 'Registrierung',
                     message      => '',
                     username     => '',
                     emailaddress => '',
                     );
        while (my ($k, $v) = each %data) { $c->stash->{$k} = $v }

        return;
    } # unless

    # --- else if mandatory parameters are submitted
    my $message = "";
    if( $params{username} =~ /^\s*$/ ) {
        $message .= "<br />Bitte das Feld Benutzername ausf&uuml;llen";
    } # if
    if( $params{emailaddress} =~ /^\s*$/ ) {
        $message .= "<br />Bitte das Feld E-Mai-Adresse ausf&uuml;llen";
    } # if
    if( $params{password} =~ /^\s*$/ or $params{passwordcheck} =~ /^\s*$/) {
        $message .= "<br />Bitte beide Passwort-Felder ausf&uuml;llen";
    } # if
    unless( $params{agreeagb} ) {
        $message .= "<br />Bitte die Bestimmungen akzeptieren";
    } # if

    if ($message) { # if a parameter is missing, prompt for it
        my %data = ( template     => 'user/register.tmpl',
                     title        => 'Registrierung',
                     message      => $message,
                     %params,
                );
        while (my ($k, $v) = each %data) { $c->stash->{$k} = $v }
        return;
    } # if

    # shortcut
    my $registerConf = $c->config->{register};
    
    # --- check if params are valid
    if( length $params{username} < $registerConf->{minUserNameLength} ) {
        $message .= "<br />Der Benutzername mu&szlig; mindestens  "
            . $registerConf->{minUserNameLength} . " Zeichen lang sein";
    } # if
    elsif( length $params{username} > $registerConf->{maxUserNameLength} ) {
        $message .= "<br />Der Benutzername darf h&ouml;chstens  "
            . $registerConf->{maxUserNameLength} . " Zeichen lang sein";
    } # if

    if( $params{password} ne $params{passwordcheck} ) {
        $message .= "<br />die Passw&ouml;rter sind nicht identisch";
    } # if
    elsif( length $params{password} < $registerConf->{minPasswordLength} ) {
        $message .= "<br />Das Passwort mu&szlig; mindestens  "
            . $registerConf->{minPasswordLength} . " Zeichen lang sein";
    } # if
    elsif( length $params{password} > $registerConf->{maxPasswordLength} ) {
        $message .= "<br />Das Passwort darf h&ouml;chstens  "
            . $registerConf->{maxPasswordLength} . " Zeichen lang sein";
    } # if

    unless( Mail::RFC822::Address::valid( $params{emailaddress} ) ) {
        $message .= "<br />E-Mail '$params{emailaddress}' ung&uuml;ltig";
    } # unless

    # check db if username is free
    # send mail
    
    if ($message) { # if a parameter is invalid, prompt for it
        my %data = ( template     => 'user/register.tmpl',
                     title        => 'Registrierung',
                     message      => $message,
                     %params,
                );
        while (my ($k, $v) = each %data) { $c->stash->{$k} = $v }

        return;
    } # if

    # else redirect to register_finished
    my %data = ( template     => 'user/register_finished.tmpl',
                 title        => 'Registrierung',
                 message      => '',
                 %params,
            );
    while (my ($k, $v) = each %data) { $c->stash->{$k} = $v }
} # register

script\mypboard_create.pl model PBDB DBIC dbi:mysql:dbname=pboard user secret

= $c->model('PBDB')->table('PbUser')->search( 'order_by' => 'id ASC');

Caught exception in MyPBoard::Controller::User->list "Can't call method "search" on an undefined value at E:/web/PBoard_Catalyst/MyPBoard/script/../lib/MyPBoard/Controller/User.pm line 14."

sub list : Path('/user/list') {
    my ($self, $c) = @_;

    my %data = ( template     => 'user/list.tmpl',
                 title        => 'Benutzerliste',

                 navigationfile   => 'sub_naviagtion_user.tmpl',
                 username         => 'XXXXXX',
                 show_images      => 1,
            );
    while (my ($k, $v) = each %data) { $c->stash->{$k} = $v }

    
#     $c->stash->{user_list} =
#         MyPBoard::SchemaLoader::PBoard::PbUser
# #        $c->model('PBoard')->table('PbUser')
#         ->search( 'order_by' => 'id ASC');

    die Dumper (\%MyPBoard::Model::PBoard::);
   
    die Dumper $c->model('PBoard');
  
#    my @x = MyPBoard::SchemaLoader::PBoard->loader->tables;
#    die "Tables: @x";
#    die Dumper($c->model('PBoard')->schema);

#     my $pbUser = $c->model('PBoard')->class('PbUser');
#     die Dumper($pbUser);

#     my $pbUser = $c->model('PBoard')->resultset('PbUser');

#     die Dumper ($pbUser->search( { nick => 'Strat' } ));
    
    
#    die Dumper( $c->model('PBoard')->resultset('PbUser')->search('id' => 1) );
    
} # list

sub new {
    my ($self) = shift;
    return $self->SUPER::new(@_);
} # new

script\mypboard_create.pl model PBDB DBIC dbi:mysql:dbname=pboard user secret

= $c->model('PBDB')->table('PbUser')->search( 'order_by' => 'id ASC');

Caught exception in MyPBoard::Controller::User->list "Can't call method "search" on an undefined value at E:/web/PBoard_Catalyst/MyPBoard/script/../lib/MyPBoard/Controller/User.pm line 14."

script/myboard_create.pl model PBDB DBIC::Schema PBDB::SchemaClass dbi:mysql:dbname=pboard user secret