syntax error at (eval 77) line 98, near "->use file"
BEGIN not safe after errors--compilation aborted at (eval 77) line 124.
 in # ==============================================================================
#
# /home/webhosting/jenro/www.jenrosport.com/i-plume/prg-exe/html/players.html.pl
#
# Program generated by wrapper.pm - Do not modify
#
# Date           : 2010/07/29 16:34:26
# Source         : /home/webhosting/jenro/www.jenrosport.com/htdocs/players.html
# Event Handlers : Iplume::Wrapper::Events_Perl
#
# ==============================================================================

use utf8 ;

use Iplume::Wrapper::Events_Perl ;
use Iplume::Wrapper::Events_Default ;
my $__wrapper_element__ = new Iplume::Wrapper::Events_Perl ;

# -- event_start --
    my $_result_ = '' ;
    my $request = $__w__context__ -> {'request'} ;
    my $lang_id = $__w__context__ -> {'lang_id'} ;
    my $page = $__w__context__ -> {'page'} ;
    my $site = $__w__context__ -> {'site'} ;
    my $page_id = $__w__context__ -> {'page_id'} ;
    my $display = $__w__context__ -> {'display'} ;

    my $subwrapper = new Iplume::Wrapper ;
    $subwrapper -> initialize (
      'event_handlers'    => new Iplume::Wrapper::Events_Perl ,
    ) ;
    $subwrapper -> {'path_html'} = [] ;
    push @{$subwrapper -> {'path_html'}} , {
        'src' => '/home/webhosting/jenro/www.jenrosport.com/httmpl' ,
        'prg' => '/home/webhosting/jenro/www.jenrosport.com/i-plume/prg-exe/tmpl' ,
        'def' => '/home/webhosting/jenro/www.jenrosport.com/htdata/blocs' ,
    } ;
    $subwrapper -> {'path_tmpl'} = $subwrapper -> {'path_html'} ;
    $subwrapper -> {'texts'} = $__w__texts__ ;
    $subwrapper -> {'elements'} = $__w__elements__ ;

    $subwrapper -> {'context'} -> {'request'} = $request ;
    $subwrapper -> {'context'} -> {'lang_id'} = $lang_id ;
    $subwrapper -> {'context'} -> {'page'} = $page ;
    $subwrapper -> {'context'} -> {'site'} = $site ;
    $subwrapper -> {'context'} -> {'page_id'} = $page_id ;
    $subwrapper -> {'context'} -> {'display'} = $display ;

    my $langwrapper = new Iplume::Wrapper ;
    $langwrapper -> initialize (
      'lang_id'           => $lang_id ,
      'event_handlers'    => new Iplume::Wrapper::Events_Default ,
    ) ;
    $langwrapper -> {'texts'} = $__w__texts__ ;
    $langwrapper -> {'elements'} = $__w__elements__ ;

    $langwrapper -> {'context'} -> {'request'} = $request ;
    $langwrapper -> {'context'} -> {'lang_id'} = $lang_id ;
    $langwrapper -> {'context'} -> {'page'} = $page ;
    $langwrapper -> {'context'} -> {'site'} = $site ;
    $langwrapper -> {'context'} -> {'page_id'} = $page_id ;
    $langwrapper -> {'context'} -> {'display'} = $display ;

