syntax error at (eval 35) line 98, near "->use file"
 in # ==============================================================================
#
# /home/webhosting/jenro/www.jenrosport.com/i-plume/prg-exe/html/shop/index.html.pl
#
# Program generated by wrapper.pm - Do not modify
#
# Date           : 2010/03/09 20:50:27
# Source         : /home/webhosting/jenro/www.jenrosport.com/htdocs/shop/index.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/shop/index.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_main.html" 
# --------------------------------------------------
    $_result_ .= $subwrapper->use file="tmpl_main.html" ;
# ----------------------------------------------------------------------------------------------------
# 
# --------------------------------------------------
    $_result_ .= '' . "\n" ;
# ----------------------------------------------------------------------------------------------------
#  $page -> {'content'} = sub {my $_result_='';
# --------------------------------------------------
 $page -> {'content'} = sub {my $_result_='';
# ----------------------------------------------------------------------------------------------------
# 
# <div style="padding-right:10px;min-height:100%">
# 
# 
# </div>
# --------------------------------------------------
    $_result_ .= '' . "\n" ;
    $_result_ .= '<div style="padding-right:10px;min-height:100%">' . "\n" ;
    $_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.