#!/usr/bin/perl

use strict;
use warnings;

use CGI;

use Froschpopo::Model::Database;

my $cgi = CGI->new;

my $schema = Froschpopo::Model::Database->connect($alles_wie_bei_dbi);
my ($user) = $schema->resultset( 'User' )->search({
    user_id => $user_id,
});

if( $user ){
    print $user->vorname," ", $user->nachname;
    
    if ($cgi->param('nur_user_mit_bild')) {
        my @fotos = $user->Fotos;
        for my $foto ( @fotos ){
            print "Foto: ", $foto->path,"\n";
        }
    }
}
else{
    print "Kein User gefunden";
}