use Iplume::Object ;
my $__data_page__ = new Iplume::Object ;
my $page_def_file = "/home/webhosting/jenro/www.jenrosport.com/htdata/pages/players.html.xml" ;
if ( -e $page_def_file ) {
    $__data_page__ -> from_xml (
        'file'     => $page_def_file ,
    ) ;
    foreach $text_definition ( @{$__data_page__->{'texts'}} ) {
        if ( exists($text_definition->{'text_rsc'}->{$lang_id}) && $text_definition->{'text_rsc'}->{$lang_id} ne '' ) {
            $site->{'texts'}->{$text_definition->{'text_id'}} = $text_definition->{'text_rsc'}->{$lang_id} ;
        }
        elsif ( exists($text_definition->{'text_rsc'}->{'en'}) ) {
            $site->{'texts'}->{$text_definition->{'text_id'}} = $text_definition->{'text_rsc'}->{'en'} ;
        }
        else {
            $site->{'texts'}->{$text_definition->{'text_id'}} = '' ;
        }
    }
    while ( ($k,$v) = each ( %{$__data_page__} ) ) {
        $page -> {$k} = $v ;
    }
}
if ( exists ( $__data_page__->{'html_title'} ) ) {
    $page->{'html_title'} = $__data_page__->{'html_title'} ;
    $page->{'html_keywords'} = $__data_page__->{'html_keywords'} ;
    $page->{'html_description'} = $__data_page__->{'html_description'} ;
}
eval {
# ----------------------------------------------------------------------------------------------------
# 
# --------------------------------------------------
# ----------------------------------------------------------------------------------------------------
#  use file="tmpl_002.html" 
# --------------------------------------------------
    $_result_ .= $subwrapper->use file="tmpl_002.html" ;
# ----------------------------------------------------------------------------------------------------
# 
# --------------------------------------------------
    $_result_ .= '' . "\n" ;
    $_result_ .= '' . "\n" ;
# ----------------------------------------------------------------------------------------------------
# 
#     use EPV::Object ;
# 
#     # ==============================================================================================
#     my $player_list = new EPV::Object ;
# 
#     my $player_file = $ENV{'EPV.PRG_DIRECTORY'} . '/public_data/lists/players.xml' ;
#     my $_o_xml = "" ;
#     open ( XML_FILE , $player_file ) or die "Can't open file: $player_file, $!" ;
#     while ( <XML_FILE> ) {
#         $_o_xml .= $_ ;
#     }
#     close ( XML_FILE ) ;
# 
#     $player_list -> from_xml (
#         '_o_xml'    => $_o_xml ,
#     ) ;
# --------------------------------------------------

    use EPV::Object ;

    # ==============================================================================================
    my $player_list = new EPV::Object ;

    my $player_file = $ENV{'EPV.PRG_DIRECTORY'} . '/public_data/lists/players.xml' ;
    my $_o_xml = "" ;
    open ( XML_FILE , $player_file ) or die "Can't open file: $player_file, $!" ;
    while ( <XML_FILE> ) {
        $_o_xml .= $_ ;
    }
    close ( XML_FILE ) ;

    $player_list -> from_xml (
        '_o_xml'    => $_o_xml ,
    ) ;

# ----------------------------------------------------------------------------------------------------
# 
# --------------------------------------------------
    $_result_ .= '' . "\n" ;
    $_result_ .= '' . "\n" ;
# ----------------------------------------------------------------------------------------------------
#  $page -> {'content'} = sub {my $_result_='';
# --------------------------------------------------
 $page -> {'content'} = sub {my $_result_='';
# ----------------------------------------------------------------------------------------------------
# 
# <div style="padding-right:10px;min-height:100%">
# --------------------------------------------------
    $_result_ .= '' . "\n" ;
    $_result_ .= '<div style="padding-right:10px;min-height:100%">' . "\n" ;
    $_result_ .= '' . "\n" ;
# ----------------------------------------------------------------------------------------------------
#  foreach $player ( @{$player_list->{'elements'}} ) { 
# --------------------------------------------------
 foreach $player ( @{$player_list->{'elements'}} ) { 
# ----------------------------------------------------------------------------------------------------
# 
# <h2>
# --------------------------------------------------
    $_result_ .= '' . "\n" ;
    $_result_ .= '<h2>' . "" ;
# ----------------------------------------------------------------------------------------------------
#  $player->{'first_name'} 
# --------------------------------------------------
$_temp_result_ = eval {  $player->{'first_name'} } ;
die $@ if ( $@ ) ;
$_temp_result_ =~ s/&/&amp;/gms ;
$_result_ .= $_temp_result_ ;
# ----------------------------------------------------------------------------------------------------
#  
# --------------------------------------------------
    $_result_ .= ' ' . "" ;
# ----------------------------------------------------------------------------------------------------
#  $player->{'last_name'} 
# --------------------------------------------------
$_temp_result_ = eval {  $player->{'last_name'} } ;
die $@ if ( $@ ) ;
$_temp_result_ =~ s/&/&amp;/gms ;
$_result_ .= $_temp_result_ ;
# ----------------------------------------------------------------------------------------------------
# </h2>
# <table border=0 cellpadding=0 cellspacing=0 style="margin-bottom:50px"><tr>
# <td valign=top><img src="
# --------------------------------------------------
    $_result_ .= '</h2>' . "\n" ;
    $_result_ .= '<table border=0 cellpadding=0 cellspacing=0 style="margin-bottom:50px"><tr>' . "\n" ;
    $_result_ .= '<td valign=top><img src="' . "" ;
# ----------------------------------------------------------------------------------------------------
#  $player->{'picture'} 
# --------------------------------------------------
$_temp_result_ = eval {  $player->{'picture'} } ;
die $@ if ( $@ ) ;
$_temp_result_ =~ s/&/&amp;/gms ;
$_result_ .= $_temp_result_ ;
# ----------------------------------------------------------------------------------------------------
# " style="border: 1px dashed #30537D;margin:0px 15px 5px 5px"></td>
# <td valign=top>
# 
# <p>
# --------------------------------------------------
    $_result_ .= '" style="border: 1px dashed #30537D;margin:0px 15px 5px 5px"></td>' . "\n" ;
    $_result_ .= '<td valign=top>' . "\n" ;
    $_result_ .= '' . "\n" ;
    $_result_ .= '<p>' . "" ;
# ----------------------------------------------------------------------------------------------------
# \xA7 $player->{'biography'} 
# --------------------------------------------------
\xA7 $player->{'biography'} 
# ----------------------------------------------------------------------------------------------------
# </p>
# --------------------------------------------------
    $_result_ .= '</p>' . "\n" ;
    $_result_ .= '' . "\n" ;
# ----------------------------------------------------------------------------------------------------
#  foreach $link ( @{$player->{'weblinks'}} ) { 
# --------------------------------------------------
 foreach $link ( @{$player->{'weblinks'}} ) { 
# ----------------------------------------------------------------------------------------------------
# 
# <a href="
# --------------------------------------------------
    $_result_ .= '' . "\n" ;
    $_result_ .= '<a href="' . "" ;
# ----------------------------------------------------------------------------------------------------
#  $link->{'url'} 
# --------------------------------------------------
$_temp_result_ = eval {  $link->{'url'} } ;
die $@ if ( $@ ) ;
$_temp_result_ =~ s/&/&amp;/gms ;
$_result_ .= $_temp_result_ ;
# ----------------------------------------------------------------------------------------------------
# " target="_blank">
# --------------------------------------------------
    $_result_ .= '" target="_blank">' . "" ;
# ----------------------------------------------------------------------------------------------------
# \xA7 $link->{'title'} 
# --------------------------------------------------
\xA7 $link->{'title'} 
# ----------------------------------------------------------------------------------------------------
# </a><br>
# --------------------------------------------------
    $_result_ .= '</a><br>' . "\n" ;
# ----------------------------------------------------------------------------------------------------
#  } 
# --------------------------------------------------
 } 
# ----------------------------------------------------------------------------------------------------
# 
# --------------------------------------------------
    $_result_ .= '' . "\n" ;
    $_result_ .= '' . "\n" ;
# ----------------------------------------------------------------------------------------------------
#  if ( exists ( $player->{'quote'} ) ) { 
# --------------------------------------------------
 if ( exists ( $player->{'quote'} ) ) { 
# ----------------------------------------------------------------------------------------------------
# 
# <span style="font-size:10px">
# &lsaquo;&lsaquo;
# --------------------------------------------------
    $_result_ .= '' . "\n" ;
    $_result_ .= '<span style="font-size:10px">' . "\n" ;
    $_result_ .= '&lsaquo;&lsaquo;' . "" ;
# ----------------------------------------------------------------------------------------------------
# \xA7 $player->{'quote'} 
# --------------------------------------------------
\xA7 $player->{'quote'} 
# ----------------------------------------------------------------------------------------------------
# &rsaquo;&rsaquo;
# <p style="text-align:right">--- 
# --------------------------------------------------
    $_result_ .= '&rsaquo;&rsaquo;' . "\n" ;
    $_result_ .= '<p style="text-align:right">--- ' . "" ;
# ----------------------------------------------------------------------------------------------------
#  $player->{'first_name'} 
# --------------------------------------------------
$_temp_result_ = eval {  $player->{'first_name'} } ;
die $@ if ( $@ ) ;
$_temp_result_ =~ s/&/&amp;/gms ;
$_result_ .= $_temp_result_ ;
# ----------------------------------------------------------------------------------------------------
#  
# --------------------------------------------------
    $_result_ .= ' ' . "" ;
# ----------------------------------------------------------------------------------------------------
#  $player->{'last_name'} 
# --------------------------------------------------
$_temp_result_ = eval {  $player->{'last_name'} } ;
die $@ if ( $@ ) ;
$_temp_result_ =~ s/&/&amp;/gms ;
$_result_ .= $_temp_result_ ;
# ----------------------------------------------------------------------------------------------------
# </p>
# </span>
# --------------------------------------------------
    $_result_ .= '</p>' . "\n" ;
    $_result_ .= '</span>' . "\n" ;
# ----------------------------------------------------------------------------------------------------
#  } 
# --------------------------------------------------
 } 
# ----------------------------------------------------------------------------------------------------
# 
# 
# 
# <div style="clear:both">&nbsp;</div>
# 
# <h3>
# --------------------------------------------------
    $_result_ .= '' . "\n" ;
    $_result_ .= '' . "\n" ;
    $_result_ .= '' . "\n" ;
    $_result_ .= '<div style="clear:both">&nbsp;</div>' . "\n" ;
    $_result_ .= '' . "\n" ;
    $_result_ .= '<h3>' . "" ;
# ----------------------------------------------------------------------------------------------------
# \xA7 [photo_gallery] 
# --------------------------------------------------
\xA7 [photo_gallery] 
# ----------------------------------------------------------------------------------------------------
# </h3>
# --------------------------------------------------
    $_result_ .= '</h3>' . "\n" ;
# ----------------------------------------------------------------------------------------------------
#  foreach $picture ( @{$player->{'pictures'}} ) { 
# --------------------------------------------------
 foreach $picture ( @{$player->{'pictures'}} ) { 
# ----------------------------------------------------------------------------------------------------
# 
# <span class="thumbnail"
#     onMouseOver="this.className='thumbnail_hover'"
#     onMouseOut="this.className='thumbnail'"
# >
# <table border=0 cellpadding=0 cellspacing=0 width=80 height=80><tr><td align=center>
# <a href="/_img/players/
# --------------------------------------------------
    $_result_ .= '' . "\n" ;
    $_result_ .= '<span class="thumbnail"' . "\n" ;
    $_result_ .= '    onMouseOver="this.className=\'thumbnail_hover\'"' . "\n" ;
    $_result_ .= '    onMouseOut="this.className=\'thumbnail\'"' . "\n" ;
    $_result_ .= '>' . "\n" ;
    $_result_ .= '<table border=0 cellpadding=0 cellspacing=0 width=80 height=80><tr><td align=center>' . "\n" ;
    $_result_ .= '<a href="/_img/players/' . "" ;
# ----------------------------------------------------------------------------------------------------
#  $picture 
# --------------------------------------------------
$_temp_result_ = eval {  $picture } ;
die $@ if ( $@ ) ;
$_temp_result_ =~ s/&/&amp;/gms ;
$_result_ .= $_temp_result_ ;
# ----------------------------------------------------------------------------------------------------
# " target="jenro_pict">
# <img src="/_img/players/mini/
# --------------------------------------------------
    $_result_ .= '" target="jenro_pict">' . "\n" ;
    $_result_ .= '<img src="/_img/players/mini/' . "" ;
# ----------------------------------------------------------------------------------------------------
#  $picture 
# --------------------------------------------------
$_temp_result_ = eval {  $picture } ;
die $@ if ( $@ ) ;
$_temp_result_ =~ s/&/&amp;/gms ;
$_result_ .= $_temp_result_ ;
# ----------------------------------------------------------------------------------------------------
# " border=0>
# </a>
# </td></tr></table>
# </span>
# --------------------------------------------------
    $_result_ .= '" border=0>' . "\n" ;
    $_result_ .= '</a>' . "\n" ;
    $_result_ .= '</td></tr></table>' . "\n" ;
    $_result_ .= '</span>' . "\n" ;
    $_result_ .= '' . "\n" ;
# ----------------------------------------------------------------------------------------------------
#  } 
# --------------------------------------------------
 } 
# ----------------------------------------------------------------------------------------------------
# 
# 
# </td></tr></table>
# --------------------------------------------------
    $_result_ .= '' . "\n" ;
    $_result_ .= '' . "\n" ;
    $_result_ .= '</td></tr></table>' . "\n" ;
# ----------------------------------------------------------------------------------------------------
#  } 
# --------------------------------------------------
 } 
# ----------------------------------------------------------------------------------------------------
# 
# 
# </div>
# --------------------------------------------------
    $_result_ .= '' . "\n" ;
    $_result_ .= '' . "\n" ;
    $_result_ .= '</div>' . "\n" ;
# ----------------------------------------------------------------------------------------------------
#  return $_result_ ;} ; 
# --------------------------------------------------
 return $_result_ ;} ; 
# ----------------------------------------------------------------------------------------------------
# 
# --------------------------------------------------
    $_result_ .= '' . "\n" ;
# -- event_end --
    if ( $subwrapper->{'using'} ) {
        $_result_ = $subwrapper -> include ( 'file' => $subwrapper->{'using'} ) ;
    }
} ;
if ( $@ ) {
        if ( $ENV{'I-PLUME-ERROR'} eq 'TRUE' ) {
            return "Content-type: text/plain\n\n$@" ;
        }
        else {
            $ENV{'I-PLUME-ERROR-MSG'} = $@ ;
            $ENV{'I-PLUME-ERROR'} = 'TRUE' ;
            my $wrapper = new Iplume::Wrapper ;
            $wrapper -> initialize (
                'event_handlers'    => new Iplume::Wrapper::Events_Perl ,
            ) ;
            $wrapper -> {'path_html'} = [] ;
            push @{$wrapper -> {'path_html'}} , {
                'src' => '/home/webhosting/jenro/www.jenrosport.com/httmpl' ,
                'prg' => '/home/webhosting/jenro/www.jenrosport.com/i-plume/prg-exe/tmpl' ,
                'def' => '/home/webhosting/jenro/www.jenrosport.com/htdata/blocs' ,
            } ;
            $wrapper -> {'path_tmpl'} = $wrapper -> {'path_html'} ;
            $wrapper -> {'texts'} = $__w__texts__ ;
            $wrapper -> {'elements'} = $__w__elements__ ;

            $wrapper -> {'context'} -> {'request'} = $request ;
            $wrapper -> {'context'} -> {'lang_id'} = $lang_id ;
            $wrapper -> {'context'} -> {'page'} = $page ;
            $wrapper -> {'context'} -> {'site'} = $site ;
            $wrapper -> {'context'} -> {'page_id'} = $page_id ;
            $wrapper -> {'context'} -> {'display'} = $display ;

            my $file_name = ( $ENV{'I-PLUME-ERROR-FILE'} ) ? $ENV{'I-PLUME-ERROR-FILE'} : 'page_error.html' ;
            $wrapper -> update_prg (
                 'src_file'          => $file_name ,
            ) ;

            $_result_ = $wrapper -> execute_prg ( ) ;
        }
}
else {
    return $_result_ ;
}
Iplume::Wrapper::execute_prg at /home/webhosting/jenro/www.jenrosport.com/i-plume/prg-lib/Iplume/WebSite.pm line 524.
Iplume::WebSite::print_display at /home/webhosting/jenro/www.jenrosport.com/i-plume/prg-lib/Iplume/WebSite.pl line 29.